分享个自己写的渣渣。。。
看能不能满足你我习惯
(支持鼠标点对角线和单独输入长/宽模式)
本帖最后由 wen1235 于 2019-6-19 09:04 编辑
(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)
)
start4444 发表于 2019-6-4 16:58
加入了黄大师的提取数字函数，直接输入长高，中间用非数字隔开就行。
【把如果不输入长高就直接选点加 ...
很实用的程序，多谢分享
start4444 发表于 2019-6-4 16:58
加入了黄大师的提取数字函数，直接输入长高，中间用非数字隔开就行。
【把如果不输入长高就直接选点加 ...
大哥，我想学一下，能不能通过TXT或着Excel 有长宽尺寸一次性导入cad
清水白粥 发表于 2023-11-2 17:54
大哥，我想学一下，能不能通过TXT或着Excel 有长宽尺寸一次性导入cad
当然可以，而且不难，所以要自己学，学半个月就基本可以慢慢边搞起来，论坛里现有的程序弄过来修修改改就可以满足一些个性化的要求，当然，要成为高手还是要花时间和下苦功的。
zhaoxt 发表于 2023-11-2 18:32
当然可以，而且不难，所以要自己学，学半个月就基本可以慢慢边搞起来，论坛里现有的程序弄过来修修改改就 ...
有没现有，或者类似的参考一下，
start4444 发表于 2019-6-4 16:58
加入了黄大师的提取数字函数，直接输入长高，中间用非数字隔开就行。
【把如果不输入长高就直接选点加 ...
感谢大佬，很好用