面积

jly0406

;; write area value of a close polygon to drawing
(DEFUN C:EA( )
;;
  (vl-load-com)
  (setq olderr *error*)
  (setq *error* myerr)
  (SETVAR "CMDECHO" 0)
  (SETQ OLDOS (GETVAR "OSMODE"))
;;
  (SETVAR "OSMODE" 0)
  (SETQ STA (CAR (ENTSEL)))

  (setq ptst (vlax-get STA 'AREA))


  ;(COMMAND "AREA" "E" STA)
; (SETQ QAREA (atof (GETVAR "AREA")))
; (SETQ QAREA (atof (GETVAR "AREA")))
  ;(SETQ QAREA (atof (strcat ( rtos(GETVAR "AREA") 2 2) )))
; (SETQ QAREAb (/ QAREA 1000000))


    (PRINC  ptst)  
;   (PRINC "\n" QAREAb)
  ;    (PRINC "\n" (< 1.5 QAREAb))
  ;if( (< 1.5 QAREAb)
     ;  (progn
  ;(SETQ PT (GETPOINT"\nPick the point you want to write area:"))
  ;(COMMAND "TEXT" PT "0" QAREAb "" )


   ;      )
; )
  (SETVAR "OSMODE" OLDOS)
  (SETVAR "CMDECHO" 1)
  (setq *error* olderr)
  (PRINC)
)

自贡黄明儒

STA不转换成vla就可求得到面积，可能不行