哪位大师能不能帮我修改下这个画百叶程序

GDFGFGF

(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))
  )
  (setq  kd (getreal "\n百叶框和条宽度<100>: "))
  (if (null kd)(setq kd 100))
  (setq  jd (getreal "\n百叶分隔近似值间距200>: "))
  (if (null jd)(setq jd 200))
  (setq  dd (- (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

帮你改了，请测试。

已经调整，再试试。
已经简化，需要改时调出子选项，不需要就作为默认选项。

GDFGFGF

xvjiex 发表于 2020-12-10 12:23
帮你改了，请测试。

2012测试下运行有问题哦，

GDFGFGF

GDFGFGF 发表于 2020-12-10 13:20
2012测试下运行有问题哦，

2008的版本也是一样的，不稳定了，大师，在改进下，

xvjiex

已经调整，再试试。

GDFGFGF

xvjiex 发表于 2020-12-10 13:26
已经调整，再试试。

好的
谢谢

GDFGFGF

xvjiex 发表于 2020-12-10 12:23
帮你改了，请测试。

已经调整，再试试。

输入命令: bc     
如果是重复使用的该程序的话能不能直接：
命令BC     确定  
请选择矩形   或  （  请输入百叶框和条宽度<80.000>：请输入百叶分隔近似值间距<160.000>）如果数值不变得话直接确定下一步了，不要重复输入了。谢谢

xvjiex

如果显示的80符合你的要求，直接右键，不用输入。160也是。

GDFGFGF

xvjiex 发表于 2020-12-10 13:52
如果显示的80符合你的要求，直接右键，不用输入。160也是。

就是想直接跳过这两步咯，多了就耽误时间

GDFGFGF

xvjiex 发表于 2020-12-10 13:52
如果显示的80符合你的要求，直接右键，不用输入。160也是。

大师，能不能在优化下