[求助]：[1225]请教矩形指令问题?

xyz518mm

[求助]：[1225]请教矩形指令问题?
在指令行输入中绘制矩形指定另一对角点时可以输入
相对座标 如(@100,200)

想问的是在 LISP 中该怎样叙述呢
烦请各位高手解答~
谢谢~

eachy

(vl-cmdf ".rectang" (getpoint "\nPoint: ") "@120,340")

xyz518mm

那如果将对此"@100,200"的值转换为

变数距离如 "@hh,dd"

该怎样叙述呢

Underway

(strcat "@" (rtos hh) "," (rtos dd))

xyz518mm

如果要在判断程序中数值得正值及负值该怎样处理呢

以下是小弟写的程序

但有问题

烦请各位高手修正一下

谢谢了

(defun c:ts ()
(setq pa (getpoint "Enter First Point:"))
(setq ww (getdist pa "\nWidth:"))
(setq hh (getdist pa "\nHeight:"))

(setq pc1 (list (+ (car pa) ww)(+ (cadr pa) hh)))
(setq pc2 (list (- (car pa) ww)(+ (cadr pa) hh)))
(setq pc3 (list (- (car pa) ww)(- (cadr pa) hh)))
(setq pc4 (list (+ (car pa) ww)(- (cadr pa) hh)))

(cond
(and(< ww 0)(< hh 0))
(command "RECTANG" pa pc1)
(and(> ww 0)(< hh 0))
(command "RECTANG" pa pc2)
(and(> ww 0)(> hh 0))
(command "RECTANG" pa pc3)
(and(< ww 0)(> hh 0))
(command "RECTANG" pa pc4)
)

)

xyp1964

2. [FONT=courier new](defun c:ts ()
   
3.   (setq        pa  (getpoint "\nEnter First Point : ")
   
4.         ww  (getdist pa "\nWidth : ")
   
5.         hh  (getdist pa "\nHeight : ")
   
6.         pc1 (list (+ (car pa) ww) (+ (cadr pa) hh))
   
7.   )
   
8.   (command "RECTANG" pa pc1)
   
9.   (princ)
   
10. )[/FONT]

[FONT=courier new](defun c:ts ()<br />   (setq        pa  (getpoint "\nEnter First Point : ")<br />         ww  (getdist pa "\nWidth : ")<br />         hh  (getdist pa "\nHeight : ")<br />         pc1 (list (+ (car pa) ww) (+ (cadr pa) hh))<br />   )<br />   (command "RECTANG" pa pc1)<br />   (princ)<br /> )[/FONT]

cy956

如果数值都知道了，干嘛还rectang，直接求四点entmake一条pline不是更直接？