面积查询单位是平方米？

aozero

请问：在CAD图中，单位设置的是毫米，查询出来的面积是平方毫米，能有工具查询出来的面积是平方米吗？（因为面积太大，自己都搞求清楚几位了）

谢谢！

phoenixdjq

声名:这个程序不是本人所做

(Defun c:SAREA ()
  (Setvar "Cmdecho" 0)
  (Setq A (Entsel "请选择封闭实体: "))
  (If
    A
      (Progn
        (Setq B (Entget (Car A)))
          (If
            (OR (="LWPOLYLINE"(Cdr(Assoc 0 B))) (="CIRCLE"(Cdr(Assoc 0 B))) )
              (Progn
                (command "area" "E" A)
                (SETQ AREAm (/ (getvar "area") 1000000))              
                (Setq A1 (Rtos AREAm (Getvar "Lunits") 3) )
                (setq txthgt (* (getvar "dimscale") 5) )
                (princ "选择文字的位置: ")
;                (command "text" pause txthgt "" (Strcat "AREA=" a1 " sq m"))
                (command "text" pause txthgt "" a1)
              )
              (Princ "\nSelected entity is neither a CIRCLE nor a POLYLINE")
          )
      )
      (Princ "\nNo entity found at that location")
  )
  (Princ)
)

aozero

谢谢！！！

我想请问一下怎么运行这个程序

lxg

没有可能吧?

aozero

我拷贝到LSP中，命名MIANJI.LSP,加载了MIANJI.LSP,在命令栏里打MIANJI,提示错误,请高手指点迷津.

谢谢!!!

aozero

不知道怎么做呀

aozero

另外,长度怎么直接测量米呢?

谢谢!

(生命不息,疑问不止)

aozero

可以在命令栏显示出来吗？

谢谢！！！

lzu1797

2006版以後可用FIELD看看

可以滿足你的需要

aozero

谢谢！！！

我的是2004版，郁闷。