多段线长度

Guest Peter3171 · 发表于 2022-7-6 09:20:02

你好，

如何使用LISP获得已通过命令“PEDIT”“FIT”平滑的多段线的曲线长度。非常感谢。

David Bethel · 发表于 2022-7-6 09:25:30

基本发动机可能如下所示：

大卫

Guest Peter3171 · 发表于 2022-7-6 09:26:47

大卫
非常感谢。

CADTutor · 发表于 2022-7-6 09:30:54

你的请求让我想起了我不久前写的一个例程，所以我把它去掉了。它是在1995年写的，所以我需要做一些小的修改，特别是要使它与新的轻型多段线一起工作。

有一段时间，我从图纸上取下许多测量值进行估算，因此我编写了一整套用于测量、标记和调度图纸的命令。这只是一个简单的测量例程，可以给出任何指定图层上所有多段线的总长度或面积。通过拾取该层上的对象来选择层。

我相信David和fuccaro会对代码提出很多批评，但它确实管用

David Bethel · 发表于 2022-7-6 09:35:03

CADTutor，

如果一个计划奏效，那就是目标的90%。

在过去硬件有限的日子里，评估代码的速度是一个问题。不再是这样了。至少用一些真正小的东西。我有一些程序需要3-4分钟才能执行，但我们要处理大约100000张脸。

除了工作之外，我认为唯一重要的是作者理解代码，以便将来可以轻松地进行编辑。如果需要的话，它是否有文字注释？它的格式是否可以使人类的眼睛和大脑以最初预期的方式组织代码。

是的，你可能会少用75%的代码，但这件事是否可行呢-大卫

CADTutor · 发表于 2022-7-6 09:37:28

当然，你是对的。最初，这两个子例程在套件中的其他地方使用，因此分别编写。既然我已经9年没有Lisp程序了，这可能是一个很好的测试，看看我是否可以重写这一个，把代码降到只有25%。不知怎的，我对此表示怀疑。大卫，我一直很钦佩你代码的简洁。我很想看看你能用这个多小。

挑战？对

David Bethel · 发表于 2022-7-6 09:41:21

我随时准备接受挑战。

原始张贴代码：

发布日期：

看起来代码减少了62%，语句减少了58%。看起来你有15个全局变量。这是一个“不，不”。

-大卫

CADTutor · 发表于 2022-7-6 09:45:15

干得好，大卫！这太令人印象深刻了。

告诉我，“*POLYLINE”是否同时包含“POLYLINE”和“LWPOLYLINE”？自从R14以来，我没有写过任何LISP，所以我不确定如何涵盖这两种多段线类型。

我注意到，您的例程在功能上有一个不同之处-您不包括用于面积计算的开放多段线，而我的例程包括它们，但会警告用户。

关于这些全局变量，你是对的

David Bethel · 发表于 2022-7-6 09:47:52

CADTutor，

是的，“*”符号是通配符。（ssget）将comforms筛选为（wcmatch）通配符参数。退一步说，现在有人可以创建一个自定义实体类型，该类型可能被错误地包括在集合中，但不符合组dxf代码。以这种方式命名自定义实体类型（IMO）是一种不好的做法，即RTEXT。

我错过了你包括开放普林斯的事实。需要做些小改动。

-大卫

copy

CADTutor · 发表于 2022-7-6 09:50:31

谢谢你，大卫。这对我（我希望对其他人）来说是一个非常有用的一课。

[编程交流] 多段线长度

发表回复

精选推荐