(vl-load-com)
(setq ent_set (entsel "选择单元")) ;获取选择集
(while (= ent_set nil) (setq ent_set (entsel "选择单元")))
(setq pn_ent (car ent_set))
(setq Curve (vlax-ename->vla-object pn_ent)) ;获取曲线对象
(setq Curve_StartP (vlax-curve-getStartPoint Curve))
;获取曲线起点与终点
(setq Curve_EndP (vlax-curve-getendPoint Curve))
(command "line" Curve_StartP)
(repeat 10
(progn
(setq Ls_cut (+ Ls_cut 100))
(setq Points1 (vlax-curve-getPointAtDist curve Ls_cut))
(command Points1)
))
(command Curve_EndP)
(command "“)
执行程序后为什么画不出想要的多段线？检查过Points1坐标没有问题，但是多段线中的所有Points1点都在Curve_StartP点上，为什么？？？

原来关闭自动补足即可