[LISP函数]：奇怪的问题

前生

奇怪的问题
(if        (tblsearch "style" "hz")
      (SETVAR "TEXTSTYLE" "hz")
      (progn
        (command "-style" "hz" "txt,HZTXT" "" "0.7" "" "" "")
        (SETVAR "TEXTSTYLE" "hz")
      )
    )

上述片段在AutoCAD中可以通过，在AutoCAD2002中通过不了!
请教各位,有何高招?

6分钟

是否你的ACAD2002的FONTS支持目录里没有HZTXT.SHX ？

cy956

还有一种情况，不同的字体定义时的反应还不同，
使用时要区分。
(sty3 "S" "ROMANC.shx,S.shx" 1.0)
(sty2 "DXFS" "ROMANS.shx,DXFS.shx" 0.7)
(DEFUN sty2 (#sty #zt #w)
  (COMMAND "-style" #sty #zt 0.0 #w 0.0 "" "" "")
)
(DEFUN sty3 (#sty #zt #w)
  (COMMAND "-style" #sty #zt 0.0 #w 0.0 "" "")
)
当然acad中能用应该不是这个问题。

LUCAS

(if (tblsearch "style" "hz")
(SETVAR "TEXTSTYLE" "hz")
(progn
;(command "-style" "hz" "txt,hztxt" "" "0.7" "" "" "") ;欠一个""
(command "-style" "hz" "txt,hztxt" "" "0.7" "" "" "" "")
(SETVAR "TEXTSTYLE" "hz")
)
)

前生

命令: _ddscw-qy；；lsp的命令
字体已保留用于显示多行文字对话框中的 SHX 字体。未知命令“DDSCW-QY”。按 F1
查看帮助。
未知命令“0.7”。按 F1 查看帮助。
未知命令“DDSCW-QY”。按 F1 查看帮助。
未知命令“DDSCW-QY”。按 F1 查看帮助。
未知命令“DDSCW-QY”。按 F1 查看帮助。
; 错误: AutoCAD 变量设置被拒绝: "TEXTSTYLE" "hz"

而在AutoCAD2002中没有问题的呀

前生

;;ddscw-qy的一开始就运行下列判断,出错,取消它,运行就OK!
或着hz型设置好后，没有问题,
(if (tblsearch "style" "hz")
(SETVAR "TEXTSTYLE" "hz")
(progn
(command "-style" "hz" "txt,HZTXT" "" "0.7" "" "" "")
(SETVAR "TEXTSTYLE" "hz")
)
)

eachy

在2002中的style比r14多一个回车，用下面的代码试试

2. 
   
3. (if (tblsearch "style" "01")
   
4.   (SETVAR "TEXTSTYLE" "01")
   
5.   (command "-style" "01" "txt,HZTXT" "" "0.7" "" "" "" "")
   
6. )

<br /> (if (tblsearch "style" "01")<br />   (SETVAR "TEXTSTYLE" "01")<br />   (command "-style" "01" "txt,HZTXT" "" "0.7" "" "" "" "")<br /> )

前生

呵呵,试了一次,还是不行
在Vlisp编辑器中直接加载,命令行如下提示:

命令: 'VLIDE
字体已保留用于显示多行文字对话框中的 SHX 字体。未知命令“VLIDE”。按 F1
查看帮助。
未知命令“0.7”。按 F1 查看帮助。
未知命令“VLIDE”。按 F1 查看帮助。
未知命令“VLIDE”。按 F1 查看帮助。
未知命令“VLIDE”。按 F1 查看帮助。
未知命令“VLIDE”。按 F1 查看帮助。

fylinwater

在R14中可以通过  但假如定义在acad中自动加载就出错了

梦断江南

"-style" 换为"style" 看看

前生

还是不OK!

cy956

不知你那儿为何调不通。下面是我用来配置字体的程序，用了两个方案，
第一个是shx字的（常用），第二个是shx＋ttf字（用于方案等处），
你试一下。我怀疑还是我前头说的，style命令调用后，不同字体的选项
不同。

2. 
   
3. 
   
4. (DEFUN c:sty1 (/ k)
   
5.   (command "-style" "standard" "romans" "" 0.6 15 "" "" "")
   
6.   (SETQ        K (acqs        "\n请选择字型配置方案: 1-DXFS+S; 2-DXFS+S+ST1+HT1 " "1"))
   
7.   (COND
   
8.     ((= "1" K)
   
9.      (sty3 "S" "ROMANC.shx,S.shx" 1.0)
   
10.      (sty2 "DXFS" "ROMANS.shx,DXFS.shx" 0.7)
    
11.     )
    
12.     ((= "2" K)
    
13.      (sty3 "S" "ROMANC,S" 1.0)
    
14.      (sty3 "ST1" "SIMSUN.TTF" 0.7)
    
15.      (sty3 "HT1" "SIMHEI.TTF" 1)
    
16.      (sty2 "DXFS" "ROMANS,DXFS" 0.7)
    
17.     )
    
18.     (T)
    
19.   )(princ)
    
20. )
    
21. (DEFUN sty2 (#sty #zt #w)
    
22.   (COMMAND "-style" #sty #zt 0.0 #w 0.0 "" "" "")
    
23. )
    
24. (DEFUN sty3 (#sty #zt #w)
    
25.   (COMMAND "-style" #sty #zt 0.0 #w 0.0 "" "")
    
26. )
    
27. 
    

<br /> <br /> (DEFUN c:sty1 (/ k)<br />   (command "-style" "standard" "romans" "" 0.6 15 "" "" "")<br />   (SETQ        K (acqs        "\n请选择字型配置方案: 1-DXFS+S; 2-DXFS+S+ST1+HT1 " "1")) <br />   (COND<br />     ((= "1" K)<br />      (sty3 "S" "ROMANC.shx,S.shx" 1.0)<br />      (sty2 "DXFS" "ROMANS.shx,DXFS.shx" 0.7)<br />     )<br />     ((= "2" K)<br />      (sty3 "S" "ROMANC,S" 1.0)<br />      (sty3 "ST1" "SIMSUN.TTF" 0.7)<br />      (sty3 "HT1" "SIMHEI.TTF" 1)<br />      (sty2 "DXFS" "ROMANS,DXFS" 0.7)<br />     )<br />     (T)<br />   )(princ)<br /> )<br /> (DEFUN sty2 (#sty #zt #w)<br />   (COMMAND "-style" #sty #zt 0.0 #w 0.0 "" "" "")<br /> )<br /> (DEFUN sty3 (#sty #zt #w)<br />   (COMMAND "-style" #sty #zt 0.0 #w 0.0 "" "")<br /> )<br /> <br />

这段程序我至今还用，尤其调用别人的图时，运行一下，就加入了自己的字体。
另外，standard还是斜字好，重线时不会被盖住，施工图里还是应该注意的。

前生

菜兄：
    acqs是什么?没有贴全?呵呵

前生

呵呵.cad的安装有问题
汉字型放在fonts目录下不行，放在别的可以搜索到的路径下就OK!
呵呵，奇怪的很

ll_j

不知解决了没有，其实HZTXT.shx有两个版本，是关于竖排文字的，在命令“style”中可以看出。可以用(command "style" "sty1" "txt,hztxt" "" "0.7" "" "" "")(command)解决。