Các bạn có ai lisp này không ?

[nguyenvinh5779 7]

 

[7o7 80]

Hình như lisp này của bác ketxu, bạn liên hệ bác ấy xem sao.

[nguyenvinh5779 7]

vâng ! xin cám on bạn

[naturooo 36]

22 giờ trước, nguyenvinh5779 đã nói:

vâng ! xin cám on bạn

Text Style thì trên đây có sẵn lisp này:

;ST Hieu chinh lai lenh Textstyle
;===========================================================================================================================
(defun c:st (/ style c-style)
(initdia)
 (setq style (car (nentsel)))
 (if style (progn
     (setq style (cdr (assoc 7 (entget style))) c-style (getvar "textstyle"))
     (setvar "textstyle" style)
     (or (command "style")
         (if (= (getvar "textstyle") style)
       (setvar "textstyle" c-style)
     )))
(command "style")
)
(princ))

 

[nguyenvinh5779 7]

xin cam on ban nhé  @naturooo