;画一个矩形
(defun c:rect(/ p1 p2 p3 p4);定义命令名,及定义局部变量,注意斜杠后面需要有空格。
(setq p1 (getpoint "\n输入第一个点:"))
(setq p3 (getpoint "\n输入对角点:"))
(setq p2 (list (car p3) (cadr p1)));获取p3的x值及p1的y值来确定矩形的第二点。
(setq p4 (list (car p1) (cadr p3)));获取p1的x值及p3的y值来确定矩形的第四点。
(command "pline" p1 p2 p3 p4 "c");c为pline的闭合选项。
)
(defun c:rect(/ p1 p2 p3 p4);定义命令名,及定义局部变量,注意斜杠后面需要有空格。
(setq p1 (getpoint "\n输入第一个点:"))
(setq p3 (getpoint "\n输入对角点:"))
(setq p2 (list (car p3) (cadr p1)));获取p3的x值及p1的y值来确定矩形的第二点。
(setq p4 (list (car p1) (cadr p3)));获取p1的x值及p3的y值来确定矩形的第四点。
(command "pline" p1 p2 p3 p4 "c");c为pline的闭合选项。
)