Entget on objects

gwhitcherQ98HZ — Sun, 12 Nov 2023 01:34:52 GMT

I am using this code and I want to entget each object. I keep getting the error for lines. and will not proceed afetr this error
** Error: bad argument type: lentityp #<VLA-OBJECT IAcadLine 000001d4e8d0e388> **

Any help would be appreciated

here is the code:

(vlax-map-collection (vla-get-modelspace doc)

'(lambda (object)

(cond ((= "AcDbBlockReference" (vla-get-objectname object))) (princ))

(cond ((= "AcDbMText" (vla-get-objectname object)) (princ)))

(cond ((= "AcDbHatch" (vla-get-objectname object)) (princ)))

(cond ((= "AcDbLine" (vla-get-objectname object))

(progn

(setq entg (entget (vlax-Ename->Vla-Object object)))

(setq start (cdr (assoc 10 entg)))

(setq end (list (nth 0 start) (nth 1 start) 0 ))

(vla-move object (vlax-3d-point start)(vlax-3d-point end))

)

))

(cond ((= "AcDbPolyline" (vla-get-objectname object))

(progn

(setq entg (entget (vlax-Ename->Vla-Object object)))

(setq start (cdr (assoc 10 entg)))

(setq end (list (nth 0 start) (nth 1 start) 0 ))

(vla-move object (vlax-3d-point start)(vlax-3d-point end))

)

))

)

Re: Entget on objects

paullimapa — Sun, 12 Nov 2023 02:25:52 GMT

you start off with:

(vlax-map-collection (vla-get-modelspace doc)

which creates a set of vl objects

but this line of code converts entities to objects:

(vlax-Ename->Vla-Object object)

so instead use this line of code to convert vl objects to entities:

(vlax-vla-object->ename object)

Re: Entget on objects

gwhitcherQ98HZ — Sun, 12 Nov 2023 04:14:08 GMT

Thank you so much!

Re: Entget on objects

paullimapa — Sun, 12 Nov 2023 04:26:25 GMT

Glad to have helped…cheers!!!

topic Re: Entget on objects in Visual LISP, AutoLISP and General Customization Forum

Entget on objects

Re: Entget on objects

Re: Entget on objects

Re: Entget on objects