获取所有文字样式

新黎既

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

vormittag

2. (defun get_entitylist (entitystyle / entity entityname entitylist )
   
3.     (setq entity     (tblnext entitystyle T)
   
4.       entitylist nil
   
5.   );setq
   
6.   (while entity
   
7.     (setq entityname (cdr (assoc 2 entity))
   
8.         entitylist (cons entityname entitylist)
   
9.         entity     (tblnext entitystyle)
   
10.     );setq
    
11.   );while
    
12.   (reverse entitylist)
    
13. )

(defun get_entitylist (entitystyle / entity entityname entitylist )<br />     (setq entity     (tblnext entitystyle T)<br />       entitylist nil<br />   );setq<br />   (while entity<br />     (setq entityname (cdr (assoc 2 entity))<br />         entitylist (cons entityname entitylist)<br />         entity     (tblnext entitystyle)<br />     );setq<br />   );while<br />   (reverse entitylist)<br /> )

(get_entitylist "style") ---->获得文字样式名称列表
(get_entitylist "layer") ---->获得图层名称列表
(get_entitylist "block") ---->获得块定义名称列表

caoyin

;;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

正需要，谢谢分享！

yoyoho

感谢 两位 分享程序!!!!