如何更改文字样式

wgij007

如何更改文字样式
  已建有文字样式，txt.
  但没勾选大字体，如何用lisp完成.cad2006

这代码新建没问题，但如已有的就不会改过来 ,能做互换吗，就是勾选大字体与取消。

(defun c:af  (/ sc a b)

  (progn
(entmake (list (cons 0 "style")
(cons 100 "AcDbSymbolTableRecord")
(cons 100 "AcDbTextStyleTableRecord")
(cons 2 "txt")
(cons 70 0)
(cons 40 0.0)
(cons 41 1.0)
(cons 50 0.0)
(cons 71  0)
(cons 42 1.0)
(cons 3  "txt")
;(cons 4  "")
(cons 4  "gbcbig.shx")
)
)
(entget (tblobjname "style" "txt"))
))

gaics

(command "-style" "txt" "txt,gbcbig.shx" "0" "1.0" "0.0" "" "" "")
(command "-style" "txt" "txt" "0" "1.0" "0.0" "" "" "")

wgij007

gaics 发表于 2021-4-2 09:49
(command "-style" "txt" "txt,gbcbig.shx" "0" "1.0" "0.0" "" "" "")
(command "-style" "txt" "txt" "0 ...

哈哈，我也是刚刚瞎搞出来了，跟你的一样的，还是非常感谢。