方位和距离Lisp Routin

zedd33y · 发表于 2022-7-5 17:00:09

大家好。。我是新手，所以我希望我在正确的领域。我刚刚从这里得到了一个lisp例程（不记得链接），用于测量目的和喜欢的方向角和距离，但我想知道是否有人可以解决这个问题，让我可以选择将距离文本放在方向角下方。此外，我还修改了这个例程，使我能够将方向角精确到05“，但我不知道如何对距离进行同样的处理，以使我的公差为5mm（即1.225而不是1.223）。它允许我选择小数位数，但希望选择5、10或1的公差。
轴承距离。lsp

zedd33y · 发表于 2022-7-5 17:14:14

请有人能帮忙吗？？？？

runner214 · 发表于 2022-7-5 17:20:39

这是一首老歌，但很好。

为我工作。应该适合你。我相信你正在寻找选择。
[code]（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输入距离单位

zedd33y · 发表于 2022-7-5 17:31:38

嗨，runner214。。。。谢谢你的尝试，但我已经看到了这一个b4和问题是，我忘了提到的是，我有我的单位设置为顺时针方向和北270d（即阅读零页和90d东）。。。此外，我更喜欢轴承中没有N、S、E或W，但我仍然无法获得5秒的公差

Preston Miles · 发表于 2022-7-5 17:36:05

RUNNER 214除了直线长度是实际长度的12倍之外，这个lisp程序运行良好。我有一个补丁，我可以做纠正这个？？

runner214 · 发表于 2022-7-5 17:47:03

在这里工作很好。我用小数点。

zedd33y · 发表于 2022-7-5 17:58:10

嘿，Runner214，我最初的问题有什么答案吗。。。有没有可能修复我发布的lisp

prodromosm · 发表于 2022-7-5 18:06:00

您好，我正在使用以下设置（请看照片）。
任何人都可以将代码更新为梯度和米，并支持直线和多段线吗

[code]（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输入距离单位

[编程交流] 方位和距离Lisp Routin

发表回复

精选推荐