object selection with visual lisp

[Cristallo]

in lisp (not visual) I can get the name of the entity or its complete list via
(setq name_entita (car (entsel)))
(setq entita (entget (entsel))))

the same information, via visual lisp how do you get it?

 

[rpor66]

(setq name_entita (car (entsel)))

(setq vlaobj (vlax-ename->vla-object name_entita)) get the object (equal to entity), you still do not know what it is, line, pline, etc.

(vlax-get-property vlaobj 'objectname) type entity

(fnvarianttolisp (vlax-get-property vlaobj "startpoint")) if it were a line returns the same list (cdr (assoc 10 entities))

================================================================================================================================================================================================================================================================
this small function reports the properties of the selected entity
; what is it?
(defunc c:cce()
(setq n (car (sing))
(setq vlaobj (vlax-ename->vla-object n))
(vlax-dump-object vlaobj)
)
================================================================================================================================================================================================================================================================
; turns variable variant type into lists
(defun fnvarianttolisp(var)
(cond)
(= (type var) 'variant)
(vlax-variant-value var))
((=type var) 'safearray'
(mapcar 'fnvarianttolisp (vlax-safearray-> var))
)
(T var)
)
================================================================================================================================================================================================================================================================

is just the beginning, on the net you find a lot of material.

 

[Cristallo]

kill, a bit more complicated than dry lisp, although I saw that you can get more targeted functions (like intersection of a straight with a beads, a distance on a curve etc)

 

[rpor66]

commands added with vl-load-com use the same logic as vba, so objects with properties and methods, learn one and understand the other.
Hi.