怎样把面积输出到记事本或者某个变量啊？

晴天小猪

我用area计算了面域的面积，怎样把面积输出到记事本或者赋给某个变量啊？谢谢了。

Student

;请用下面的函数试试：

(defun get_area(/ ent)
 (setq ent(car(entsel "拾取要计算面积的图形：")))
 (if ent
  (progn
   (command "_.area" "o" ent)
   (getvar "area")
  )
  nil
 )
)
;
;例如把结果送给变量myArea

(setq myArea(get_area))

;供参考。

花锦绣

;跟一个

;请用下面的函数试试：

(defun get_area(/ ent f fname mj)
 (SETQ f (GETSTRING "请输入文件名<*.TXT>(不输后缀): "))
 (SETQ Fname (OPEN (STRCAT FNAME ".TXT") "W"));打开文件
 (setq ent(car(entsel "拾取要计算面积的图形：")))
 (if ent
  (progn
  (command "_.area" "o" ent)
  (setq mj (getvar "area"))
  )
  (princ mj fname);输出到文本文件
 )
 nil
)
;
;例如把结果送给变量myArea

(setq myArea(get_area))

;供参考。