Wahl des Quadrat- und Knorpelformats automatisch

[Zoro76]

Tschüss.

In der Zwischenzeit wollte ich Sie auf diesem Makro... es ist wirklich fantastisch.
Seit Ich möchte es an meine Bedürfnisse anpassen, ich wollte Sie bitten, wenn es Ihre Bereitschaft gab, mir das Passwort zu geben, um den Code einzugeben.

Vielen Dank
Hi.

 

[smemo]

Hey, zoro76,
Vielen Dank. Diese Version ist ohne Schutz und ich habe in der Zwischenzeit die Abschnitte zum Rand des Bogens hinzugefügt, alle 210 mm horizontal und 297 vertikal.
Wenn Sie es verbessern können, stellen Sie es bitte jedem zur Verfügung.

Hi.

 

[Zoro76]

Vielen Dank.

Ich sehe, ob ich etwas "kombinieren" kann.
Ich werde so schnell wie möglich Neuigkeiten haben.

Hi.

 

[Zoro76]

Tschüss.
Ich hätte eine kleine Anfrage... ist es nicht, dass du mir sagen könntest, wie man das Passwort legt? .

Danke.

 

[Zoro76]

Tschüss.
Heute ist der ganze Tag, den ich mit diesem Programm verlasse und ich bin es an meine Büroknorpel anpassen.
Leider ist mein Wissen über die Vba jedoch ziemlich knapp und ich verliere ein wenig.
Was ich tun möchte, ist in Form der zu prüfenden Kontrollkästchen so einzufügen, dass sie auch auf dem Warenkorb erscheinen lassen ... Ich weiß nicht, ob ich es erklärt habe. Ich versuche Bilder zu befestigen, vielleicht wird es deutlicher.

Danke.
Hi.

 

[Shape]

Sie sehen, wie Sie nicht sehr praktisch der vba nach mir sind, stimmen Sie zu, die Straße der Schichten zu nehmen, d.h. Sie zeichnen das retino in der rck mit einer Schicht 300-350-400 und dann mit dem Spunte Sie aktivieren oder deaktivieren sie mit

wenn checkbox1.value = true dann thisdrawing.layers("rck350"). freeze = falsch

und so weiter

 

[Zoro76]

Danke Form für den Vorschlag.... Ich versuche sofort....
am Ende, wenn die richtige Schicht gewählt wird, können andere immer gelöscht werden.
können Sie auch mehr als eine auswählen?

Hi.

 

[Shape]

Danke Form für den Vorschlag.... Ich versuche sofort....
am Ende, wenn die richtige Schicht gewählt wird, können andere immer gelöscht werden.
können Sie auch mehr als eine auswählen?

Hi.

Wenn Sie die Kontrollkästchen verwenden, können Sie mehr als eine auswählen und die Bedingung jedem stellen, wenn die Schicht aktiv ist, sonst lässt sie sie ab usw. ist eine ziemlich handwerkliche Methode, aber es funktioniert

 

[Zoro76]

Leider arbeite ich nicht.... lässt immer alle Schichten auf. Vielleicht irre ich mich.
Ich habe den Test mit 1 Schicht so geschrieben:

wenn checkbox1_300.value = true dann
thisdrawing.layers("rck300"). freeze = falsch
Ende

Gibt es eine spezielle Position, um diesen Code zu setzen oder ist er gleichgültig?

Danke.

 

[Zoro76]

Guten Tag für alle
Ich habe ein neues Problem mit dem Makro.
Jetzt jedes Mal, wenn ich autocad und clikko das Makro-Symbol zum ersten Mal sagt mir "unmöglich, den Pfad zu finden", öffnet die Maske und nichts funktioniert; schließen - riclikko und dann Funzia.
Ist das nicht das Problem, das mich mit der Tatsache widerspricht, die Schichten abzuschalten? .

Danke.

 

[Shape]

Leider arbeite ich nicht.... lässt immer alle Schichten auf. Vielleicht irre ich mich.
Ich habe den Test mit 1 Schicht so geschrieben:

wenn checkbox1_300.value = true dann
thisdrawing.layers("rck300"). freeze = falsch
Ende

Gibt es eine spezielle Position, um diesen Code zu setzen oder ist er gleichgültig?

Danke.

1) wenn Sie das Makro befestigen vielleicht ist es besser
2) Achten Sie darauf, nicht versuchen, die aktive Schicht abzuschalten, weil Autocad es nicht erlaubt.
3) die Position... gut hängt... Sie können es auf die Steuerung klicken oder auf die Schaltfläche, die den Ordner einfügen hängt setzen.
Natürlich muss es in einer Position sein, die anders ausgeführt wird, es ist offensichtlich, dass es nicht funktioniert.

 

[Zoro76]

Hallo Form,
Ich hole dir die ganze Akte. der Teil des Codes "verschlüsselt" habe ich es am Ende der Papierform eingefügt.

Vielen Dank

 

[Shape]

Hallo Form,
Ich hole dir die ganze Akte. der Teil des Codes "verschlüsselt" habe ich es am Ende der Papierform eingefügt.

Vielen Dank

In der Zwischenzeit gebe ich Ihnen ein Beispiel, damit Sie das Verfahren richtig funktioniert

wahrscheinlich wird Ihnen einen Fehler geben, weil ich autocad2012 zu 64bit

wenn Sie ein fehlendes Projekt oder eine Bibliothek geben, gehen Sie zum visuellen Grundredakteur

tools -> referenzen und finden Sie eine (mancante) autocad2012 type library the deselections and selects the version of autocad you installiert.

 

[Zoro76]

Aber du weißt, ich hätte herausfinden können, wo ich falsch lag. . .
Ich habe versucht, die Schichten sofort in der Papierdatei zu halten. und scheint es zu funktionieren.
Ich bitte um eine Bestätigung. Danke.

 

[Zoro76]

Ich kann Ihre Datei nicht öffnen.... leider ist mein Büro noch weit dahinter, obwohl sie versprochen, zu aktualisieren. Ich nutze derzeit 2009.
Ich habe die Buchhandlungen überprüft und alles scheint in Ordnung (Nichts fehlt und mein Autocad ist selezioanto).
Ich bin ein Bild des Fehlers, der mir gibt.

 

[Shape]

Aber du weißt, ich hätte herausfinden können, wo ich falsch lag. . .
Ich habe versucht, die Schichten sofort in der Papierdatei zu halten. und scheint es zu funktionieren.
Ich bitte um eine Bestätigung. Danke.

bhè in primis im Code geschrieben


wenn checkbox1_300.value = true dann thisdrawing.layers("rck350"). freeze = falsch

dann wählen Sie rck300 und schalten Sie 350 so schon geht es nicht...

dann versuchen, eine solche Zeichnung zu zwingen. regen acallviewports weil die Aktivierung von Schichten in den Retinalen erfordert manchmal eine regen

 

[Zoro76]

wenn checkbox1_300.value = true dann thisdrawing.layers("rck350"). freeze = falsch

Ich habe auch dieses Magazin bemerkt...

Jetzt gehe ich vor und versuche, alles zu kompilieren... dann das Ergebnis zu platzieren... vielleicht kann es jemandem helfen.

 

[Shape]

Aber du weißt, ich hätte herausfinden können, wo ich falsch lag. . .
Ich habe versucht, die Schichten sofort in der Papierdatei zu halten. und scheint es zu funktionieren.
Ich bitte um eine Bestätigung. Danke.

Es liegt an der freeze=false-Funktion, es ist, als wäre es eine Schande, wenn Sie sie aufgetaut haben.

freeze=false ->scongela
freeze=true->congela (in diesem Fall kann die aktive Schicht nicht eingefroren werden)

 

[Zoro76]

"und du hast recht."
Jetzt habe ich versucht zu schreiben
wenn checkbox1_300.value = false dann thisdrawing.layers("rck300"). freeze = true

und tatsächlich mit den Schichten darauf funktioniert.
Danke.

 

[smemo]

Hallo zoro76, ich antworte nur jetzt, weil die Zeit Tyrann ist.
Ich bin kein guter Kenner der vba und dies und meine erste und einzige Anwendung in vba, aber ich sehe, dass Sie einen guten Meister in Form gefunden haben.

Ich habe ein neues Problem mit dem Makro.
Jetzt jedes Mal, wenn ich autocad und clikko das Makro-Symbol zum ersten Mal sagt mir "unmöglich, den Pfad zu finden", öffnet die Maske und nichts funktioniert; schließen - riclikko und dann Funzia.

Manchmal Ich passierte diesen Fehler, und es ist aufgrund des Makros, das den Knorpel im Unterordner verwaltet, aber ich fand nicht die Zeit, ihn zu korrigieren. Wenn Sie autocad dieser Fehler verschwinden, zumindest bis Sie das Ereignis finden, das es aktiviert.
autocad 2010 32-bit verwenden.