lisp新建标注式样_在AUTOCAD中如何用lisp语言新建一个标注样式

满意答案

gnxsh

推荐于 2016.01.29

采纳率：48%    等级：13

已帮助：8775人

标注样式要先建立字体样式。

如果箭头没有块的话，要建立块。;;;主程序标注样式

(defun TextDim ()

(tssd2)

(if (null (tblsearch "DIMSTYLE" "TSSD_50_50-250"));1

(progn

(if (null (tblobjname "BLOCK" "_ARCHTICK"))

(progn

(entmake (list '(0 . "BLOCK") '(100 . "AcDbEntity") '(67 . 0) '(8 . "0") '(100 . "AcDbBlockBegin") '(70 . 0) '(10 0.0 0.0 0.0) '(2 . "_ARCHTICK") '(1 . "")))

(entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(67 . 0) '(8 . "0") '(62 . 0) '(6 . "ByBlock") '(100 . "AcDbPolyline") '(90 . 2) '