求大神帮忙写一个一键画矩形的小程序。。

ysq101

分享个自己写的渣渣。。。
看能不能满足你我习惯
(支持鼠标点对角线和单独输入长/宽模式)

wen1235

(defun c:tec (/ dh d h strh strd p)
  (if (not (eq "" (setq dh (getstring t "\n*** 输入矩形长@高: "))))
    (progn (setq d (vl-string-subst "," "，" dh)) ;;四个方向输入 -15,12 -15,-12 15,12 15,-12 支持中文逗号 支持空格
           (setq d (vl-string-subst "," " " d))
           (setq strh (member 44 (vl-string->list d)))
           (setq h (read (vl-list->string (cdr strh))))
           (setq strd (member 44 (reverse (vl-string->list d))))
           (setq d (read (vl-list->string (reverse (cdr strd)))))
           (while (and dh h d (setq p (getpoint "\n*** 选取放置点: ")))
             (command "_rectang" "non" p "non" (list (+ (car p) d) (+ (cadr p) h)))
           )
    )
  )
  (princ)
)

sunny_8848

start4444 发表于 2019-6-4 16:58
加入了黄大师的提取数字函数，直接输入长高，中间用非数字隔开就行。

【把如果不输入长高就直接选点加 ...

很实用的程序，多谢分享

清水白粥

start4444 发表于 2019-6-4 16:58
加入了黄大师的提取数字函数，直接输入长高，中间用非数字隔开就行。

【把如果不输入长高就直接选点加 ...

大哥，我想学一下，能不能通过TXT或着Excel 有长宽尺寸  一次性导入cad

zhaoxt

清水白粥 发表于 2023-11-2 17:54
大哥，我想学一下，能不能通过TXT或着Excel 有长宽尺寸  一次性导入cad

当然可以，而且不难，所以要自己学，学半个月就基本可以慢慢边搞起来，论坛里现有的程序弄过来修修改改就可以满足一些个性化的要求，当然，要成为高手还是要花时间和下苦功的。

清水白粥

zhaoxt 发表于 2023-11-2 18:32
当然可以，而且不难，所以要自己学，学半个月就基本可以慢慢边搞起来，论坛里现有的程序弄过来修修改改就 ...

有没现有，或者类似的参考一下，

vista228

start4444 发表于 2019-6-4 16:58
加入了黄大师的提取数字函数，直接输入长高，中间用非数字隔开就行。

【把如果不输入长高就直接选点加 ...

感谢大佬，很好用