引线宏

jmyrwen · 发表于 2022-7-7 00:15:06

有人能把它翻译成宏吗？谢谢：）

（setq l_ang 60）
（setq l_ang1 120）
（定义c:q（/sty nm p1 p2 ateblk p3）
（命令“cmdecho”“0”）
（setq osm（getvar“osmode”））
（setq ort（getvar“正交模式”））
;（命令“osmode”“2”）
（setq p1（getpoint“\n点击原点：）”）
（命令“osmode”“0”）
（命令“orthomode”“0”）
（setq p2（getpoint“\n点击目标”p1））
（普林斯）
（如果(
（程序
（如果(
（setq p3d（-（cadr p1）（cadr p2）））
)
（如果(
（setq p3d（-（cadr p2）（cadr p1）））
)
（如果(
（程序
（setq p3（极性p2（+0.0（dtr（-l_ang）））（*p3d 1.1547）））
（命令“LEADER”p2 p3 p1“”“n”）
)
)
（如果(
（程序
（setq p3（极轴p2（+0.0（dtr l_ang））（*p3d 1.1547）））
（命令“LEADER”p2 p3 p1“”“n”）
)
)
)
)
（如果(
（程序
（如果(
（setq p3d（-（cadr p1）（cadr p2）））
)
（如果(
（setq p3d（-（cadr p2）（cadr p1）））
)
（如果(
（程序
（setq p3（极性p2（+0.0（dtr（-l_ang1）））（*p3d 1.1547）））
（命令“LEADER”p2 p3 p1“”“n”）
)
)
（如果(
（程序
（setq p3（极轴p2（+0.0（dtr l_ang1））（*p3d 1.1547）））
（命令“leader”p2 p3 p1“”“n”）
)
)
)
)
（命令“osmode”osm）
（命令“orthomode”ort）
)
;
（defun dtr（a）
（*pi（/a 180.0））
)
;

jmyrwen · 发表于 2022-7-7 00:27:22

请帮助，我想要一个自动角度（60120240300）的引线宏。。。

我有一个，但它不是完美的，我必须使xline获得准确的角度。。。

^C^C\U xline；hor“^C^C\U qleader”非拾取点“^C^C\U擦除”^c^cATTEDIT编辑

rkent · 发表于 2022-7-7 00:30:05

使用Mleader，使用它而不是qleader轻松设置。

或者将Polar设置为60，然后按该路线运行。

irneb · 发表于 2022-7-7 00:40:14

您希望它在宏中用于什么目的？如果是这样的话，你可以在LT中运行它，那么它将不起作用-因为LT不支持lisp（至少没有一些插件）。还有很多在普通宏/Diesel代码中无法实现的功能。

如果您的意思是要从ACad LT以上的某个宏中调用它，那么您有2个选项：

[列表]

将其保存到LSP文件，然后生成如下宏：
[/列表]

copy

^C^C(load "C:/Path/Filename")Q

[列表]

或将其全部复制到宏中，并以^C^C^P作为前缀，删除新行，删除所有以；，后缀为Q：
[/列表]

copy

^C^C^P(setq l_ang 60)(setq .... "orthomode" ort))(defun dtr (a) (* pi (/ a 180.0)))Q

jmyrwen · 发表于 2022-7-7 00:42:32

谢谢Irneb，我以前使用的是完整版本，但我们公司降级为AutoCAD LT
2011年，由于我们不能在lt中运行lisp，我希望它用宏或diesel编写，但如果不能，请帮助我开发此代码

^C^C_qleader\

问题是我不能以直角（60120300240）

或者请帮助我使用qleader执行与上述lisp例程相同的操作。

非常感谢。