cslee110 发表于 2022-11-16 21:46:19

点选设定标注样式

此前有个程序，用了XDRX_API，现在考虑抛弃晓东API函数库，修改了好几遍检查都通不过，不知道哪里的问题？

;;使用前需加载XDRX_API
(defun c:xdimstyle (/ e)
(princ (strcat "\n当前标注样式：" (getvar "dimstyle")))
(if (setq e (xdrx_entsel "\n选择已有标注样式: " '((0 . "dimension"))))
    (progn
      (command "-dimstyle" "r" (xdrx_getentdxf 3))
      (princ
        (strcat "\n当前标注样式已设置为：" (xdrx_getentdxf 3))
      )
    )
)
(princ)
)

xj6019 发表于 2022-11-16 22:10:37

老前辈好

(defun c:NM(/ dxf e)
        (defun dxf (ent i) (cdr (assoc i (entget ent))))
(princ (strcat "\n当前标注样式：" (getvar "dimstyle")))
(if (setq e (car(entsel "\n选择已有标注样式: " )))
    (progn
      (command "-dimstyle" "r" (dxf e 3))
      (princ
      (strcat "\n当前标注样式已设置为：" (dxf e 3))
      )
    )
        )
(princ)
)

行天下 发表于 2022-11-17 08:38:48

赞一个，赞一个，谢谢分享

liuhe 发表于 2022-11-17 08:48:59

http://bbs.mjtd.com/thread-186620-1-1.html?_dsign=25418807   看看有没有你要的，标注样式，多重引线样式，字体样式设置为当前

yaya7827 发表于 2025-11-26 10:25:58

xj6019 发表于 2022-11-16 22:10
老前辈好

(defun c:NM(/ dxf e)


正在苦苦寻找此功能感谢你的分享
页: [1]
查看完整版本: 点选设定标注样式