谁会lisp， 请教，lisp 修改一个线段的 startpoint 为点（0,0,0） 怎么写？

tiancao100

请教，lisp 修改一个线段的 startpoint 为点（0,0,0） 怎么写？

自贡黄明儒

(vlax-3d-point '(0 0 0))

(vlax-put obj 'StartPoint '(0 0 0))

;;直线
(vlax-put-property (vlax-ename->vla-object(car(entsel))) 'StartPoint (vlax-3d-point '(0 0 0)))

(vla-put-StartPoint (vlax-ename->vla-object(car(entsel))) (vlax-3d-point '(0 0 0)))

;;多段线
(vla-put-ControlPoints obj p)

tigcat

自贡黄明儒 发表于 2022-8-31 17:31
(vlax-3d-point '(0 0 0))

(vlax-put obj 'StartPoint '(0 0 0))

黄老，直线的好看懂，多段线的可否具体点，没成功。

tigcat

;多段线
(vla-put-Coordinates ven(vlax-make-variant(vlax-safearray-fill(vlax-make-safearray vlax-vbdouble(cons 0 (1- (length (setq lst2(append '(0 0)(cddr (vlax-safearray->list(vlax-variant-value(vla-get-Coordinates (setq ven(vlax-ename->vla-object(car(entsel)))) ))))))))))lst2)))

hubeiwdlue

自贡黄明儒 发表于 2022-8-31 17:31
(vlax-3d-point '(0 0 0))

(vlax-put obj 'StartPoint '(0 0 0))

真牛逼，还有这么多种方法。