lisp写标高线_属性块形式的标高标注程序！ - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...

欢迎来拍砖

说明：由于本人经常要用标高做一些计算(尤其是总图)，所以个人认为做成属性标高有利于其他程序直接调用数据(比如说计算总图排水坡度坡向等)，所以用标高块的形式做标高，喜欢的可以拿去用用。。。。[code="lisp]

;创建4种标高形式的属性块(实心)

(defun Make-Block-4BGS( / mkblock-bg lst n)

(defun mkblock-bg (blkname 4pt p)

(entmake (list  (cons 0 "BLOCK") (cons 2 blkname) '(70 . 2) '(10 0 0)))

(entmake (append (list '(0 . "LWPOLYLINE") '(8 . "0") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 (length 4pt)))

(mapcar '(lambda (pt)(cons 10 pt)) 4pt)

)

)

(entmake (list '(0 . "LINE") '(8 . "0") '(10 -3 0) '(11 3 0)));是否要小短线，不要则删除此行

(entmake (list '(0 . "SOLID") '(8 . "0") (cons 10 (car 4pt)) (cons 11 (car 4pt)) (cons 12 (cadr 4pt)) (cons 13 (caddr 4pt))));是否实心，不要实心则删除此行

(entmake (list