HGHG011 发表于 2013-1-18 10:33:51

command "STRETCH" 命令中 是否可以改变 view 求高手帮忙

(defun C:o3s(/ pt1 pt2 a b)

(SETQ PT1(GETPOINT "\n选择对象:"))
(SETQ PT2(GETPOINT "\n指定对角点:"))
(command "view" "s" "a")   --> 保存 视图 名字为1 。。。之类的,注意不要重名就是了。
(command "zoom" "w" pt1 pt2)
(command "STRETCH" "c" pt1 pt2 "")
(command "view" "r" "a")    -->下次恢复视图1
)

其中命令最后一行 不执行
求高手



http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 HGHG011的微博

zyhandw 发表于 2013-1-18 11:34:37

应该是(command "STRETCH" "c" pt1 pt2 "")这句没有执行完吧?
页: [1]
查看完整版本: command "STRETCH" 命令中 是否可以改变 view 求高手帮忙