(vl-load-com)(setq ptb (vlax-get (vlax-ename->vla-object (car (entsel "\n选取三维多段线:"))) "coordinates"))
