(setq ARC (vlax-ename->vla-object (car ARC))
STARC (vlax-curve-getstartpoint ARC)
ENDARC (vlax-curve-getendpoint ARC)
)
(vl-cmdf "line" STARC ENDARC "")
I haven't tried or spent much time on this yet, but at first glance it seems we need to ween you of the vl-cmdf crutch. You've got a start point and an endpoint. You need to put this (setq model (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))) in the code and then
(vla-addLine model starc endarc) in place of vl-cmdf. If you're going to go through the vla-object, you may as well finish by creating one.[/quote][/code]