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论坛
 

(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 "100MM %%C"
       tx2 (strcat "L=" (rtos d 2 0) "M")
       p2(if (and pointer:marker msg:pointer) (msg:pointer (list (trans p 0 1)) 1 (strcat tx1 "\\P" tx2))
             (getpoint p "\nSpecific next point.. "))
       )

(vl-cmdf "_leader" "_non" (trans p 0 1) "_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

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

(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论坛。请张贴在最相关的论坛。
页: [1] 2
查看完整版本: 线路之间的距离