|
AutoCAD VBA : ListBox Inhalt automatisch aktualisieren
Dirk.B am 26.02.2008 um 20:16 Uhr (0)
Hallo Wilfried!Ich glaube, daß ich das eigentliche Problem nun habe.Die ausgewählten Objekte werden ja als DXF - Datei in ein Verzeichnis gespeichert. Dieser Vorgang dauert ca. 2-3 Sekunden, also wird die neue DXF - Datei erst abgelegt, nachdem die Aktualisierung bereits stattgefunden hat.Kann man da eine Verzögerung oder wie unter Lisp eine pause einbauen?GrußDirk
|
| In das Form AutoCAD VBA wechseln |
|
Lisp : Lisp und dynamische Blöcke
Dirk.B am 31.01.2013 um 19:29 Uhr (0)
Hallo CADwiesel!Wenn ich das richtig verstehe, durhläufst Du mit der foreach - Schleife die BlockProperties nach a.Das ganze läuft über vla-GetDynamicBlockProperties.Wie aber setze ich dann den Wert "Sichtbarkeit1" Ø3 mm auf "Sichtbarkeit1" Ø4 mm um?Code:(set (vlax-ename-vla-object a) "Sichtbarkeit1" "Ø4 mm")Sorry, aber ich komm damit noch nicht klar Geht das denn überhaupt mit den Werten ändern?------------------GrußDirk
|
| In das Form Lisp wechseln |
|
Lisp : Lisp und dynamische Blöcke
Dirk.B am 01.02.2013 um 10:52 Uhr (0)
Hallo zusammen!Ich hab noch mal was probiert aber leider ohne Erfolg.Code:(defun c:FT()(defun setProperty (vlaDynBlock sPropertyName rValue / vlaProperty) (foreach vlaProperty (vlax-safearray-list (vlax-variant-value (vla-GetDynamicBlockProperties vlaDynBlock))) (if (= (vla-get-PropertyName vlaProperty) sPropertyName) (vla-put-value vlaProperty (vlax-make-variant rValue)) ); end if ); end foreach); end defun(setProperty (vlax-ename-vla-object (car (entsel))) "Strecken1" 50.0))Wenn ich nun einen Block a ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Bemaßung mit fester Layerhinterlegung
Dirk.B am 28.10.2004 um 21:02 Uhr (0)
Hallo Zusammen! Hat evtl. jemand eine Idee, wie man einem Bemaßungsstil einen festen Layer zuordnen kann, so daß dieser direkt übernommen wird. Bemaßung: Layer: BEM1-10 BEM1_10 BEM1-1 BEM1_1 Könnte man dieses vielleicht sogar in dem Makrobereich einer Werkzeugeigenschaft einbinden z.B.: Lineare Bemaßung etc. Ich denke da an einen evtl. Lisp oder VBA Code über die IF THEN Abfrage nach. Für den normalen Linienbefel soll bei meinen Zeichnungen grundsätzlich der Layer KONTUR verwendet ...
|
| In das Form Rund um Autocad wechseln |
|
Lisp : Lisp und dynamische Blöcke
Dirk.B am 23.02.2013 um 14:07 Uhr (0)
Hallo Udo!Hallo Forum!Ok, dass mit der Änderung der Sichtbarkeit1 funktioniert.Aber leider nur die.Die anderen Prameter ändern sich nicht.Wie z.B. Winkel2 oder Länge Ø3.Was muß ich da machen?Kann man immer nur 1 Wert ändern?Ich möchte folgendes ereichen.- Block einfügen- Letztes Objekt erkennen - Sichtbarkeit1 von "Ø3mm sichtbar" auf "Ø4mm verdeckt" ändern- Länge Ø4 auf 45 ändern- Winkel2 auf 90° ändernCode:(command "-einfüge" "N:/Konstruktion/AutoCAD/Block_Konstruktion/Verbinder/Spax-Schraube.dwg" P20 "" ...
|
| In das Form Lisp wechseln |
 |
Lisp : Lisp und dynamische Blöcke
Dirk.B am 01.02.2013 um 16:26 Uhr (0)
Hallo CADwiesel!Ich glaube es liegt an meinem dynamischen Block.Der hat einige Verschachtelungen.Nehme ich eine ganz einfachen Block mit nur einem Längenparameter"Abstand1", so funktioniert es.Code:(defun c:FT()(defun setProperty (vlaDynBlock sPropertyName rValue / vlaProperty) (foreach vlaProperty (vlax-safearray-list (vlax-variant-value (vla-GetDynamicBlockProperties vlaDynBlock))) (if (= (vla-get-PropertyName vlaProperty) sPropertyName) (vla-put-value vlaProperty (vlax-make-variant rValue)) ); end i ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp und dynamische Blöcke
Dirk.B am 24.02.2013 um 15:45 Uhr (0)
Hallo Udo!Vielen Dank.Dann müßte es doch eigentlich so funktionieren:Code:(defun C:Db01()(defun setProperty (vlaDynBlock sPropertyName rValue / vlaProperty) (foreach vlaProperty (vlax-safearray-list (vlax-variant-value (vla-GetDynamicBlockProperties vlaDynBlock))) (if (= (vla-get-PropertyName vlaProperty) sPropertyName) (vla-put-value vlaProperty (vlax-make-variant rValue)) ); end if ); end foreach); end defun (command "_Insert" "N:/Konstruktion/AutoCAD/Block_Konstruktion/Verbinder/Spax-Schraube.dwg" ( ...
|
| In das Form Lisp wechseln |
