在两个pol之间创建线

georgi913 · 发表于 2022-7-6 11:46:40

大家好，
我想问你，如果有一个lisp例程，你可以在两条多段线之间创建线，它们有相同数量的点-每个点/顶点都与下面或上面的点/顶点垂直。这太棒了，因为我有太多的横截面，我必须这样做，在每个点之间，你的头会受伤

提前谢谢大家！

以下是我需要的示例：
示例_u。图纸

Lee Mac · 发表于 2022-7-6 12:14:04

也许：

[code]（定义c:VLines（/line ent1 ent2 i p1 p2）（vl load com）；；Lee Mac ~ 01.02.10（defun line（p1 p2）（entmake（list（cons 0“line”）（cons 10 p1）（cons 11 p2）））（while（progn（setq ent1（car（entsel”\n选择第一条多段线：））（cond（（eq'ENAME（type ent1））（if（wcmatch（cdr（assoc 0（entget ent1））））“*多段线”）（while（progn（setq ent2（car（entsel“\n选择第二条多段线：”）（cond（（eq'ENAME（type ent2））（if（wcmatch（cdr（assoc 0（entget ent2）））“*多段线”）（progn（setq i（1-（vlax curve getstartparm ent1）））（while（和（

georgi913 · 发表于 2022-7-6 12:31:39

非常感谢。它很有魅力，你救了我

Lee Mac · 发表于 2022-7-6 12:49:50

不客气

[编程交流] 在两个pol之间创建线

发表回复

精选推荐