[**求助**]怎样完善这个计算面积的LSP？？？

iixf

因为老要用到计算面积的工作，即选定一个区域后，自动计算出它的面积，
于是我就做了一个这样的“入门级”东东，我的想法是，把这个区域自动转成多义线，
然后计算出此多义线的面积，但还不太好用，有如下问题需要各位老大帮忙：

1.如何把计算出来的结果直接用DTEXT输出在鼠标所在的位置

2.如何把程序不想看到的部分隐藏罗

3.如何把定义的多义线再删掉(或者有更好的办法?)

(defun c:as()
(setq p1(getpoint"\n拾取点:"))
(command "boundary" "a" "o" "p" "i" "y" "" p1 "")
(setq p2(entlast))
(command "area" "o" p2 PAUSE)
(princ)
)

ZZXXQQ

3. (defun c:aa ()
4. (setvar "cmdecho" 0)
5. (command "_.undo" "be")
6. (setq pt (getpoint "\n请点取要标注的范围内一点:"))
7. (command "-boundary" pt "" "area" "o" "l" "erase" "l" "")
8. (command "dtext" "j" "c" pt "5" "0" (rtos (getvar "area") 2 3) "")
9. (command "_.undo" "e")
10. (setvar "cmdecho" 1)
11. (princ)
12. )

(defun c:aa () (setvar "cmdecho" 0) (command "_.undo" "be") (setq pt (getpoint "\n请点取要标注的范围内一点:")) (command "-boundary" pt "" "area" "o" "l" "erase" "l" "") (command "dtext" "j" "c" pt "5" "0" (rtos (getvar "area") 2 3) "") (command "_.undo" "e") (setvar "cmdecho" 1) (princ) )

iixf

谢谢楼上的高手,不过运行不了,可能哪里出问题了咯~~

提示如下:

命令: aa
请点取要标注的范围内一点:
输入文字: 未知命令“5398.778”。按 F1 查看帮助。
未知命令“AA”。按 F1 查看帮助。

ZZXXQQ

3. (defun c:aa ()
4. (setvar "cmdecho" 0)
5. (command "_.undo" "be")
6. (setq pt (getpoint "\n请点取要标注的范围内一点:"))
7. (command "-boundary" pt "" "area" "e" "l" "erase" "l" "")
8. (command "text" "c" pt "5" "0" (rtos (getvar "area") 2 3) "")
9. (command "_.undo" "e")
10. (setvar "cmdecho" 1)
11. (princ)
12. )

(defun c:aa () (setvar "cmdecho" 0) (command "_.undo" "be") (setq pt (getpoint "\n请点取要标注的范围内一点:")) (command "-boundary" pt "" "area" "e" "l" "erase" "l" "") (command "text" "c" pt "5" "0" (rtos (getvar "area") 2 3) "") (command "_.undo" "e") (setvar "cmdecho" 1) (princ) )

124350440

能否选择完需要算的面积之后得出总和标注在图中？