안녕하세요 리습중에 그냥 캐드내명령창으로 숫자가나오는데 이것을 면적을산출하고나오는값을 택스트로 찍고싶은데 추가적인 명령무엇을추가해야될까요
(defun c:sea( / total objs ss uflag ) (vl-load-com)
(setq total nil objs nil)
(setq total (lambda (objects prop conv)
(apply
(function +)
(mapcar
(function
(lambda (x)
(* conv (vlax-get-property x prop))
)
)
objects
)
)
)
)
(if (ssget ‘((0 . “HATCH”)))
(progn
(setq uFlag
(not
(vla-StartUndoMark
(setq doc
(vla-get-ActiveDocument
(vlax-get-acad-object)
)
)
)
)
)
(vlax-for
obj
(setq ss (vla-get-ActiveSelectionSet doc))
(setq Objs (cons obj Objs))
)
(vla-delete ss)
(princ(strcat “Area: ” (rtos (total Objs ‘Area 1.) 2 2)))
)
)
(setq uFlag (vla-EndUndomark doc))(princ)
)