来自等高线的数据

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

以下是我的一个非常古老的程序，可能会有所帮助，为本文的目的进行了调整：
[code]（defunc:Sample（/\u sub dc el l1 ls p1 p2 sp ss）；；©Lee Mac 2011（defunlst el）（iflst（cons（listlst）（cadrlst）el）（[color=BLUE cdddrlst el））（[color=BLUE setqdc（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(应用[color]'附加[color]（vl排序[color]ls（函数[color]（lambda[color]（a b）（