文字样式字高

liuxinkai

文字样式中的字高，如何用lisp设置？

liuhe

2. ;;167.24 [功能] Entmake文字样式
   
3. ;;h 字高; 41 宽度因子
   
4. ;;(EntmakeTextStyle "My" 4 2)
   
5. (defun EntmakeTextStyle (name h w)
   
6.   (entmakeX
   
7.     (list
   
8.       '(0 . "STYLE")
   
9.       '(100 . "AcDbSymbolTableRecord")
   
10.       '(100 . "AcDbTextStyleTableRecord")
    
11.       (cons 2 name)
    
12.       '(70 . 0)
    
13.       (cons 40 h)
    
14.       (cons 41 w)
    
15.       '(3 . "romans.shx")
    
16.       '(4 . "Hztxts.shx")
    
17.     )
    
18.   )
    
19. )

;;167.24 [功能] Entmake文字样式<br /> ;;h 字高; 41 宽度因子<br /> ;;(EntmakeTextStyle "My" 4 2)<br /> (defun EntmakeTextStyle (name h w)<br />   (entmakeX<br />     (list<br />       '(0 . "STYLE")<br />       '(100 . "AcDbSymbolTableRecord")<br />       '(100 . "AcDbTextStyleTableRecord")<br />       (cons 2 name)<br />       '(70 . 0)<br />       (cons 40 h)<br />       (cons 41 w)<br />       '(3 . "romans.shx")<br />       '(4 . "Hztxts.shx")<br />     )<br />   )<br /> )

;;;; (SETQ ENT(ENTGET(tblobjname "style" "standard") ))
;;;;;(ENTMOD(SUBST(CONS 40 0.7)(ASSOC 40 ENT)ENT))

vla-put-Height 函数

功能

    设定属性、形、文字、视图工具栏或主应用程序视口的高度。

语法及参数

(vla-put-Height Object Value)
Object  Application, Attribute, AttributeRef, MText, PViewport,
Raster, Shape, Text, TextStyle, Toolbar, Viewport, View
  这个属性适用的对象。
Value 双精度（Application与Toolbar对象时为整数）; 读/写
（Toolbar与Raster对象时为只读）
  必须是正数。

xyp1964

(defun c:tt()
  (setq ob(vlax-ename->vla-object(tblobjname"style""_TEL_DIM")))
  (vla-put-Height ob 300.)
  (princ)
)