本帖最后由 print1985 于 2014-12-5 23:14 编辑
 - ;获取天正风管尺寸
- (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)
- )
|