Lee Mac 发表于 2022-7-5 23:06:37

以下是我的一个非常古老的程序，可能会有所帮助，为本文的目的进行了调整：
（defunc:Sample（/\u sub dc el l1 ls p1 p2 sp ss）；；©Lee Mac 2011（defunlst el）（iflst（cons（listlst）（cadrlst）el）（lst el））（dc（vla get ACTIVEDCUMENT（颜色]）sp(vlax get propertydc（if（=1（getvar'CVPORT））（if（和（setqp1（getpoint]>“\n指定采样线的第一点：）（setqp2(getpoint“\n指定采样线的第二点：“p1”）（ssget“\u F”（listp1 p2）（（0。“LWPOLYLINE”））（setqp1 1（trans 1 0）p2（trans 1 0）））(progn（setql1（vlax调用sp’addline p1 p2））（vlax forob（setqss（vla get ACTIVELECTIONSETdc））（ob 0。）（setqls（appendls（\u sub（vlax invokeob'与l1acextendnone））（vla put elevationob el））（vla deletel1）（vlax invokesp'add3dpoly(应用'附加（vl排序ls（函数（lambda（a b）（

motee-z 发表于 2022-7-5 23:11:44

这是你的要求，我用它来插值点，线，每个东西都有z值
并在屏幕上打印计算出的液位
中级2级。LSP

prodromosm 发表于 2022-7-5 23:13:56

李，干得好。是否可以更新此代码。
 
选择直线或多段线，并将其从等高线高程转换为三维多段线。
 
查看atach文件
图纸1.dwg

BIGAL 发表于 2022-7-5 23:18:17

李2011年的代码不老我有1998年9月

prodromosm 发表于 2022-7-5 23:23:40

有什么想法吗？？？

eldon 发表于 2022-7-5 23:28:22

也许这条线就是你要找的

prodromosm 发表于 2022-7-5 23:31:50

不，eldon，我有这个Lisp程序的Lisp程序，但这并不是我想要的。。
页: 1 [2]
查看完整版本: 来自等高线的数据