切割等高线成断面的小程序

切割等高线成断面的小程序

编个切割等高线成断面的小程序, 也许大家都用过。我这里还是发下,请大家多指点。
命令为 “tang”,
< (setq        ss (ssget ‘((0 . “Polyline,LWPOLYLINE”)                    (8 . “DGX,Dgx1,DSX,DSX1”)
; 选择等高线和等深线 图层
)
)
)>

选择函数中ssget (8 . “DGX,Dgx1,DSX,DSX1”)图层名可以自己根据实际图层名修改

 

分享到 :