新黎既 发表于 2012-1-2 20:52:12

获取所有文字样式

如何利用vlisp获取所有文字样式? 请高手指点

vormittag 发表于 2012-1-3 21:49:09

(defun get_entitylist (entitystyle / entity entityname entitylist )
    (setq entity   (tblnext entitystyle T)
      entitylist nil
);setq
(while entity
    (setq entityname (cdr (assoc 2 entity))
      entitylist (cons entityname entitylist)
      entity   (tblnext entitystyle)
    );setq
);while
(reverse entitylist)
)(get_entitylist "style") ---->获得文字样式名称列表
(get_entitylist "layer") ---->获得图层名称列表
(get_entitylist "block") ---->获得块定义名称列表



caoyin 发表于 2012-1-4 05:42:13

;;VLISP
(defun TEXTSTYLE-LIST (/ LST)
(vlax-for X (vla-get-textstyles (vla-get-ActiveDocument (vlax-get-acad-object)))
    (setq LST (cons (vla-get-name X) LST))
)
)
;;ALISP
(defun TEXTSTYLE-LIST (/ X LST)
(while (setq X (tblnext "STYLE" (not X)))
    (setq LST (cons (cdr (assoc 2 X)) LST))
)
(reverse LST)
)

yhly555 发表于 2016-10-11 09:35:21

正需要，谢谢分享！

yoyoho 发表于 2016-10-12 10:36:46

感谢 两位 分享程序!!!!
页: [1]
查看完整版本: 获取所有文字样式