面积
;; 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))
(PRINCptst)
; (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就可求得到面积，可能不行
页:
[1]