(defun C:incercare (/ )
(setq linie (entget (entlast))
startp (assoc 10 linie) ; line start point
lineen (subst (list 10 5.0 5.0 0.0) startp linie))
(entmod linie)
)
我正在尝试修改最后绘制的线条的起点。在调用incercare函数之后,什么都没有发生
更改:
(entmod linie)
to
(entmod lineen)