(Setq name_entita (Auto))
(setq vlaobj (vlax-ename->vla-object name_entita))) erhalten das Objekt (gleich zu Entität), Sie wissen immer noch nicht, was es ist, Zeile, Pline, etc.
(vlax-get-property vlaobj 'objectname) Typ Entität
(fnvarianttolisp (vlax-get-property vlaobj "startpoint") wenn es sich um eine Zeile handelt, die dieselbe Liste zurückgibt (cdr (assoc 10 Entitäten))
================================================================================================================================================================================================================================================================
Diese kleine Funktion meldet die Eigenschaften der ausgewählten Einheit
; was ist es?
(Defunc c:cce()
(setq n (car (sing))
(setq vlaobj (vlax-ename->vla-object n))
(vlax-dump-object vlaobj)
)
================================================================================================================================================================================================================================================================
; verwandelt variable Variante in Listen
(defun fnvarianttolisp(var)
(cond)
(= Typ var) 'variant)
(vlax-variant-value var)
(=Typ var) '
(mapcar 'fnvarianttolisp (vlax-safearray-> var))
)
(T var)
)
================================================================================================================================================================================================================================================================
ist nur der Anfang, auf dem Netz finden Sie viel Material.