Auto\Visual LISP代码片断-创建对象

最新推荐文章于 2023-02-18 10:04:14 发布

Qin-Dong

最新推荐文章于 2023-02-18 10:04:14 发布

阅读量1.3k

点赞数 1

本文链接：https://blog.csdn.net/QinDongZ/article/details/90736551

版权

本文档介绍了使用AutoLISP和Visual LISP进行CAD对象创建，包括直线、多义线、指定宽度的多义线、文本、点、居中文本、图层以及文本样式的创建方法。

摘要由CSDN通过智能技术生成

Auto\Visual LISP代码片断-创建对象

创建直线对象

;用法：(EntMakeLine 起点X 起点Y 终点X 终点Y 颜色 层名)
(defun EntMakeLine (xa ya xb yb lineColor layerName / p1 p2)
	(setq p1 (list xa ya) p2 (list xb yb))
	(entmakeX (list '(0 . "LINE") (cons 10 p1) (cons 11 p2) (cons 62 lineColor) (cons 8 layerName) '(370 . 0)))
)

创建多义线对象

;;;功能：生成多义线
;;;用法：(EntMakePLine 点表 颜色 层名)
;;;(defun c:tt (/ P1 P2 PAI X)
;;;  (while (setq p1 (getpoint "\n指定多线起点:"))
;;;    (setq pai (cons p1 pai))    
;;;    )
;;;    (entMakePLine pai 7 "断面线")
;;;)
(defun entMakePLine (pts lineColor layerName)
	(entmake (append
					(list '(0 . "LWPOLYLINE")
					'(100 . "AcDbEntity")
					'(100 . "AcDbPolyline")
					'(370 . 0) ;;线宽0
					(cons 8 layerName)
					(cons 62 lineColor) ;;颜色：7-白色					
					(cons 90 (length pts))