autolisp,想画出两个同心矩形,两个矩形的边距离为20,但不知道为什么变成两个一模一样的矩形,求问?

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/04/29 02:44:38

autolisp,想画出两个同心矩形,两个矩形的边距离为20,但不知道为什么变成两个一模一样的矩形,求问?
(defun c:ban()
;求第一个矩形的点
(setq p1 (getpoint "输入基准点："))
(setq chang (getreal "\n长:"))
(setq gao (getreal "\n高:"))
(setq p2 (polar p1 0 chang))
(setq p3 (polar p1 (/ pi 2) gao))
(setq p4 (polar p3 0 chang))
;以下依据 p1、p2、p3、p4 点画矩形
(command "rectang" p1 p4)
;以下mp1、mp2、mp3、mp4确定另一矩形的4个点
(setq mp1 (list (- (car p1) 20) (+(cadr p1) 20)))
(setq mp2 (list (- (car p2) 20) (+(cadr p2) 20)))
(setq mp3 (list (+ (car p3) 20) (-(cadr p3) 20)))
(setq mp4 (list (- (car p4) 20) (-(cadr p4) 20)))
(command "rectang" mp1 mp4)
）
例如：运行程序后输入1000 和800，那应该出来1000X800和960X760的两个矩形。但结果是两个1000X800的矩形。而且当我不画第一个矩形的时候，960X760的矩形就出来了。

下面是我改过的代码,你试一下,应该还有些地方可以再完完善的,比如加上检测矩形大小的语句等.
(defun c:ban ()
;求第一个矩形的点
(setq p1 (getpoint "输入基准点："))
(setq chang (getreal "\n长:"))
(setq gao (getreal "\n高:"))
(setq p2 (polar p1 0 chang))
(setq p3 (polar p1 (/ pi 2) gao))
(setq p4 (polar p3 0 chang))
;以下依据 p1、p2、p3、p4 点画矩形
(command "rectang" p1 p4)
;以下mp1、mp2、mp3、mp4确定另一矩形的4个点
(setq mp1 (list (+ (car p1) 20) (+ (cadr p1) 20)))
(setq mp2 (list (- (car p2) 20) (+ (cadr p2) 20)))
(setq mp3 (list (+ (car p3) 20) (- (cadr p3) 20)))
(setq mp4 (list (- (car p4) 20) (- (cadr p4) 20)))
(command "rectang" mp1 mp4)
)

autolisp,想画出两个同心矩形,两个矩形的边距离为20,但不知道为什么变成两个一模一样的矩形,求问? AI如何画出两个角有弧度的矩形? 半径为4cm和1cm的圆外切,作一个矩形围住这两个圆,使得矩形的面积最小,求最小的矩形面积. 如图所示的两个矩形相似吗? 如图所示的两个矩形是否相似? 求两个矩形验证勾股定理的方法、急! 要在一个矩形纸片上画出半径分别为4cm和1cm的两个外切圆,矩形纸片面积最小为多少 AutoCAD如何绘制同心矩形?或者如何使两个矩形中心重合?同心功能只能用于圆和椭圆矩形的一条长边的中点与其对边的两个端点的连线互相垂直,已知矩形的周长为24厘米,则矩形的面积为什么是32平方厘米? CAD画图设好比例后为什么画同样的两个矩形,画出来的大小是不一样的已知矩形ABCD对角线长度为x,两个对角线夹角为角a.求矩形面积. VB语句问题,编写求矩形面积的函数过程,调用该函数求任意两个矩形的面积和.