level 1
你删了又画是想做动画吗？你换成entdel试看
2018年05月29日 22点05分
level 6
2
好嘞我试一下
2018年05月30日 01点05分
还是不行，动画里面还是只有一个在动，另一个消失了，直到程序结束才能出来，不过最后程序的结果是对的
2018年05月30日 02点05分
@得得意意哒 估计是没有刷新，强制刷新。update方法
2018年05月30日 06点05分
@springxxspring update是那个renderupdate吗？
2018年05月30日 14点05分
level 6
(defun c:tt (/ obj1 p1 obj2 p2)
(setqobj1 (vlax-ename->vla-object
(entmakex
(list '(0 . "CIRCLE") (list 10 0 0 0) (cons 40 50))
)
)
)
(setqp1 (vlax-safearray->list
(vlax-variant-value (vla-get-center obj1))
)
)
(setqobj2 (vlax-ename->vla-object
(entmakex
(list '(0 . "CIRCLE") (list 10 0 100 0) (cons 40 50))
)
)
)
(setqp2 (vlax-safearray->list
(vlax-variant-value (vla-get-center obj1))
)
)
(command "zoom" "w" "-1000,-50" "1000,150")
(repeat 100
(setq p1 (mapcar '+ p1 '(10 0 0))
p2 (mapcar '+ p2 '(-10 0 0))
)
(vla-put-center obj1 (vlax-3d-point p1))
(vla-put-center obj2 (vlax-3d-point p2))
(vla-update obj1)
(vla-update obj2)
(command "delay" "0")
)
(princ)
)
2018年05月31日 01点05分
3
(setqobj1 (vlax-ename->vla-object
(entmakex
(list '(0 . "CIRCLE") (list 10 0 0 0) (cons 40 50))
)
)
)
(setqp1 (vlax-safearray->list
(vlax-variant-value (vla-get-center obj1))
)
)
(setqobj2 (vlax-ename->vla-object
(entmakex
(list '(0 . "CIRCLE") (list 10 0 100 0) (cons 40 50))
)
)
)
(setqp2 (vlax-safearray->list
(vlax-variant-value (vla-get-center obj1))
)
)
(command "zoom" "w" "-1000,-50" "1000,150")
(repeat 100
(setq p1 (mapcar '+ p1 '(10 0 0))
p2 (mapcar '+ p2 '(-10 0 0))
)
(vla-put-center obj1 (vlax-3d-point p1))
(vla-put-center obj2 (vlax-3d-point p2))
(vla-update obj1)
(vla-update obj2)
(command "delay" "0")
)
(princ)
)
谢啦老哥，我试一下
2018年05月31日 01点05分