如何更改文字样式
本帖最后由 wgij007 于 2021-4-1 22:08 编辑如何更改文字样式
已建有文字样式，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 710)
(cons 42 1.0)
(cons 3"txt")
;(cons 4"")
(cons 4"gbcbig.shx")
)
)
(entget (tblobjname "style" "txt"))
))
本帖最后由 gaics 于 2021-4-2 09:50 编辑
(command "-style" "txt" "txt,gbcbig.shx" "0" "1.0" "0.0" "" "" "")
(command "-style" "txt" "txt" "0" "1.0" "0.0" "" "" "") gaics 发表于 2021-4-2 09:49
(command "-style" "txt" "txt,gbcbig.shx" "0" "1.0" "0.0" "" "" "")
(command "-style" "txt" "txt" "0 ...
哈哈，我也是刚刚瞎搞出来了，跟你的一样的，还是非常感谢。
页:
[1]