LISP 圆孔标记_做了一个检查图框内字体和标注的插件 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...

本帖最后由 WWYYBB1015 于 2019-12-16 21:04 编辑

根据大家的要求，更新一下修改标注文字引线的功能。插件会根据图框比例自动创建一个新的标注样式，例如：名称为机械标注5。找到代码：(setq dim (strcat "机械标注" (rtos tksc 2 0)))，将文字修改为自己需要的就行，另外由于标注的方式各种各样，很难统一。

所以mkdim子函数中的代码，可以根据自己的需要进行适当修改。今天不忙，花了大半天时间，做出来还是比较粗糙的，接下来会考虑

完善标注样式的创建和增加框选批量修改的功能。目前暂时主要只提供一个思路，也希望大佬能多指点指点。

(defun C:JC2 (/             num    ent           name          h_txt         col_1        col_2  col_3

zg     tk            tkname tksc          acdoc         mspace        dimss  dim

obj    minext maxext ptzx          ptys         tz        i

)

(setvar "cmdecho" 0)

(vl-cmdf "undo" "be")

;;定义子函数

(defun dxf (num ent) (assoc num (entget ent)))

(defun mkdim (name h_txt col_1 col_2 col_3)

(entmake (list '(0 . "DIMSTYLE")