请教meflying版主 怎样提取多段线的三维坐标

qliweidong

meflying版主

       我想提取多段线的三维坐标，可是下面这个小程序只显示二维坐标，不知是什么原因,请您给诊断一下，望不吝赐教。

   (defun ployline ( )
  (setq i (getvar "dimscale"))
  (setvar "gridmode" 0 )
  (setq h (* 3 i))
  (setq wm (car (entsel "please choose an entity")))
  (setq plist (entget wm))
  (princ plist)
  )

meflying

多线段本身就是2维的