流动箭头方向LISP

sadamitis · 发表于 2022-7-5 16:03:54

您好，感谢您前来观看！我试图创建一个LISP，用于在具有已知高程的等高线上放置流箭头。我们只需要等高线上的流向箭头垂直于已知高程。我们正试图将其放置在每隔5英尺的间隔线上。多段线具有已知的z值高程，我希望这有帮助。

请帮助我上传了一个图像和CAD文件，如果你有任何问题，请让我知道，再次感谢你查看！

流向箭头。图纸

devitg · 发表于 2022-7-5 16:09:36

箭头应为方块。我会做到的

请明确5´距离。

sadamitis · 发表于 2022-7-5 16:10:59

流向箭头应大致每隔5-10英尺间隔一次。我们不是在寻找100万个流向箭头，仅仅足以显示整个项目区域流向的差异。我们需要在多个不同的项目上执行这些流，所以有了这个LISP将非常有帮助！！希望这有帮助！！

devitg · 发表于 2022-7-5 16:16:08

好的，请联系我devitg@gmail.com

devitg · 发表于 2022-7-5 16:17:40

查找附件
每五个箭头。LSP

devitg · 发表于 2022-7-5 16:22:34

在dwg上需要一个块作为箭头
每五个箭头。LSP
箭头-01。图纸

sadamitis · 发表于 2022-7-5 16:24:57

非常感谢你，我要看看这是否有效！

sadamitis · 发表于 2022-7-5 16:26:39

运行应用程序的命令是什么？

sadamitis · 发表于 2022-7-5 16:31:45

得到了运行它的命令，并给出以下语句：

流量
拾取等高线；错误：无函数定义：G长度

代码如下：
;;; 命令名为FLOW

（定义C：流（/ALL-CURVE-SS CURVE-LIST SAMPLE-CURVE SAMPLE-ENT SAMPLE-LAYER）
（VL-LOAD-COM）

;;;（初始VL）

（SETQ样本曲线（CAR（ENTSEL“拾取等高线”））

（SETQ SAMPLE-LAYER（CDR（ASSOC 8（ENTGET SAMPLE-CURVE）））

（SETQ SAMPLE-ENT（CDR（ASSOC 0（ENTGET SAMPLE-CURVE）））

（SETQ ALL-CURVE-SS（SSGET“X”（列表（CONS 8样本层）（CONS 0样本层）））
（SETQ CURVE-LIST（VL-REMOVE-IF-NOT’（λ（X）（=（类型X）“ENAME”）（MAPCAR”CADR（SSNAMEX ALL-CURVE-SS）））

;;; （setq曲线（第4条曲线列表））

（FOREACH CURVE CURVE-LIST）
（如果（>（G-长度曲线）60）

（VL-CMDF“测量”曲线“B”箭头-01“Y”60）
)
)

)