- 积分
- 60757
- 明经币
- 个
- 注册时间
- 2004-6-15
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
发表于 2011-2-1 09:25:54
|
显示全部楼层
论坛有Z坐标归零贴子。直接使用MOVE命令两次就行。
(defun c:tt ()
(setvar "CMDECHO" 0)
(if (setq ss (ssget))
(command ".MOVE" ss "" "0,0,0" "0,0,1000e99" ".MOVE" "P" "" "0,0,1000e99" "0,0,0")
)
(setvar "CMDECHO" 1)
(princ)
) |
|