[求助]文字样式的固定字高怎么改为0？（已解决）

jh1005

这个问题应该是一个老问题了，在论坛翻了很久没找到答案，请大家指点一下，谢谢。

如果用文字样式里的字高不为0，例如用(command "text" "0,0" "" "abc")会写不出文字，不知为什么。我弄了一个改字高为0的程序，有点麻烦，但遇到“宋体”，字体就会变成 问号，晕。程序如下：

(defun wenzhi  (/ st)
(Setvar "CMDECHO" 0)
(setq st (tblsearch "style" (getvar "textstyle"))) ;;获得文字样式群码
(if (> (cdr (assoc 40 st)) 0)      ;;如果字高不为0
   (if (not (member (cdr (assoc 3 st)) '("italic.shx" "romand.shx" "simplex.shx" "syastro.shx")))
       (command "-style" "" "" 0 "" "" "" "")
       (command "-style" "" "" 0 "" "" "" "" "")
    )
)
  (princ)
)

请问有没有更好的方法？用变量textsize又改不了0

xshrimp

2. ;|******************************************************************************************;;;;;
3. [函数]: (gps->txt-StyleHeight-Put TextStyles Height)
4. [说明]: 修改文字样式高度
5. [参数]:
6.    [参数1]:
7.    [参数2]:
8. [返回值]:
9.    [成功]:
10.    [失败]: NIL
11. [示例]: (gps->txt-StyleHeight-Put "standard" 0)
12. [备注]: 无
13. [作者]: xshrimp 2008.12.26
14. ;|****************************************************************************************;;;|;
15. (defun gps->txt-StyleHeight-Put (TextStyles Height / rvalue)
16.   (setq RValue(vl-catch-all-apply  '(lambda()
17.     (vla-put-Height
18.       (vla-item
19.       (vla-get-TextStyles (vla-get-ActiveDocument (vlax-get-acad-object)))
20.       TextStyles
21.       )
22.       Height
23.     )
24.   )))
25. (if (vl-catch-all-error-p RValue) (vl-catch-all-error-message RValue)  RValue);返回值
26. )

;|******************************************************************************************;;;;; [函数]: (gps->txt-StyleHeight-Put TextStyles Height) [说明]: 修改文字样式高度 [参数]:    [参数1]:    [参数2]: [返回值]:    [成功]:    [失败]: NIL [示例]: (gps->txt-StyleHeight-Put "standard" 0) [备注]: 无 [作者]: xshrimp 2008.12.26 ;|****************************************************************************************;;;|; (defun gps->txt-StyleHeight-Put (TextStyles Height / rvalue)   (setq RValue(vl-catch-all-apply  '(lambda()     (vla-put-Height       (vla-item       (vla-get-TextStyles (vla-get-ActiveDocument (vlax-get-acad-object)))       TextStyles       )       Height     )   ))) (if (vl-catch-all-error-p RValue) (vl-catch-all-error-message RValue)  RValue);返回值 )

jh1005

这个问题困扰了我很久，一来明经就解决了。十分感谢xshrimp !

(PS:“贱人工具箱”也存在这个问题)