请教如何获得天正风管的角度，起点坐标，终点坐标？

etg198

请教如何获得天正风管的角度，起点坐标，终点坐标？
以下是 “print1985” 以前写的程序，如何修改 'Hvac_R3， 'Hvac_R4，来获得我想要的数据呢，谢谢各位！
[code="lisp] ;获取天正风管尺寸
(defun c:fg ( / e ob w h)
  (if (setq e (car (nentsel "\n请选择风管")))
    (progn
      (setq ob (vlax-ename->vla-object e)
            w (vlax-get-property ob 'Hvac_R4) ;宽度
            h (vlax-get-property ob 'Hvac_R3) ;高度
      )
      (princ (strcat "\n风管尺寸：" (rtos w 2) "×" (rtos h 2)))
    )
  )
  (princ)
)[/code]

whophy

(Vlax-Get (Vlax-Ename->Vla-Object (car (entsel)))'Hvac_start)；查询天正风管起点坐标
(Vlax-Get (Vlax-Ename->Vla-Object (car (entsel)))'Hvac_end)； 查询天正风管终点坐标
有三维坐标，角度自己算吧。

zjjhero3blade

(princ (strcat "\n风管尺寸：" (rtos w 2) "×" (rtos h 2)))