点选设定标注样式

cslee110

此前有个程序，用了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

老前辈好

(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)
)

行天下

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

liuhe

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