bearbear1 发表于 2010-6-11 17:42:00

基础问题 (setq p2 (mapcar '+ p1 '(w h))

<font face="Verdana">(defun c:dd()<br/>&nbsp;&nbsp;&nbsp; (setq w (getreal "\n门的宽度") );门的宽度<br/>&nbsp;&nbsp;&nbsp; (setq h (getreal "\n立挺的高度:"));立挺的高度<br/>&nbsp;&nbsp;&nbsp; (setq p1 (getpoint "\n请选择图框的左下角个点:"))<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq p2 (mapcar '+ p1 '(w h))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;问题出在这，怎么改????????????????<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; (command "_rectang" p1 p2)<br/>&nbsp;&nbsp;&nbsp;&nbsp; (princ)<br/>)<br/></font>

bearbear1 发表于 2010-6-11 17:43:00

<p>想画一个门的立面图</p>

ZZXXQQ 发表于 2010-6-11 17:55:00

这样试试：(setq p2 (mapcar '+ p1 (list w h))<br/>
页: [1]
查看完整版本: 基础问题 (setq p2 (mapcar '+ p1 '(w h))