重心LISP

DPS · 发表于 2022-7-5 16:41:39

嗨，我是新加入这个社区的，我正在努力寻找出路。实际上，我正在尝试使用一些旧的lisp直接在选定的多段线上生成重心，并用圆点指出它。

ReMark · 发表于 2022-7-5 16:53:16

您可能会在该线程中找到解决方案。先通读整条线索。

http://www.cadtutor.net/forum/showthread.php?65046-开放多段线的重心

DPS · 发表于 2022-7-5 17:02:16

我有几个部分，我想从中找到不同类型材料的重心。之后，我将在平面图上创建一条多段线，以便计算每个材质的实际长度。检查随附的图纸。sample2.pdf我无法上传CAD格式
示例1.pdf

ReMark · 发表于 2022-7-5 17:15:16

你看过我提供的链接吗？

DPS · 发表于 2022-7-5 17:17:31

这是我发现的Lisp程序，但它是如何工作的？？我将其上传到autocad，但它没有给出任何信息。
（定义LM：多中心色（e/l）
（foreach x（setq e（entget e））
（if（=10（car x））（setq l（cons（cdr x）l）））
)
(
（λ（a）
（trans）
（地图车'/
（应用“mapcar”
（缺点'+
（地图车
（功能
（λ（a b）
(
（λ（m）
（地图车
（功能
（λ（c d）（*（+c d）m））
)
a b
)
)
（（（（（a车）（cadr b））（*（b车）（cadr a）））
)
)
)
l（cons（最后一个l）l）
)
)
)
（列表a）
)
（cdr（assoc 210 e））0
)
)
(* 3.0
（应用'+
（地图车
（功能
（λ（a b）
（（（（（a车）（cadr b））（*（b车）（cadr a）））
)
)
l（cons（最后一个l）l）
)
)
)
)
)

ReMark · 发表于 2022-7-5 17:26:08

线程中有多个lisp例程。这就是为什么我说要先阅读整个帖子。如果一个常规不起作用，那么你可以尝试另一个。

可能是因为您选择的对象无效，所以它不起作用。

有许多重心lisp例程可用，但很可能仅适用于涉及区域或体积的情况，而在您的情况下并非如此。

我在我的工作中没有COG lisp例程，所以我不能告诉你哪个lisp例程最适合你的需要。这是你的试错时间。

DPS · 发表于 2022-7-5 17:35:20

它终于起作用了！！谢谢！！

ReMark · 发表于 2022-7-5 17:48:04

我很高兴听到你找到了一个有效的解决方案。谢谢你更新我们。

[编程交流] 重心LISP

发表回复

精选推荐