谁会lisp， 请教，lisp 修改一个线段的 startpoint 为点（0,0,0） 怎么写？
请教，lisp 修改一个线段的 startpoint 为点（0,0,0） 怎么写？本帖最后由 自贡黄明儒 于 2022-8-31 18:06 编辑
(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)
自贡黄明儒 发表于 2022-8-31 17:31
(vlax-3d-point '(0 0 0))
(vlax-put obj 'StartPoint '(0 0 0))
黄老，直线的好看懂，多段线的可否具体点，没成功。 ;多段线
(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))) 自贡黄明儒 发表于 2022-8-31 17:31
(vlax-3d-point '(0 0 0))
(vlax-put obj 'StartPoint '(0 0 0))
真牛逼，还有这么多种方法。
页:
[1]