Z文字在尺寸中的位置

RyanAtNelco · 发表于 2022-7-6 14:38:55

你好

我对LISP编程非常陌生，终于有了一个LISP的想法，它可以清除我处理的许多绘图，但我不知道从哪里开始。我试着做一些可以选择所有维度并改变文本Z值的东西。维度属性中似乎没有Z位置字段，但是当我列出维度时，有一个Z位置。我之所以要这样做，是因为当Z值不完全为零时，文本显示不正确。我不知道如何将这些翻译成代码。任何信息都很好，我想试着自己写这篇文章，这样我就可以学习编写例程的过程。

提前感谢！

Freerefill · 发表于 2022-7-6 14:52:01

当我开始深入操作实体时，我使用了（subst）、（entmod）和（entupd）

基本上，键入（entget（car（entsel））时得到的列表是AutoCAD识别为图元的列表，您可以修改该列表以修改图元。

以下是我曾经帮助过我的：

http://www.jefferypsanders.com/autolispintr_ent.html

他几乎教会了我所知道的一切，直到我找到了AutoCAD LISP帮助文件和这个论坛。

Lee Mac · 发表于 2022-7-6 14:55:06

有多种方法可以实现这一点，具体取决于以下几点：

[列表]

是否希望LISP自动选择所有标注文字？
[/列表]
[列表]

您希望用户选择每个维度文本，还是使用窗口选择方法？
[/列表]
[列表]

要继续使用Visual LISP还是普通LISP
[/列表]
让我知道你希望如何继续，我会尽我所能帮助你

李

lpseifert · 发表于 2022-7-6 15:02:16

我很好奇（李）
使用vla get Textposition创建变量，vlax variant value创建safearray，vlax safearray->list创建列表。您可以操纵此列表来创建新列表，以强制Z为零。
如何将新列表返回到使用vla put Textposition的变体？
（还是我的做法完全错了？）

Lee Mac · 发表于 2022-7-6 15:09:02

拉里，你在正确的轨道上

copy


[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:dimtxt  [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] dEnt dimObj tPos[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] dEnt [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entsel[/color][/b] [b][color=#ff00ff]"\nSelect Dimension: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#ff00ff]"DIMENSION"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cdadr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] dEnt[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   
   [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] dimObj [b][color=RED]([/color][/b][b][color=BLUE]vlax-ename->vla-object[/color][/b] dEnt[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tPos [b][color=RED]([/color][/b][b][color=BLUE]vlax-safearray->list[/color][/b]
                [b][color=RED]([/color][/b][b][color=BLUE]vlax-variant-value[/color][/b]
                  [b][color=RED]([/color][/b][b][color=BLUE]vla-get-TextPosition[/color][/b] dimObj[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]vla-put-TextPosition[/color][/b] dimObj
     [b][color=RED]([/color][/b][b][color=BLUE]vlax-3D-point[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] tPos[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cadr[/color][/b] tPos[b][color=RED])[/color][/b] [b][color=#009999]0.0[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]