更改 AutoCAD 图形的文字样式。
更改 AutoCAD 图形的文字样式。Lisp 例程将 AutoCAD 绘图更新为绘图中所有文本元素的指定样式。此 lisp 例程将 AutoCAD 绘图更新为绘图中所有文本元素的指定样式.
此 lisp 例程会将 AutoCAD 图形更新为图形中所有文本元素的指定样式 (NAMEOFSTYLE)：
(defun C:CHANGESTYLE-TEXT-OBJECTS (/ entities len count ent ent_data ent_name new_style_name)
(command "STYLE" "NAMEOFSTYLE" "" "" "" "" "" "")
(setq entities (ssget "X" '((0 . "*TEXT")))
len (sslength entities)
count 0
);setq
(while (< count len)
(setq ent (ssname entities count)
ent_data (entget ent)
ent_name (cdr (assoc 7 ent_data))
);setq
(setq new_style_name (cons 7 "NAMEOFSTYLE"))
(setq ent_data (subst new_style_name (assoc 7 ent_data) ent_data))
(entmod ent_data)
(setq count (+ count 1))
);while
;;;runs same routine again, picking up Mtext this time.
);defun
嗯打开属性 1st.
[*]
然后可以改变很多东西。是的，可能需要第一种制作风格。(defun c:zzz (/a)
(setq a (ssget "X" '((0 . "*TEXT"))))
(vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "_.选择 P")
)
看看
页:
[1]