请教一个问题，对于我有点难

fengshi0519

我们画矩形的时候，相对坐标前要先输入@，然后才可以输入长和宽，怎么可以再我执行命令后，直接输入长和宽就可以了，跳过输入或者省去输入@符号呢？

最好可以用lisp来解决，我刚刚接触lisp，现在还编不出来，那位可以帮我一下，应该很简单，可是我就是不知道怎么来实现，给个思路也可以！

先谢谢了！

sjz203

我略懂一点LISP，我有个想法不知道对你有用没；你可以 做一个加函数，就是让这个程序获取上次坐标的输入值，然后在你下次输入坐标值后，让程序自动将获取的上个坐标的X 和Y值分别和这次的相加。

也就是说程序里有两个变量一直储存上次的X,Y坐标值，当然，X,Y初始值是0，然后随着你的操作，X,Y更新，最后应该有个加函数，应该就行了

具体怎么做还得看你 ，我只是个大体思路，仅供参考

yshf

3. (defun c:cc()
4.     (setq p1 (getpoint "\n指定第一个角点:")
5.    l  (getreal "\n长度:")
6.    w  (getreal "\n宽度:")
7.    p2 (mapcar '+ p1 (list l w))  
8.     )
9.     (command "_rectang" p1 p2)
10. )

(defun c:cc()     (setq p1 (getpoint "\n指定第一个角点:")    l  (getreal "\n长度:")    w  (getreal "\n宽度:")    p2 (mapcar '+ p1 (list l w))       )     (command "_rectang" p1 p2) )

fengshi0519

谢谢sjz203，谢谢yshf，谢谢你们的帮助

我明天去公司试试

sailorcwx

getreal改成getdist，既可以由用户输入，又可以由图面量取