矩形25x50，输入相对坐标的时候就输入25x50， 而不用输入@25x50，用lsp程序完成

李青松

输入矩形命令，选择第1点，再选择第二点，第二点 可以在屏幕上指定，
第二点 也可以输入相对坐标 ， 输入相对坐标 的时候让程序默认就是
相对坐标。比如建矩形25x50，输入相对坐标的时候就输入25，50，
而不用输入@25，50，这样就相对快捷一些。用lsp程序完成。

lucas_3333

干脆为您写的CAD算了

429014673

哥们，应该是@20,50

429014673

就多一个@还要编程呀？

ysq101

429014673 发表于 2014-3-25 11:25
就多一个@还要编程呀？

这个真有必要啊....编程就是让工作更快

ysq101

2. ;----------------矩形--------------
   
3. (defun c:recc ()
   
4.   (setq cen (getpoint "\n请输入矩形起点"))
   
5.   (setq xx (car cen)
   
6.         yy (cadr cen)
   
7.         )
   
8.   (setq X- (getdist  "\n请输入长度"))
   
9. (if (= x- nil) (quit ))
   
10.    (setq y- (getdist  "\n请输入宽度"))
    
11. (if (= y- nil) (quit ))
    
12.   (setq pt2 (list (+ x- xx)(+ y- yy)))
    
13.   (command  "RECTANG" cen pt2 )
    
14.   (princ)
    
15.   )
    

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

这是新手级别写的小程序.....笑纳吧
不像你说的那样  25X25
这直接25回车
          25回车

xyp1964

2. ;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF
   
3. ;; 画矩形
   
4. (defun c:tt ()
   
5.   (xyp-CMDLA0)
   
6.   (setq STR (USTR 1 "矩形尺寸" STR NIL);25x50 25-50 25\50
   
7.         lst (xyp-Get-HzEngNum str 3)
   
8.         ww  (distof (car lst))
   
9.         hh  (distof (cadr lst))
   
10.   )
    
11.   (while (setq p1 (getpoint "\n左下角基点<退出>: "))
    
12.     (setq p2 (xyp-Pt2XY p1 ww hh)
    
13.           s1 (xyp-rectang p1 p2)
    
14.     )
    
15.   )
    
16.   (xyp-CMDLA1)
    
17. )

;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF<br /> ;; 画矩形<br /> (defun c:tt ()<br />   (xyp-CMDLA0)<br />   (setq STR (USTR 1 "矩形尺寸" STR NIL);25x50 25-50 25\50<br />         lst (xyp-Get-HzEngNum str 3)<br />         ww  (distof (car lst))<br />         hh  (distof (cadr lst))<br />   )<br />   (while (setq p1 (getpoint "\n左下角基点<退出>: "))<br />     (setq p2 (xyp-Pt2XY p1 ww hh)<br />           s1 (xyp-rectang p1 p2)<br />     )<br />   )<br />   (xyp-CMDLA1)<br /> )

李青松

ysq101 发表于 2014-3-25 12:11
这个真有必要啊....编程就是让工作更快

是的，这个想法有价值

李青松

ysq101 发表于 2014-3-25 12:11
这个真有必要啊....编程就是让工作更快

我觉得这个想法，有价值

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)
  )

你看这样行不？？？？？？？？新手只能帮到这了
纠正：我提的问题应该是25,50 是我失误了。不知道最上面的25x50能修改成25,50吗
这句是什么意思？？？？难道按一下回车  不比输入一个 ， 快吗？？