[求助]：有关文字样式的建立！请指点

0451doctor

(defun zhaowzlx        (name hight ziti bili / io) ;生成文字样式 name:文字样式名称 hight:字高 ziti:字体 bili:文字比例
    (if        (= (tblobjname "STYLE" name) nil)
        (progn
            (entmake
                (list
                    '(0 . "STYLE")
                    '(100 . "AcDbSymbolTableRecord")
                    '(100 . "AcDbLayerTableRecord")                    
                    '(70 . 0)
                    (cons '3 ziti)
                    (cons '42 hight)
                    (cons '2 name)
                    (cons '41 bili)
                    '(40 . 0)
                )
            )
            (setvar "TEXTSTYLE" name)
        )
        (progn
            (setvar "TEXTSTYLE" "standard")
            (setq io   (tblobjname "STYLE" name)
                  ioqq (entget io)
                  ioqq (subst (cons '3 ziti) (assoc '3 ioqq) ioqq)
                  ioqq (subst (cons '42 hight) (assoc '42 ioqq) ioqq)
                  ioqq (subst (cons '41 bili) (assoc '41 ioqq) ioqq)
                  ioqq (subst '(40 . 0) (assoc '40 ioqq) ioqq)
            )
            (entmod ioqq)
            (entupd io)
            (setvar "TEXTSTYLE" name)
        )
    )
)


该程序是用来建立新的文字样式，但总不成功，请高人指点！

yangjr

不必这么麻烦吧。下面一句就够了，前后你自己加吧。
(command "style" "hight" "txt,hztxt" "0" "0.7" "0" "n" "n" "n")
    第一个0为字高 ziti，可按需设定 ，设为0在输入文字命令后再设字高。
     0.7   为字宽  也可按需设定。
    txt,.shx；hztxt.shx字库中有的字体文件，按需选用。

aeo

'(100 . "AcDbLayerTableRecord")

(100 . "AcDbTextStyleTableRecord")

一直没往写错字上面想，浪费很多时间。
下次这种错误不答了

0451doctor

(command "style" "hight" "txt,hztxt" "0" "0.7" "0" "n" "n" "n")
方法适用于文件中没有该文字样式，如果有该文字样式存在，还要通过参数修改，这种方法就不对了！
'(100 . "AcDbLayerTableRecord")是写的不对，我知道错了，可以后半部分
(progn
(setvar "TEXTSTYLE" "standard")
(setq io (tblobjname "STYLE" name)
ioqq (entget io)
ioqq (subst (cons '3 ziti) (assoc '3 ioqq) ioqq)
ioqq (subst (cons '42 hight) (assoc '42 ioqq) ioqq)
ioqq (subst (cons '41 bili) (assoc '41 ioqq) ioqq)
ioqq (subst '(40 . 0) (assoc '40 ioqq) ioqq)
)
(entmod ioqq)
(entupd io)
(setvar "TEXTSTYLE" name)
)
建立的文字样式中的字体总是不对，请各位帮我看一看！

谭斌

文字样式的建立用得着那么复杂吗？，好象没必要吔

maplesu

(command "style" "hight" "txt,hztxt" "0" "0.7" "0" "n" "n" "n")
的方法可以适用于已经有的样式，可以修改的。

leizi_yy

但是，怎样把已经有的字体需改成   仿宋的呢？  我屡试不爽

yanxinbo67

(command "style" "hight" "txt,hztxt" "0" "0.7" "0" "n" "n" "n")
复杂问题简单化，仅此一句足矣。但要注意不同的字体，可能会稍有不同，可以在cad下试验后修改即可

zb_lou

确实是就一句话就可以搞定的！