ikias 发表于 2023-8-20 19:38:19

三维模块的复制+旋转




下面这个LISP，是一个三维模块的复制+旋转的LISP。
分享给大家。

(defun c:TDR (/ ss)
(setq ss (ssget))
(command "copy" ss "" "" "0,0,0" "" "0,0,0")
(initcommandversion)
(command "3DROTATE" ss "")
(princ)
)

zxh92 发表于 2023-8-20 20:04:28

(initcommandversion)
页: [1]
查看完整版本: 三维模块的复制+旋转