求自定义矩形
本人小白，求大神帮忙写个自定义的矩形的LSP 一数字编号为例 输入命令按数字1成矩形（10X10）命令2成矩形（20X20）括号内的矩形大小可以自定义以便能修改 以此推类30个数字 先谢谢大家了;;一键矩形
(defun HRectang (p str)
(command "_.Rectang" p (strcat "@" (vl-string-translate "X" "," str)))
)
(defun C:tt (/ LST P STR)
(princ "\n 1<200*200>；2<400*200>；3<400*400>；4<500*500>；5<600*600>；6<700*700>；7<800*800>")
(setq lst '("200X200" "400X200" "400X400" "500X500" "600X600" "700X700" "800X800" ))
(setq num (getint "\n 请输入矩形对应序号1-7:"))
(setq i 0)
(foreach x lst
(setq p nil)
(setq i (+ i 1))
(if(= i num)
(cond ((setq p (getpoint "\n 请点击左下角基点")) (HRectang p x)))
)
)
) 非常感谢，我保存了LSP 加载到CAD2020版本里面没反应 这是怎么回事啊是不是缺少了什么 江南十笑 发表于 2020-10-12 08:50
可以在代码中加入L直角的图形吗？比如200+200的L形图形
页:
[1]