预设字符的文本高度
如何通过LIPS预设表格的文字高度。 对于文字或多行文字实体！如果创建了文本，则可以使用：
(entmake (list '(0 . "TEXT") (cons 8 layer) '(10 0 0 0) (cons 40 text-height) (cons 1 "value xxxxxxx")
(cons 50 angle) '(7 . "Arial") '(72 . 2) '(73 . 2) (list x y z) )
如果文本已存在：
(if (setq nm (car (entsel )) ) ; Select
(progn
(setq vob (vlax-ename->vla-object nm) )
(vla-put-TextString vob nms) ; different properties
(vla-put-Layer vob layer)
(vla-put-Height vob htext)
(vla-put-Rotation vob uradian)
(vla-put-Alignment vob vtag)
(vla-put-ScaleFactor vob wft)
))
您可以使用以下工具检查可用的属性和方法：
(vlax-dump-object vob T)
或者你是说文本框 实际上，我的意思是在运行table命令之前，将表的默认文本高度设置为50。现在它自动设置为0.180（公制单位）。但当我将单位改为建筑单位时，它将改为1/8“ 试试这个：
(vla-SetTextHeight vmyTab acTitleRow 0.3)
(vla-SetTextHeight vmyTab (+ acDataRow acHeaderRow) 0.18)
但我认为你应该定义一个表格样式的dwg 谢谢你的建议。我会尝试这些代码来解决这个任务。
页:
[1]