新建自定义命令

Command: Manick · 发表于 2022-7-8 11:56:40

我知道如何创建宏命令，只要宏字符串不需要基点。我要做的是创建一个宏，允许我以90度的角度插入带有底部中心对齐的文本。很明显阻止我的是，在输入角度之前，你需要指定一个基点。如果基点可以被指定为最后一件事，那将是完美的，但有没有办法做到这一点呢？有什么想法吗？我将非常感谢任何关于这方面的帮助，即使解决方案不是制作宏。

提前感谢！

fuccaro · 发表于 2022-7-8 12:09:58

你好，马尼克指挥官，欢迎来到论坛，先生！
用一个简短的Lisp例程就不难做到这一点。使用宏：尝试在原点中插入文本，然后启动从原点到…的移动命令。。。在这里你必须点击目的地。文本应随光标移动，直到单击目标点。
我没有测试这个解决方案，如果你需要更多帮助，请再次发布

Command: Manick · 发表于 2022-7-8 12:14:53

Fuccaro实际上描述了如何在不使用lisp的情况下使用宏。

使用普通文本命令，但指定0,0作为插入点，然后将其从0,0“移动”到用户拾取点。。。由于0,0可能不在屏幕上，当宏选择要移动的文本项时，可能必须使用（entlast）与“last”（所以可能仍然需要一点lisp。）

CarlB · 发表于 2022-7-8 12:19:18

谢谢你，卡尔！我们的新朋友Manick需要学习Lisp。我自己，我需要学习一些英语，让人们更好地理解我的意思。

fuccaro · 发表于 2022-7-8 12:32:19

最后一个将在2008年生效。在2008年之前（可能是2006年），最后一个是最后一个可见的，因为2008年最后一个是最后一个制造的（从一开始我就完全困惑了）。
福卡罗，你的英语对我来说足够好了。

dbroada · 发表于 2022-7-8 12:37:44

谢谢大家的帮助！是的，一开始我只是不明白，因为我认为我必须在这个过程中使用lisp，而且没有完全掌握确切的过程。当你说“last”时，这和使用空格键重复我使用的最后一个命令是一样的吗？

那么宏会是这样吗？

“C^C^text j bc 0,0 0”

Command: Manick · 发表于 2022-7-8 12:48:42

命令行上的文本：

copy


Command: dt
TEXT
Current text style:  "Standard"  Text height:  0.2000  Annotative:  No
Specify start point of text or [Justify/Style]: j
Enter an option [Align/Fit/Center/Middle/Right/TL/TC/TR/ML/MC/MR/BL/BC/BR]: bc
Specify bottom-center point of text: 0,0
Specify height <0.2000>:
Specify rotation angle of text <0>:
Enter text: testing
Enter text:
Command: ro
ROTATE
Current positive angle in UCS:  ANGDIR=counterclockwise  ANGBASE=0
Select objects: l
1 found
Select objects:
Specify base point: 0,0
Specify rotation angle or [Copy/Reference] <0>: 90
Command: m
MOVE
Select objects: l
1 found
Select objects:
Specify base point or [Displacement] <Displacement>: 0,0
Specify second point or <use first point as displacement>:

转换为宏：

copy

^C^Cdt;j;bc;0,0;;;\ro;l;;0,0;90;m;l;;0,0;\

CarlB · 发表于 2022-7-8 12:54:02

不，AutoCAD有2个特殊的选择工具。当要求您选择对象时，如擦除、移动等，您可以只键入P作为上一个选择，或键入L作为最后一个对象。最后一个对象过去是最后一个可见的绘制对象，但最近已更改为任何位置的最后一个绘制对象。

dbroada · 发表于 2022-7-8 12:59:58

非常好，非常感谢！这将为我的项目节省大量时间。

[综合讨论] 新建自定义命令

发表回复

精选推荐