Estrudere elementi zu einem festen Edelstahl

[Mcgyver]

Hallo alle!!!
Ich hätte ein wenig Probleme zu lösen, es ist nur, dass ich in lisp Programm gelernt habe, um einen neuen Befehl für autocad 2009 zu erstellen,
und mein Problem ist das Folgende, ich sollte einige hexagonförmige Wesen extrudieren und nicht genau, wie es zu tun.

Gibt es eine Sitema-Variable, die dem letzten ausgewählten Objekt entspricht?

Können Sie mir helfen?

Danke für die Zusammenarbeit......

 

[confutatis]

(entlast) gibt Ihnen die letzte Entität.

 

[Mcgyver]

Vielen Dank für Ihre Hilfe.

 

[GP.]

Wenn es dienen kann, hänge ich eine Lispe an, die ich getan hatte, um die Schaffung von Gebäuden durch Extrudieren von Polylinien und Regionen gleichzeitig und in unterschiedlichen Höhen zu imitieren.

;
;;;
;

(defunc c:estr (/ sel n ogg ogg_vl hp1 type_ogg)
(vl-load-com)
(Befehl "_undo" "_begin")
(Setq cmd (getvar "cmdecho")
(Setvar "cmdecho" 0)
(Prompt "\n ")
(Initget 7)
(setq h_min (getint "\ninserire die Mindesthöhe: ")
(setq h_max (getint "\ninserire die maximale Höhe: ")
(falls = h_max h_min)
(falls zutreffend)
(Prompt "\n ")
(princ "\nil Wert muss höher sein als ")
(Prompt (itoa h_min)) (Prompt " (Mindesthöhe) ")
(setq h_max (getint "\ninserire die maximale Höhe: ")
)
)
(wenn (= hp nil) (setq hp "s")
(initget "s n")
(prompt "\ninterplane of 3 mt. (vom niedrigsten) <)
(Prompt)
(initget "s n")
(setq hp1 (getkword )
(falls (/= hp1 nil) (setq hp hp1))
(setq sel (ssget '(0 . "polyline,lwpolyline,region")))
(Repeat (setq n (sslength sel))
(setq ogg (ssname sel (setq n (1-n)))
(setq ogg_vl (vlax-ename->vla-object ogg))
(setq tipo_ogg (vlax-get ogg_vl 'objectname)
(falls)
(= type_ogg "acdbregion")
(sing)
(vl-position tipo_ogg '("acdbpolyline"acdb2dpolyline)
(vlax-curve-isclosed ogg_vl)
)
)
(Progn)
(if (= hp "s") (Befehl "_extrude" ogg" (random h_min (1+ h_max))
(if ('atoi (getvar 'acadver') 17)'
(if (= hp "n") (Befehl "_extrude" ogg" (random1 h_min (1+ h_max))
(if ('atoi (getvar 'acadver') 17)'
)
)
)
(Setvar "cmdecho" cmd)
(Befehl "_undo" "_end")
)

(defun random (min max / #)
(Setq h 100.5)
(- h_min) 3) 0)
(setq h
(fix (+ min) (- max min) (- (setq # (* 1000000 (getvar "cdate"))))))
)
)
)

(defun random1 (min max / #)
(fix (+ min) (- max min) (- (setq # (* 1000000 (getvar "cdate"))))))
)

(prompt "\n ") (prompt "\n ") (prompt "\n ")
(princ "\nestrusion von Regionen und geschlossenen Polylinien. "
(princ "\ndigitare estr, um die Lispe zu starten ")
(princ)

 

[Mcgyver]

Vielen Dank. Ich werde den Inhalt Ihres Quellcodes studieren und Teile für das anwenden, was ich brauche!