预设字符的文本高度

wimal · 发表于 2022-7-6 06:46:00

如何通过LIPS预设表格的文字高度。

Costinbos77 · 发表于 2022-7-6 07:03:07

对于文字或多行文字实体！

如果创建了文本，则可以使用：


(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) )

如果文本已存在：

copy


(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)
))

您可以使用以下工具检查可用的属性和方法：

copy


(vlax-dump-object vob T)

或者你是说文本框

wimal · 发表于 2022-7-6 07:25:17

实际上，我的意思是在运行table命令之前，将表的默认文本高度设置为50。现在它自动设置为0.180（公制单位）。但当我将单位改为建筑单位时，它将改为1/8“

Costinbos77 · 发表于 2022-7-6 07:37:55

试试这个：

copy


(vla-SetTextHeight vmyTab acTitleRow 0.3)
(vla-SetTextHeight vmyTab (+ acDataRow acHeaderRow) 0.18)

但我认为你应该定义一个表格样式的dwg

wimal · 发表于 2022-7-6 07:56:07

谢谢你的建议。我会尝试这些代码来解决这个任务。

[编程交流] 预设字符的文本高度

发表回复

精选推荐