请求帮忙修改Z版主的一个程序

liuhaixin88 · 发表于 2014-1-23 13:38:51

源码如下：

;参照旋转明经 ZZXXQQ 2013.5.10 2013.5.11改
(defun c:rr ()
(setvar "CMDECHO" 0)
(if (and (princ "\n选择要旋转的物体: ")
(setq ss (ssget))
(setq pc (getpoint "\n旋转中心点: "))
(setq pt (getpoint pc "\n参照角度: "))
) (progn
(command "_.CIRCLE" pc "non" pt)
(setq s2 (entlast))
(setq s1 (entlast) sa (ssadd))
(command "_.COPY" ss "" "0,0" "0,0")
(while (setq s1 (entnext s1)) (ssadd s1 sa))
(command "_.ROTATE" ss "" pc "R" pc pt PAUSE)
(setq yn (strcase (getstring "\n是否复制(R/<N>): ")))
(if (= yn "") (command "_.ERASE" sa ""))
(command "_.ERASE" s2 "")
))
(setvar "CMDECHO" 1)
(princ)
)

试过，当出现“否复制(R/<N>”时，无论是输入R还是N,结果好像都一样
请求修改代码，加入一个选择“是否删除源对象” 意思是旋转后是否删除源对象！
谢谢各位大哥哥的帮助！

该贴已经同步到 liuhaixin88的微博

liuhaixin88 · 发表于 2014-1-23 15:46:57

高手们都放假了吗？

springwillow · 发表于 2014-1-23 16:24:04

本帖最后由 springwillow 于 2014-1-23 16:51 编辑

这个代码也不复杂，你啥都不输直接回车就是删除原对象，你输入任何都西都是复制。他那个表示是可以输入R来复制，回车默认是N，所以你想删除原对象直接回加就好!也可以把(if (= yn "") (command "_.ERASE" sa ""))这个改为(if (or(= yn "N")(= yn "n")) (command "_.ERASE" sa ""))

liuhaixin88 · 发表于 2014-1-23 16:37:46

springwillow 发表于 2014-1-23 16:24
这个代码也不复杂，你啥都不输直接回车就是删除原对象，你输入任何都西都是复制。他那个表示是可以输入R来复 ...

这样改了，无论输入什么都是删除源对象了，我想要一个字母删除，一个字母保留源对象

springwillow · 发表于 2014-1-23 16:40:14

liuhaixin88 发表于 2014-1-23 16:37
这样改了，无论输入什么都是删除源对象了，我想要一个字母删除，一个字母保留源对象

改完了R是不删除

liuhaixin88 · 发表于 2014-1-23 16:44:40

springwillow 发表于 2014-1-23 16:40
改完了R是不删除

我试过了，R 也是删除

springwillow · 发表于 2014-1-23 16:52:47

liuhaixin88 发表于 2014-1-23 16:44
我试过了，R 也是删除

改为(if (or(= yn "N")(= yn "n")) (command "_.ERASE" sa ""))。这样只有输N是删除，输入其它都不是删除了

liuhaixin88 · 发表于 2014-1-23 16:59:56

springwillow 发表于 2014-1-23 16:52
改为(if (or(= yn "N")(= yn "n")) (command "_.ERASE" sa ""))。这样只有输N是删除，输入其它都不是删除 ...

谢谢你了

ZZXXQQ · 发表于 2014-1-24 08:22:29

;参照旋转明经 ZZXXQQ 2013.5.10 2013.5.11 2014.1.24改
(defun c:rr ()
(setvar "CMDECHO" 0)
(if (and (princ "\n选择要旋转的物体: ")
(setq ss (ssget))
(setq pc (getpoint "\n旋转中心点: "))
(setq pt (getpoint pc "\n参照角度: "))
) (progn
(command "_.CIRCLE" pc "non" pt)
(setq s2 (entlast))
(setq s1 (entlast) sa (ssadd))
(command "_.COPY" ss "" "0,0" "0,0")
(while (setq s1 (entnext s1)) (ssadd s1 sa))
(command "_.ROTATE" ss "" pc "R" pc pt PAUSE)
(setq yn (strcase (getstring "\n是否复制(R/<N>): ")))
(if (/= yn "R") (command "_.ERASE" sa ""))
(command "_.ERASE" s2 "")
))
(setvar "CMDECHO" 1)
(princ)
)

edata · 发表于 2014-1-25 11:53:54

为什么不用getkword

;参照旋转明经 ZZXXQQ 2013.5.10 2013.5.11 2014.1.24改
(defun c:rr (/ ss pc pt s2 s1 sa yn)
(setvar "CMDECHO" 0)
(if (and (princ "\n选择要旋转的物体: ")
(setq ss (ssget))
(setq pc (getpoint "\n旋转中心点: "))
(setq pt (getpoint pc "\n参照角度: "))
)
(progn
(command "_.CIRCLE" pc "non" pt)
(setq s2 (entlast))
(setq s1 (entlast) sa (ssadd))
(command "_.COPY" ss "" "0,0" "0,0")
(while (setq s1 (entnext s1)) (ssadd s1 sa))
(command "_.ROTATE" ss "" pc "R" pc pt PAUSE)
(initget "Rotate No _R N")
(setq yn (getkword "\n是否复制(R/<N>): "))
;(setq yn (strcase (getstring "\n是否复制(R/<N>): ")))
(if (/= yn "R") (command "_.ERASE" sa ""))
(command "_.ERASE" s2 "")
)
)
(setvar "CMDECHO" 1)
(princ)
)

账号		自动登录	找回密码
密码			注册

[已解答] 请求帮忙修改Z版主的一个程序

相关帖子

点评

点评