- 积分
- 13983
- 明经币
- 个
- 注册时间
- 2013-9-7
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
本帖最后由 荒野孤行 于 2015-6-2 19:44 编辑
这样更改了Z坐标后,再结合变换的视图,用来做叠层侧视图是很方便的。示例请见图片。
;;;***移动Z坐标 程序开始*****
(defun c:z1 ()
(setvar "cmdecho" 0)
(setvar "OSMODE" 15359)
(command "undo" "be")
(princ "\n★功能:快速移动图元Z轴距离.")
(setq ss (ssget))
(initget 2)
(if (not (setq zgd (getreal "\n设置沿Z轴移动距离<5>:"))) (setq zgd 5.0))
(setvar "cmdecho" 0)
(setq pt0 (list 0 0 0))
(setq pt1 (list 0 0 zgd))
(command "MOVE" ss "" pt0 pt1)
(command "undo" "e")
(setvar "OSMODE" 15359)
(princ)
)
;;;***移动Z坐标 程序结束*****
图片中使用到的插件(WDY工具箱)的地址:http://bbs.mjtd.com/thread-108389-1-1.html |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?注册
x
|