autolisp,想画出两个同心矩形,两个矩形的边距离为20,但不知道为什么变成两个一模一样的矩形,求问?(defun c:ban();求第一个矩形的点(setq p1 (getpoint "输入基准点："))(setq chang (getreal "\n长:"))(setq gao

来源：学生作业帮助网编辑：作业帮时间：2024/04/30 01:42:32

autolisp,想画出两个同心矩形,两个矩形的边距离为20,但不知道为什么变成两个一模一样的矩形,求问?(defun c:ban();求第一个矩形的点(setq p1 (getpoint "输入基准点："))(setq chang (getreal "\n长:"))(setq gao
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的矩形就出来了。

autolisp,想画出两个同心矩形,两个矩形的边距离为20,但不知道为什么变成两个一模一样的矩形,求问?(defun c:ban();求第一个矩形的点(setq p1 (getpoint "输入基准点："))(setq chang (getreal "\n长:"))(setq gao
下面是我改过的代码,你试一下,应该还有些地方可以再完完善的,比如加上检测矩形大小的语句等.
(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)
)

把捕捉模式改为关,在程序的第二行加一句(setvar "osmode" 0)就可以了,你试试吧

autolisp,想画出两个同心矩形,两个矩形的边距离为20,但不知道为什么变成两个一模一样的矩形,求问?(defun c:ban();求第一个矩形的点(setq p1 (getpoint 输入基准点：))(setq chang (getreal 长:))(setq gao autolisp如何绘制水平矩形图形? AutoCAD如何绘制同心矩形?或者如何使两个矩形中心重合?同心功能只能用于圆和椭圆 cdr如何画同心矩形两个同心球面的半径为R1 和R2,各自带有电荷Q1和Q2.求（1）各区域电场分布,并画出分布曲线（2）两球面的函数图级表达式速度要快 autolisp教程请高手用AutoLISP编写4个小程序：函数名为tuxing,要求执行此函数时使用键盘输入两个同心圆的圆心坐标和每个圆的半径值,然后：1.自动绘出这两个圆和水平,垂直的两条中心线2.自 ps矩形选框工具怎么画出两个框? AI如何画出两个角有弧度的矩形? PS里用圆角矩形画出来图形想去掉其中一个或两个圆角的怎样能快速的去掉 ( )( )同心怎么测量两个轴心距同心度和对两旋转轴的调整?机械方面的哦! 只有两根同心线什么结网如何判断两个圆是否同心? 1.某出版社一位编辑在设计一本书的封面时,想把封面划分为四个矩形,其中左上角矩形与右下角矩形相似（如图）,以给人一种和谐的感觉,这样的两个相似矩形怎样画出来?2.该编辑又想改矩形 AutoLisp画同心圆某出版社一位编辑在设计一本书的封面时,想把封面划分为四个矩形,其中左上角矩形与右下角矩形相似,给人和谐的感觉,那么这样的两个矩形是怎样画出来的呢?这两个图形是位似图形吗? 现有两个边长分别为1和a的矩形彩绸面料,各将剪裁出三面矩形彩旗（无剩余），使每面彩旗与原来矩形相似。请画出两种不同截法示意图并求出a的值（a>1）如图所示,请将四个全等的直角梯形拼成一个矩形,本画出两种不同的拼法的示意图.拼出的两个图形只要不全等就认为是不同的拼法.