文本样式高度&（getvar&#

Tharwat · 发表于 2022-7-6 10:34:26

你好

我想知道，只要（getvar的textsize）为
与此不同。


(entmakex 
      (list (cons 0 "TEXT")
               (cons 10  pt)
                 (cons 40 ([color="red"]text style height[/color]))
                   (cons 1  strings)))

谢谢

Kerry Brown · 发表于 2022-7-6 10:42:20

请你再问一次这个问题，明确说明你想要什么。

Tharwat · 发表于 2022-7-6 10:46:14

谢谢Kerry，

我想获取包含在文字样式列表中的当前文字高度。

当做

塔瓦特

Tharwat · 发表于 2022-7-6 10:47:40

可能有一张照片就更清楚了。。

Kerry Brown · 发表于 2022-7-6 10:54:20

当前textheight为（getvar“TEXTSIZE”）
但是
这将取决于最后使用的样式。

Tharwat · 发表于 2022-7-6 10:57:36

你知道，问题是当修改文本样式的高度时，（getvar的textsize）也不会改变。

因此，有时我将文本样式的高度更改为200，（getvar的textsize）保持为0.2，当在Lisp中使用时
那么小。如果我依赖于文本样式，如果它是0.00，它可能会令人失望。

知道吗？

谢谢

Kerry Brown · 发表于 2022-7-6 11:03:54

在textStyle定义中，查看
DXF 40
固定文字高度；如果不固定，则为0

DXF 42
上次使用的高度

Tharwat · 发表于 2022-7-6 11:05:59

如果我选择一个实体并得到它的文本高度，这是正确的。

如果绘图文本的高度为200，这将令人失望。因为除非有人改变，否则系统变量不会改变。

copy


(entmakex 
      (list (cons 0 "TEXT")
               (cons 10  pt)
                 (cons 40 (getvar 'textsize))
                   (cons 1  strings)))

如果文本高度为0.2，这也会令人失望。

copy


(entmakex 
      (list (cons 0 "TEXT")
               (cons 10  pt)
                 (cons 40 200)
                   (cons 1  strings)))

这就是为什么我想知道在我的日常Lisp中，特别是在绘制不同比例的图形时，我必须保持哪个文本高度！

当做

Kerry Brown · 发表于 2022-7-6 11:10:37

我个人会用这个。

copy

 
(setq ots           (vla-get-activetextstyle
                     (vla-get-activedocument (vlax-get-acad-object))
                   )
     CurrentHeight (vla-get-height ots)
     LastHeight    (vla-get-lastheight ots)
)

但在使用之前，请确保您理解它。
一点尝试和错误，阅读应该可以解决这个问题。

Tharwat · 发表于 2022-7-6 11:15:39

谢谢Kerry，

这必须是一种专业的方式，我应该集中所有的力量来理解它。

我现在得到的一个提示是，代码可以得到图形中最后一个对象的高度
已创建，因此根据该对象高度，运行的Lisp将在当前图形中实现。是这样吗？

除此之外，还可以考虑当前的文字高度。

我认为你指出的错误是，在一个新的图纸中，当还没有实现文本高度时。。。。。。希望这是对的？

再次感谢你，克里，

塔瓦特

[编程交流] 文本样式高度&（getvar&#

发表回复

精选推荐