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

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

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

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

想画一个门的立面图

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

这样试试：(setq p2 (mapcar '+ p1 (list w h))

账号		自动登录	找回密码
密码			注册

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