setq问题
您好，我用4个点创建了一个矩形。那么，有没有办法将两条垂直线自动分配到两个变量Line\u 1/Line\u 2中，而不是使用（setq Line_1（entsel“选择第1行：））。
非常感谢
杰伊 如果使用命令功能创建了行，请使用entlast收集添加到数据库的最后一个实体；否则，使用entmakex，函数将返回所创建实体的实体名称。
欢迎来到周。 选项
(defun c:rec1 (/ pt1 pt2 pt3 pt4)
(setq pt1 (getpoint "\n click first corner"))
(setq ortmd (getvar "orthomode"))
(setvar "orthomode" 0)
(setq pt2 (getcorner pt1 "\n click second corner"))
(setvar "orthomode" ortmd)
(command "rectang" pt1 pt2 "")
(setq pt3 (list (car pt2) (cadr pt1)))
(setq pt4 (list (car pt1) (cadr pt2)))
(command "line" pt1 pt2 "")
(command "line" pt3 pt4 "")
)
另一个
(defun c:rec2 (/ pt1 pt2 pt3 pt4)
(setq pt1 (getpoint "\n click first corner"))
(setq ortmd (getvar "orthomode"))
(setvar "orthomode" 0)
(setq pt2 (getpoint pt1 "\n click second corner"))
(setvar "orthomode" ortmd)
(setq pt3 (list (car pt2) (cadr pt1)))
(setq pt4 (list (car pt1) (cadr pt2)))
(LWPoly pt1 pt3 pt2 pt4)
(Line pt1 pt2)
(Line pt3 pt4)
)
(defun LWPoly (p1 p2 p3 p4)
(entmakex (list
(cons 0 "LWPOLYLINE")
(cons 100 "AcDbEntity")
(cons 100 "AcDbPolyline")
(cons 90 4)
(cons 70 1)
(cons 10 p1)
(cons 10 p2)
(cons 10 p3)
(cons 10 p4)
)))
(defun Line (p1 p2)
(entmakex (list (cons 0 "LINE")
(cons 10 p1)
(cons 11 p2)))) 另一个
只有一个闭合的LWPoly
(defun c:rec3 (/ pt1 pt2 pt3 pt4)
(setq pt1 (getpoint "\n click first corner"))
(setq ortmd (getvar "orthomode"))
(setvar "orthomode" 0)
(setq pt2 (getpoint pt1 "\n click second corner"))
(setvar "orthomode" ortmd)
(setq pt3 (list (car pt2) (cadr pt1)))
(setq pt4 (list (car pt1) (cadr pt2)))
(setq lst (list pt1 pt3 pt2 pt4 pt1 pt2 pt4 pt3))
(LWPoly lst)
)
(defun LWPoly (lst)
(entmakex (append (list (cons 0 "LWPOLYLINE")
(cons 100 "AcDbEntity")
(cons 100 "AcDbPolyline")
(cons 90 (length lst))
(cons 70 1) ; closed LWPoly
)
(mapcar (function (lambda (p) (cons 10 p))) lst))))
页:
[1]