0 Members and 1 Guest are viewing this topic.
(defun kdub:listtextstyles () (kdub:listcollmbrnames (vla-get-textstyles kglobal:activedoc)))
(defun _GetTextStyles ( doc dxf_flag / @Try @GetStylePropsAX @GetStylePropsDXF @Main ) (defun @Try ( try_statement / try_result ) (vl-catch-all-apply (function (lambda ( ) (setq try_result (eval try_statement)) ) ) ) try_result ) (defun @GetStylePropsAX ( style ) (mapcar (function (lambda (p) (cons p (@Try '(vlax-get style p))))) '( Name BigFontFile FontFile Height LastHeight ObliqueAngle TextGenerationFlag Width ) ) ) (defun @GetStylePropsDXF ( style ) (@Try '(vl-remove-if (function (lambda ( p / key ) (or (minusp (setq key (car p))) (< 70 key) (member key '(5)) ) ) ) (entget (vlax-vla-object->ename style) ) ) ) ) (defun @Main ( doc dxf_flag / func result ) (vl-load-com) (setq func (if dxf_flag @GetStylePropsDXF @GetStylePropsAX)) (@Try '(vlax-for style (vla-get-textstyles doc) (setq result (cons (func style) result ) ) ) ) (reverse result) ) (@Main doc dxf_flag) )
I swear, looking at MP's code is like walking through a fine art gallery.
Quote from: alanjt on October 28, 2014, 05:51:47 PMI swear, looking at MP's code is like walking through a fine art gallery.True, but it's a bit more functional than an old Rubins.
(defun @GetStylePropsAX ( style ) ...