引线宏
有人能把它翻译成宏吗？谢谢：）（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））
)
; 请帮助，我想要一个自动角度（60120240300）的引线宏。。。
我有一个，但它不是完美的，我必须使xline获得准确的角度。。。
^C^C\U xline；hor“^C^C\U qleader”非拾取点“^C^C\U擦除”^c^cATTEDIT编辑
使用Mleader，使用它而不是qleader轻松设置。
或者将Polar设置为60，然后按该路线运行。 您希望它在宏中用于什么目的？如果是这样的话，你可以在LT中运行它，那么它将不起作用-因为LT不支持lisp（至少没有一些插件）。还有很多在普通宏/Diesel代码中无法实现的功能。
如果您的意思是要从ACad LT以上的某个宏中调用它，那么您有2个选项：
[列表]
[*]将其保存到LSP文件，然后生成如下宏：
[/列表]
^C^C(load "C:/Path/Filename")Q
[列表]
[*]或将其全部复制到宏中，并以^C^C^P作为前缀，删除新行，删除所有以；，后缀为Q：
[/列表]
^C^C^P(setq l_ang 60)(setq .... "orthomode" ort))(defun dtr (a) (* pi (/ a 180.0)))Q 谢谢Irneb，我以前使用的是完整版本，但我们公司降级为AutoCAD LT
2011年，由于我们不能在lt中运行lisp，我希望它用宏或diesel编写，但如果不能，请帮助我开发此代码
^C^C_qleader\
问题是我不能以直角（60120300240）
或者请帮助我使用qleader执行与上述lisp例程相同的操作。
非常感谢。 谢谢，但mleader不能是matchprop：（ 谢谢，因为我们无法在LT中运行它，所以可以使用具有相同设置的qleader吗？
请帮我开发这个代码。。
^C^C\U xline；hor“^C^C\U qleader”非拾取点“^C^C\U擦除”^c^cATTEDIT编辑
你在第一篇帖子中提到了match-prop吗？你试过打开polar吗？ 是的，它可以。为什么它不能呢？ 我已经组合并移动了你的线程。请只发布同一个问题一次。
页:
[1]