[求助][原创]lisp中在调用command时如何得到文本窗口输出的信息

qiiqii

请教一个问题:lisp中在调用command时如何得到文本窗口输出的信息
因为REGION面域没有面积属性,但可以用AutoCAD的area查询到,但如何在程序中得到呢?


命令setq YY (ssget '((0 . "REGION"))))
命令setq ZZ (ssname YY 0))
命令: (setq aa (command "area" "o" zz))
area
指定第一个角点或 [对象(O)/加(A)/减(S)]: o
选择对象:
面积 = 12.572，周长 = 17.141
命令: nil
命令: !aa
nil
以上,如何在程序中得到面积和周长的值?

xshrimp

(defun c:test()

  (setq entname (car (entsel "\n选择物体")))

  (setq obj (vlax-ename->vla-object entname))

  (print  "面积为")

  (princ (vla-get-Area Obj))

  (print  "长度为")

  (princ (vla-get-Perimeter  obj))

  (princ)

)

ZZXXQQ

(setq YY (ssget '((0 . "REGION"))))
(setq ZZ (ssname YY 0))
(setq aa (command "area" "o" zz))
(princ "\n面积=")
(princ (getvar "AREA"))
(princ "\n周长=")
(princ (getvar "PERIMETER"))