Логотип сайта поддержки пользователей САПРО сайте поддержки пользователей САПР Translate to:

Изменение всех текстовых стилей всех объектов к определенному текстовому стилю

Назад к списку функций
;;; (ax:ChangeTextStyleName "ISOCPEUR")
(defun ax:ChangeTextStyleName (style / sset ename i)
  (vl-load-com)
  (setq i 0)
  (setq sset (ssget "X" '((-4 . ""))))
  (if sset
    (repeat (sslength sset)
      (setq ename (ssname sset i))
      (setq i (1+ i))
      (vla-put-stylename (vlax-ename->vla-object ename) style)
    )
  )
)



Copyright © Сайт поддержки пользователей САПР by Victor Tkachenko