线路之间的距离

lucky9 · 发表于 2022-7-5 15:10:00

需要一个lisp来计算地图中直线之间的距离，并将其放置在每条直线的中心。

我需要一次选择所有行，而不是一行一行地选择。

当做
幸运9

BIGAL · 发表于 2022-7-5 15:19:10

现在水晶球在哪里，我可以看看你想要什么。

请发布dwg或图像。

lucky9 · 发表于 2022-7-5 15:19:44

随附样品图纸供您参考。。
如果长度与图纸所示相似，那就太好了。

谢谢
05键Map\u Drawing\u示例。图纸

hanhphuc · 发表于 2022-7-5 15:24:18

嗨，你应该问lisp问题
AutoLISP论坛

copy


(defun c:test (/ en d p p2 tx1 tx2)
 (setvar 'dimasz 15)
 (while (setq en (car (entsel "\nPick polyline.. ")))
   (and (wcmatch (cdr(assoc 0 (entget en))) "*LINE")
 (setq d   (vlax-curve-getdistatpoint en (vlax-curve-getendpoint en))
       p   (vlax-curve-getpointatdist en (* d 0.5))
       tx1[color="purple"] "100MM %%C"[/color] 
       tx2 (strcat "L=" (rtos d 2 0) "M")
       p2  (if (and pointer:marker msg:pointer) ([color="blue"]msg:pointer[/color] (list[color="red"] (trans p 0 1)[/color]) 1 (strcat tx1 "\\P" tx2))
             (getpoint p "\nSpecific next point.. "))
       )
 
 (vl-cmdf "_leader" "_non" [color="red"](trans p 0 1)[/color] "_non" p2 "" tx1 tx2 "")
)
   )
 (princ)
 )

视觉效用
消息：指针

附言：@BIGAL我注意到你离线，而OP在线。我的快速回复并不是要劫持。

lucky9 · 发表于 2022-7-5 15:32:21

您好，我在选择多段线时尝试了您的解决方案，它什么都不做。

这是一个屏幕截图。

顺便说一句，我错把这个问题贴错了部分，如果任何一个mod能把这个帖子移到正确的部分，我将不胜感激。

谢谢

hanhphuc · 发表于 2022-7-5 15:35:00

您下载了提供的visual utility链接了吗？
缺少常规？
指针：标记
消息：指针

我编辑了前一篇文章，试试看，它仍然可以在没有这些可视化工具的情况下运行。
请重试

lucky9 · 发表于 2022-7-5 15:41:33

我没有下载，

你指的是消息：指针代码吗？

令人惊叹的
谢谢

BIGAL · 发表于 2022-7-5 15:46:34

我将使用简单的检查作为库例程。我喜欢指针代码的外观，请仔细看看。

copy


(if (not msg:pointer)(Load "msg-pointer")) ; save lisp as say msg-pointer

hanhphuc · 发表于 2022-7-5 15:51:25

谢谢BIGAL，如果OP保留这个子文件，这很有意义

SLW210 · 发表于 2022-7-5 15:55:02

我已经将您的帖子转移到AutoLISP、Visual LISP和DCL论坛。请张贴在最相关的论坛。

[编程交流] 线路之间的距离

发表回复

精选推荐