再见熊猫衣服 发表于 2019-6-5 12:26:05

start4444 发表于 2019-6-5 11:50
不需要的，只是举手之劳，自己在明经学到了很多，也希望在这能帮一下别人同时自己也会提高

非常感谢·························

H-浩浩-H 发表于 2019-6-5 23:24:44

谢谢分享………

lxl217114 发表于 2019-6-6 10:36:59

小姑娘不知道是看不起知识的价值还是咋滴，给10块，还不如说声谢谢来的好

bai2000 发表于 2019-6-6 10:54:17

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

能不能用空格隔开长宽，方便点

start4444 发表于 2019-6-6 11:23:50

bai2000 发表于 2019-6-6 10:54
能不能用空格隔开长宽，方便点

按空格就下一步了

love1030312 发表于 2019-6-6 12:22:35

我看了楼主的要求怎么总感觉就是多按一下D就搞定的事情吗？还要lsp吗？~~

再见熊猫衣服 发表于 2019-6-6 17:11:58

bai2000 发表于 2019-6-6 10:54
能不能用空格隔开长宽，方便点

空格表确定，肯定不行的了

bai2000 发表于 2019-6-6 17:42:40

G版过去有个多重偏移的程序就是用空格间隔两个数据的（可能用他的函数），可惜一时找不多了

ysq101 发表于 2019-6-18 03:33:32

lxl217114 发表于 2019-6-6 10:36
小姑娘不知道是看不起知识的价值还是咋滴，给10块，还不如说声谢谢来的好

所以我都不敢跟人提钱

ysq101 发表于 2019-6-18 03:35:25

;----------------矩形--------------
(defun c:recc ( / pt2 pt3 cen yy xx)
(if (= nil (setq pt3 (getpoint "\n请输入矩形对角点<回车进入输入长宽模式>"(setq cen (getpoint "\n请输入矩形起点")))))
(progn
    (setq xx (car cen)
          yy (cadr cen))
(setq X- (getdist"\n请输入长度"))
(if (= x- nil) (quit ))
   (setq y- (getdist"\n请输入宽度"))
(if (= y- nil) (quit ))
(setq pt2 (list (+ x- xx)(+ y- yy)))
(command"RECTANG" cen pt2 )
)
    (progn
(command"RECTANG" cen pt3 )
)
    )

(princ)
)
页: 1 [2] 3
查看完整版本: 求大神帮忙写一个一键画矩形的小程序。。