liuxinkai 发表于 2024-1-15 14:57:05

文字样式字高

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

liuhe 发表于 2024-1-15 15:11:36

本帖最后由 liuhe 于 2024-1-15 15:23 编辑

;;167.24 [功能] Entmake文字样式
;;h 字高; 41 宽度因子
;;(EntmakeTextStyle "My" 4 2)
(defun EntmakeTextStyle (name h w)
(entmakeX
    (list
      '(0 . "STYLE")
      '(100 . "AcDbSymbolTableRecord")
      '(100 . "AcDbTextStyleTableRecord")
      (cons 2 name)
      '(70 . 0)
      (cons 40 h)
      (cons 41 w)
      '(3 . "romans.shx")
      '(4 . "Hztxts.shx")
    )
)
);;;; (SETQ ENT(ENTGET(tblobjname "style" "standard") ))
;;;;;(ENTMOD(SUBST(CONS 40 0.7)(ASSOC 40 ENT)ENT))

vla-put-Height 函数

功能

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

语法及参数

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

xyp1964 发表于 2024-1-15 17:30:40

(defun c:tt()
(setq ob(vlax-ename->vla-object(tblobjname"style""_TEL_DIM")))
(vla-put-Height ob 300.)
(princ)
)
页: [1]
查看完整版本: 文字样式字高