1466| 9
|
[提问] 悬赏做个移动的lisp |
10明经币
最佳答案;;;方法一
(defun c:test1 (/ ss p1 p2)
(if (setq ss (ssget '((0 . "DIMENSION"))))
(progn
(setq p1 (vlax-3d-point '(0 0 0))
p2 (vlax-3d-point (trans '(0 0 5000) 1 0))
)
(repeat (setq n (sslength ss))
(vla-move (vlax-ename->vla-object (ssname ss (setq n (1- n)))) p1 p2)
)
)
)
(princ)
)
;;;方法二
(defun c:test2(/ ss mat)
;;; ...
| ||
发表于 2018-10-15 11:05
|
显示全部楼层
| ||
| ||
发表于 2018-10-16 08:57
|
显示全部楼层
| ||
| ||
发表于 2018-12-6 06:09
|
显示全部楼层
| ||
| ||