[求助]：有谁有空帮我完善一个房间标注小程序

ahill

有没有哪位有空帮我完善一个房间标注的小程序：

这个程序的想法是这样子的，对一个封闭的房间，自动生成内边界线，然后对这个边界线调用AREA命令，对其中返回的面积和周长自动使用A=123.23M2　P=13.12M 的格式在房间的中心位置上下两层标注，然后再删除掉前面生成的边界线。

这个是我现在完成的一部分。因为对这个东西不熟，特别是函数不知道，所以想请高人帮忙完善一下。　

(DEFUN C:dda(/ bs aa per)
  (
   (setvar "cmdecho" 1 )

   (princ  "点取房间多义线:")
   (setq bs (ssget))
   (princ "")
   (command "area" "o" bs)
   
   (setq aa (getvar "area"))
   (setq aa (/ aa 1000000.0))
   (setq aa (rtos aa 2 2))
   (setq aa (strcat "A=" aa))
   (setq aa (strcat aa "M2"))
   (princ "点取面积标注点:")
   (command "text" pause 300 0 aa)
   (princ "")

   (setq per (getvar "perimeter"))
   (setq per (/ per 1000.0))
   (setq per (rtos per 2 2))
   (setq per (strcat "P=" per))
   (setq per (strcat per "M"))
   (princ "点取周长标注点:")
   (command "text" pause "" 0 per)

   (princ "")
  )
)

brainstorm

(defun c:dda (/ pt en area perimeter aa bb)
    (setq pt (getpoint "\n请选择房间内的一点:"))
    (command ".bpoly" pt "")
    (setq en (entlast))
    (setq area (* (vlax-curve-getArea en) 1e-6))
    (setq perimeter
             (*
                 (vlax-curve-getdistatparam
                     en
                     (vlax-curve-getendparam en)
                 )
                 1e-3
             )
    )
    (entdel en)
    (setq aa (strcat
                 "A="
                 (rtos area 2 2)
                 "M2"
             )
    )
    (setq bb (strcat
                 "P="
                 (rtos perimeter 2 2)
                 "M"
             )
    )
(command ".text" .....)
)

ahill

谢谢。。虽然我才刚开始学Lisp，看不懂你的函数，但是还是要谢谢你。。

xinmh@163.com

怎么运行不了啊，提示error: misplaced dot on input