[求助]请教高手,判断字体样式为何出错?

userzhl · 发表于 2009-3-25 17:55

(If (= (cdr (assoc 3 (tblsearch "style" "_hztxt"))) "_txt.shx")
(nil
      (SetQ STYLE (EntMakeX '((0 . "STYLE")(100 . "AcDbSymbolTableRecord")(100 . "AcDbTextStyleTableRecord")
                              (2 . "_HZTXT") (70 . 0) (40 . 0.0) (41 . 0.75) (50 . 0.0) (71 . 0) (42 . 0.0) (3 . "_txt.shx") (4 . "hztxt.shx"))
                   )
      )
      (SetQ STYLE (TblObjName "STYLE" "_HZTXT"))
)
)

错在哪里了?

xtjd · 发表于 2009-3-25 19:35

语法怎么看着怪怪的?

userzhl · 发表于 2009-3-25 19:45

菜鸟搞的东西,就是这样,哈哈.哪个高手出手帮下忙?

xtjd · 发表于 2009-3-26 07:52

(If (= (cdr (assoc 3 (tblsearch "style" "_hztxt"))) "_txt.shx")
      (SetQ STYLE (EntMakeX '((0 . "STYLE")(100 . "AcDbSymbolTableRecord")(100 . "AcDbTextStyleTableRecord")
                              (2 . "_HZTXT") (70 . 0) (40 . 0.0) (41 . 0.75) (50 . 0.0) (71 . 0) (42 . 0.0) (3 . "_txt.shx") (4 . "hztxt.shx"))
                   )
      )
      (SetQ STYLE (TblObjName "STYLE" "_HZTXT"))
)

userzhl · 发表于 2009-3-26 09:51

楼上,你不明白我的意思,我的文字样式"_hztxt"是一个大字体:"_txt.shx,_hztxt.shx",想判断是否更改了(例如:"txt.shx,_hztxt.shx"),如果/="_txt.shx,_hztxt.shx"的话,把它改成:"_txt.shx,_hztxt.shx".楼上的我运行了一下,不行.

userzhl · 发表于 2009-3-26 09:54

(/ = (cdr (assoc 3 (tblsearch "style" "_hztxt"))) "_txt.shx")

也不行,不知如何判断?

xtjd · 发表于 2009-3-26 12:10

userzhl · 发表于 2009-3-26 12:42

不是我想要的.

账号		自动登录	找回密码
密码			注册

[求助]请教高手,判断字体样式为何出错?

本帖子中包含更多资源