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

再见熊猫衣服

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

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

H-浩浩-H

谢谢分享………

lxl217114

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

bai2000

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

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

start4444

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

按空格就下一步了

love1030312

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

再见熊猫衣服

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

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

bai2000

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

ysq101

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

所以我都不敢跟人提钱

ysq101

;----------------矩形--------------
(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)
  )