哪位大师能不能帮我修改下这个画百叶程序
(defun c:bC ()(setvar "CMDECHO" 0)
(command "_undo" "be")
(setq os (getvar "osmode"))
(setvar "osmode" 33)
(setq pt1 (getpoint "\n框选范围:")
pt3 (getcorner pt1)
pt2 (list (car pt1)(cadr pt3))
)
(setqkd (getreal "\n百叶框和条宽度<100>: "))
(if (null kd)(setq kd 100))
(setqjd (getreal "\n百叶分隔近似值间距200>: "))
(if (null jd)(setq jd 200))
(setqdd (- (distance pt1 pt2) kd)
nmb (/ dd (+ kd jd))
nmb (atoi (rtos nmb 2 0))
dst (/ dd nmb)
ang (angle pt2 pt1)
nmb (1- nmb)
)
(setvar "osmode" 0)
(setq p1 (list (+ kd (car pt2))(+ kd (cadr pt2)) ))
(setq p2 (list (- (car pt3) kd)(+ dst (cadr pt3)) ))
(command ".rectang""_non" pt1 "_non" pt3)
(command ".rectang""_non" p1 "_non" p2)
(setq recSS (entlast))
(command ".chprop" recSS "" "c" Bylayer "")
(command "_.COPY" recSS "" "M" p1)
(repeat nmb
(command (setq p1 (polar p1 ang dst)))
)
(command "")
(setvar "osmode" os)
(command "_undo" "e")
(setvar "CMDECHO" 1)
(princ)
)
(princ "\n本程序采摘自www.lisp123.com更多内容敬请期待！")
(princ "\n本程序命令：BC")
(princ)
本帖最后由 xvjiex 于 2020-12-10 15:14 编辑
帮你改了，请测试。
已经调整，再试试。
已经简化，需要改时调出子选项，不需要就作为默认选项。
xvjiex 发表于 2020-12-10 12:23
帮你改了，请测试。
2012测试下运行有问题哦，
GDFGFGF 发表于 2020-12-10 13:20
2012测试下运行有问题哦，
2008的版本也是一样的，不稳定了，大师，在改进下，:handshake 已经调整，再试试。 xvjiex 发表于 2020-12-10 13:26
已经调整，再试试。
好的
谢谢 xvjiex 发表于 2020-12-10 12:23
帮你改了，请测试。
已经调整，再试试。
输入命令: bc
如果是重复使用的该程序的话能不能直接：
命令BC 确定
请选择矩形 或（请输入百叶框和条宽度<80.000>：请输入百叶分隔近似值间距<160.000>）如果数值不变得话直接确定下一步了，不要重复输入了。谢谢:handshake
如果显示的80符合你的要求，直接右键，不用输入。160也是。 xvjiex 发表于 2020-12-10 13:52
如果显示的80符合你的要求，直接右键，不用输入。160也是。
就是想直接跳过这两步咯，多了就耽误时间{:1_1:} xvjiex 发表于 2020-12-10 13:52
如果显示的80符合你的要求，直接右键，不用输入。160也是。
大师，能不能在优化下:handshake