方位和距离Lisp Routin
大家好。。我是新手，所以我希望我在正确的领域。我刚刚从这里得到了一个lisp例程（不记得链接），用于测量目的和喜欢的方向角和距离，但我想知道是否有人可以解决这个问题，让我可以选择将距离文本放在方向角下方。此外，我还修改了这个例程，使我能够将方向角精确到05“，但我不知道如何对距离进行同样的处理，以使我的公差为5mm（即1.225而不是1.223）。它允许我选择小数位数，但希望选择5、10或1的公差。轴承距离。lsp 请有人能帮忙吗？？？？ 这是一首老歌，但很好。
为我工作。应该适合你。我相信你正在寻找选择。
（defun c:laline（）（terpi）；；注释行选择集，由Carl Bassler编写，编码1998年12月，2001年10月1日更名为label_line（princ“Annotate line（along）、distance（above）和bearations（below）”）（setvar“cmdecho”0）（命令“.u undo”“\u BE”）（setq dwgsnap（getvar“osmode”））（setvar“osmode”0）（textht\u 0）（setq revflag 0）（setq revprompt（getstring“\nReverse Annotation Brg above，dist above？（Y或N）：”）（if（or（=“Y”revprompt）（=“Y”revprompt））（setq revflag 1））（setq brgplag 0）（setq brgprompt（getstring“\N notate Brg？\（Y或N\）：”）（if（or（=“Y”brgprompt）（=“Y”brgprompt））（setq brgflag 1））（setq disttag（getstring T”\N输入距离单位 嗨，runner214。。。。谢谢你的尝试，但我已经看到了这一个b4和问题是，我忘了提到的是，我有我的单位设置为顺时针方向和北270d（即阅读零页和90d东）。。。此外，我更喜欢轴承中没有N、S、E或W，但我仍然无法获得5秒的公差 RUNNER 214除了直线长度是实际长度的12倍之外，这个lisp程序运行良好。我有一个补丁，我可以做纠正这个？？ 在这里工作很好。我用小数点。 嘿，Runner214，我最初的问题有什么答案吗。。。有没有可能修复我发布的lisp
您好，我正在使用以下设置（请看照片）。
任何人都可以将代码更新为梯度和米，并支持直线和多段线吗
（defun c:laline（）（terpi）；；注释行选择集，由Carl Bassler编写，编码1998年12月，2001年10月1日更名为label_line（princ“Annotate line（along）、distance（above）和bearations（below）”）（setvar“cmdecho”0）（命令“.u undo”“\u BE”）（setq dwgsnap（getvar“osmode”））（setvar“osmode”0）（textht\u 0）（setq revflag 0）（setq revprompt（getstring“\nReverse Annotation Brg above，dist above？（Y或N）：”）（if（or（=“Y”revprompt）（=“Y”revprompt））（setq revflag 1））（setq brgplag 0）（setq brgprompt（getstring“\N notate Brg？\（Y或N\）：”）（if（or（=“Y”brgprompt）（=“Y”brgprompt））（setq brgflag 1））（setq disttag（getstring T”\N输入距离单位
页:
[1]