论坛 › A/VLISP › 获取MLEADER对象的注释比例

Lisphk 发表于 2017-5-22 23:48:54

获取MLEADER对象的注释比例

(defun getmleaderannoscales ( ent / dic enx itm rtn )
    (if
      (and
            (setq enx (entget ent))
            (setq dic (cdr (assoc 360 (cdr (member '(102 . "{ACAD_XDICTIONARY") enx)))))
            (setq dic (cdr (assoc -1(dictsearch dic "acdbcontextdatamanager"))))
            (setq dic (cdr (assoc -1(dictsearch dic "acdb_annotationscales"))))
      )
      (while (setq itm (dictnext dic (not itm)))
            (setq rtn (cons (cdr (assoc 300 (entget (cdr (assoc 340 itm))))) rtn))
      )
    )
    (reverse rtn)
)

kqqt6236 发表于 2017-5-23 00:06:43

沙发，谢谢分享。

zdqwy19 发表于 2024-7-3 11:51:12

帮忙写一个增加注释比例的MLEADER对象的例子。

happyending 发表于 2025-9-23 08:00:08

这代码有用。感谢分享。

查看完整版本: 获取MLEADER对象的注释比例