重心LISP
嗨，我是新加入这个社区的，我正在努力寻找出路。实际上，我正在尝试使用一些旧的lisp直接在选定的多段线上生成重心，并用圆点指出它。 您可能会在该线程中找到解决方案。先通读整条线索。http://www.cadtutor.net/forum/showthread.php?65046-开放多段线的重心 我有几个部分，我想从中找到不同类型材料的重心。之后，我将在平面图上创建一条多段线，以便计算每个材质的实际长度。检查随附的图纸。sample2.pdf我无法上传CAD格式
示例1.pdf 你看过我提供的链接吗？ 这是我发现的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）
)
)
)
)
) 线程中有多个lisp例程。这就是为什么我说要先阅读整个帖子。如果一个常规不起作用，那么你可以尝试另一个。
可能是因为您选择的对象无效，所以它不起作用。
有许多重心lisp例程可用，但很可能仅适用于涉及区域或体积的情况，而在您的情况下并非如此。
我在我的工作中没有COG lisp例程，所以我不能告诉你哪个lisp例程最适合你的需要。这是你的试错时间。 它终于起作用了！！谢谢！！
我很高兴听到你找到了一个有效的解决方案。谢谢你更新我们。
页:
[1]