论坛 › A/VLISP › 如何获取文档的多重引线标注集合？

bonny123 发表于 2018-1-17 11:09:26

如何获取文档的多重引线标注集合？

找不到 vla-get-MleaderStyles，不知道有没有这样一个函数，，可以获取文档的多重引线标注集合。
因为，我想同过向集合添加对象，来创建一个多重引线标注样式。
文字,尺寸表注，布局等其它样式都可以做到，，
(setq ADOC (vla-get-ActiveDocument (vlax-get-acad-object))
        A-TXTS (vla-get-TextStyles ADOC)
)
(setq ts (vla-add A-TXTStsname))

Lisphk 发表于 2018-1-17 13:24:25

在词典里面

marting 发表于 2018-1-17 13:26:53

marting 发表于 2018-1-17 13:31:41

命令: (setq newdictlist (dictsearch (namedobjdict) "acad_mleaderstyle"))
((-1 . <图元名: 7ff7e0605150>) (0 . "DICTIONARY") (5 . "12D") (102 .
"{ACAD_REACTORS") (330 . <图元名: 7ff7e06038c0>) (102 . "}") (330 . <图元名:
7ff7e06038c0>) (100 . "AcDbDictionary") (280 . 0) (281 . 1) (3 . "Annotative")
(350 . <图元名: 7ff7e0605230>) (3 . "Standard") (350 . <图元名: 7ff7e0605160>))

bonny123 发表于 2018-1-17 13:47:53

ok,谢谢两位版主，搞定。。{:1_1:}

bonny123 发表于 2018-1-17 13:48:55

   (setq Acad (vlax-get-acad-object)
          Adoc (vla-get-ActiveDocument Acad)
         dicts (vla-get-dictionaries Adoc)
    AMleaderStyle (vla-item dicts "ACAD_MleaderStyle")
   )

   (setq mlst(vla-addobject AMleaderStyle "NewStyle" "AcDbMleaderStyle"))

查看完整版本: 如何获取文档的多重引线标注集合？