社区 › Auto Lisp › 流动箭头方向LISP

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

流动箭头方向LISP

您好，感谢您前来观看！我试图创建一个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）
)
)
 
 
)

SLW210 发表于 2022-7-5 16:32:36

请阅读代码发布指南，并编辑代码以包含在代码标签中。
Your Code Here=
Your Code Here

查看完整版本: 流动箭头方向LISP