|
Lisp : vlax-safearray->list dynamische Blöcke
Dorfy am 05.05.2011 um 11:51 Uhr (0)
na nimm doch vlax-safearray-get-u-bound... und ne schleife...Code: (setq i (vlax-safearray-get-l-bound b 1)) (while (= i (vlax-safearray-get-u-bound b 1)) (setq c (vlax-safearray-get-element b i));mach was... (print (strcat (vla-get-PropertyName c) " -- ")) (princ (vlax-variant-value (vla-get-value c))) (setq i (1+ i)) )------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."
|
| In das Form Lisp wechseln |
|
Lisp : vlax-safearray->list dynamische Blöcke
Dorfy am 05.05.2011 um 15:30 Uhr (0)
versuch mal dasCode:(vla-get-IsDynamicBlock (vlax-ename-vla-object (car (entsel))))------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."
|
| In das Form Lisp wechseln |
|
Lisp : command hatch einbauen
Dorfy am 05.05.2011 um 15:42 Uhr (1)
(command "_hatch" "ansi31" "2" "0" obj "") ???------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."
|
| In das Form Lisp wechseln |
|
Lisp : command hatch einbauen
cadplayer am 05.05.2011 um 15:51 Uhr (1)
so hatte ich auch gedacht... nur wird die gewählte Polylinie nicht schraffiertim Textfenster erscheint folgendes Command: (command "_hatch" "ansi31" "2" "0" OBJ "")_hatchEnter a pattern name or [?/Solid/User defined/Gradient] ANSI31: ansi31Specify a scale for the pattern 1.0000: 2Specify an angle for the pattern 0: 0 Select objects to define hatch boundary or direct hatch,Select objects:Command: U (Lisp Expression) GROUP
|
| In das Form Lisp wechseln |
|
Lisp : command hatch einbauen
Dorfy am 05.05.2011 um 16:04 Uhr (1)
(command "_hatch" "ansi31" "2" "0" (car(entsel)) "")??? bei mir gehts!deine Fläche zu klein? händisch gehts? starte mal acad neu...------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."
|
| In das Form Lisp wechseln |
|
Lisp : command hatch einbauen
Dorfy am 05.05.2011 um 16:09 Uhr (1)
jörn gibt doch mal (command "_hatch") und (command "_bhatch") ein ------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."
|
| In das Form Lisp wechseln |
|
Lisp : command hatch einbauen
Steff179 am 05.05.2011 um 17:13 Uhr (1)
JaAber wenn du das in dein Lisp einbaust solltest du noch ein "(progn" setzen. Denn sonst zeichnet es dir nur wenn die Bedingungen nicht Erfüllt sind eine Schraffur und das mit einem OBJ das du dann nich hast (defun c:sa ( / ) (setvar "attreq" 1) (if (and (setq OBJ (car (entsel "
select hatch or pline !
"))) (setq LAYER (cdr (assoc 8 (entget OBJ)))) (setq FL (rtos (vla-get-area (vlax-ename-vla-object OBJ)) 2 2)) ) (progn (command "_-insert" "flache" (getpoint "
pik point
") (getvar "DIMSCALE") (ge ...
|
| In das Form Lisp wechseln |
|
Lisp : Geladene Befehle (funktionen) auslesen
cadplayer am 18.05.2016 um 08:49 Uhr (1)
Hi!Ja das mit (atoms-family 0) ist mir neu und gut zu wissen.Bei mir handelt es sich ausschliesslich um dll-funktionen, die in .net programmiert wurden. Alle Befehle fangen mit "NV" an.Einfach aus dem Grund, weil in Lisp manche Lösungen schneller umgesetzt werden können, meine Frage hier: gibt es ähnlich Auslesemethode für diese Befehle ?!------------------Gruss DirkBlog | Adolf Spende | Infra-Feed | ÅF AB
|
| In das Form Lisp wechseln |
|
Lisp : Problem: Neues Objekt (Punkt) in Block ohne Refedit
bertl24 am 10.05.2011 um 08:24 Uhr (0)
Guten Morgen!Ich würde gerne in eine bestehende Blockdefinition ein zusätzliches, neues Element (einen Punkt oder Linie) hinzufügen. Und das ohne dass ich mit Refbearb über die Blockreferenz das Element ergänze.Sprich mit "entmake" eine zusätzliches Element definieren und per Lisp an die Blockdefinition "anhängen".Geht das überhaupt und wenn ja wie?Besten Dank im Voraus.Michael
|
| In das Form Lisp wechseln |
|
Lisp : Skalieren mit VLA ???
Dorfy am 10.05.2011 um 08:08 Uhr (0)
ScaleEntity MethodScales an object equally in the X, Y, and Z directions???edit1:Code:(vla-ScaleEntity(vlax-ename-vla-object (car (entsel))) (vlax-3d-point (0 0 0)) 3.0)edit2:bei einer linie funzt es(vlax-method-applicable-p vlaobj ScaleEntity) also testen ob es geht ------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."[Diese Nachricht wurde von Dorfy am 10. Mai. 2011 editiert.][Diese Nachric ...
|
| In das Form Lisp wechseln |
TestEntmod.dwg.txt |
Lisp : entmod / Objekt DIMENSION
Bernd10 am 10.05.2011 um 15:44 Uhr (0)
Hallo,ich habe ein Problem, wenn ich das Objekt DIMENSION mit der Funktion entmod ändern möchte. Ich möchte dabei die Linien, die zu den Punkten der Gruppencodes 13 und 14 führen verkürzen. Mit der Funktion entmod werden diese beiden Punkte zwar wie gewünscht geändert, aber die Linien bleiben trotzdem so lang wie vor dem Aufruf von entmod. Zum besseren Verständnis habe ich noch eine Beispiel-Zeichnung und Test-Lisp beigelegt.Was muss ich noch tun, damit die Linien zu den Punkten der Gruppencodes 13 und 14 ...
|
| In das Form Lisp wechseln |
|
Lisp : Seite einrichten
Dober Heinz am 10.05.2011 um 12:47 Uhr (0)
HalloHabe jetzt das Heft bekommen, und das Lisp getestet.Es funktioniert super, ausser das es bei mir den Plotmassstab von MMauf Zoll umstellt.Das ist aber gar nicht fein, kann man das ändern.Danke------------------ Heinz
|
| In das Form Lisp wechseln |
|
Lisp : entmod / Objekt DIMENSION
archtools am 10.05.2011 um 18:37 Uhr (0)
Zitat:Original erstellt von Bernd10:Hallo,ich habe ein Problem, wenn ich das Objekt DIMENSION mit der Funktion entmod ändern möchte. Ich möchte dabei die Linien, die zu den Punkten der Gruppencodes 13 und 14 führen verkürzen. Mit der Funktion entmod werden diese beiden Punkte zwar wie gewünscht geändert, aber die Linien bleiben trotzdem so lang wie vor dem Aufruf von entmod. Zum besseren Verständnis habe ich noch eine Beispiel-Zeichnung und Test-Lisp beigelegt.Was muss ich noch tun, damit die Linien zu de ...
|
| In das Form Lisp wechseln |
