[討論]請問以下的LISP 應該如何修改單位呢??

由 **hist** 2013-10-27, 03:00

請問以下的LISP 應該如何修改單位呢??

[/c(defun C (/ acsp adoc ar axss hgt maxp minp obj p1 p2 pc ss txt)

(vl-load-com)
(setq adoc (vla-get-activedocument
(vlax-get-acad-object)
)
)
(if (and
(= (getvar "tilemode") 0)
(= (getvar "cvport") 1)
)
(setq acsp (vla-get-paperspace adoc))
(setq acsp (vla-get-modelspace adoc))
)
(vla-startundomark (vla-get-activedocument
(vlax-get-acad-object)))
(initget 7)
(setq hgt (getreal "\nEnter text height: "))

(prompt "\nSelect objects on screen to add area label")
(if (setq ss (ssget))
(progn

(setq axss (vla-get-activeselectionset adoc))
(vlax-for obj axss
(if (not
(vl-catch-all-error-p
(setq
ar (vl-catch-all-apply
(function (lambda()
(vlax-curve-getarea obj)))))))
(progn
(setq txt (strcat "面積=" (rtos ar 2 2)))
(vla-getboundingbox obj 'minp 'maxp)
(setq p1 (vlax-safearray->list minp)
p2 (vlax-safearray->list maxp)
pc (mapcar (function (lambda(a b)(/ (+ a b) 2))) p1 p2)
)
(vlax-invoke acsp 'Addtext txt pc hgt)
)
)
)
)
)
(vla-endundomark (vla-get-activedocument
(vlax-get-acad-object)))
(princ)
)
(princ "\nType ALB to label objects with area text")
(princ)