自动标注面积代码的问题

77077

请教下面的代码运行中会出现
“指定第一个角点或 [对象(O)/加(A)/减(S)]: object
选择对象:
面积 = 666.6670，周长 = 153.3334
命令: MJ 未知命令“MJ”。按 F1 查看帮助。
命令:”
另外有没有办法让平方米和亩都写在一起？

2. (defun c:mj ()
3. ;;;; get area A1
4.   (setq p1 (getpoint "\n请在要标注封闭区域内点一下:"))
5.   (command "-boundary" p1 "")
6.   (setq bj (entlast))
7.   (command "area" "object" bj "")
8.   (setq mj (rtos (getvar "area") 2 3))
9.   (setq area1 (strcat  mj "m2^"))
10. ;;;;  change to A2
11. (setq ans (* (/ (atof area1) 10000.0) 15.0))
12. (setq ans (rtos ans 2 3))
13. (setq area2 (strcat ans "mu"))
14. ;;;; write answer
15.   (setq pt1 (getpoint "\n请选择标注文字的位置:(平方米)"))
16. (command "text" pt1 "" "" area1)
17. (setq pt2 (getpoint "\n请选择标注文字的位置:(亩)"))
18. (command "text" pt2 "" "" area2)
19. (setvar "osmode" oldos)
20. (setvar "cmdecho" 1)
21. (setq *error* olderr)
22. (princ)
23. )

(defun c:mj () ;;;; get area A1   (setq p1 (getpoint "\n请在要标注封闭区域内点一下:"))   (command "-boundary" p1 "")   (setq bj (entlast))   (command "area" "object" bj "")   (setq mj (rtos (getvar "area") 2 3))   (setq area1 (strcat  mj "m2^")) ;;;;  change to A2 (setq ans (* (/ (atof area1) 10000.0) 15.0)) (setq ans (rtos ans 2 3)) (setq area2 (strcat ans "mu")) ;;;; write answer   (setq pt1 (getpoint "\n请选择标注文字的位置:(平方米)")) (command "text" pt1 "" "" area1) (setq pt2 (getpoint "\n请选择标注文字的位置:(亩)")) (command "text" pt2 "" "" area2) (setvar "osmode" oldos) (setvar "cmdecho" 1) (setq *error* olderr) (princ) )

哪个哥哥来帮我优化一下嘛！谢谢

ljpnb

修改了一下:

3. (defun c:mj ()
4. ;;;; get area A1
5.    (setq os (getvar "osmode"))
6.    (setq cmd (getvar "cmdecho"))
7.    (setvar "osmode" 0)
8.    (setvar "cmdecho" 0)
9.    (setq p1 (getpoint "\n请在要标注封闭区域内点一下:"))
10.    (command "-boundary" p1 "")
11.    (setq bj (entlast))
12.    (command "area" "object" bj)
13.    (entdel bj)
14.    (setq mj (rtos (getvar "area") 2 3))
15.    (setq area1 (strcat mj "{\\fSimSun|b0|i0|c134|p2;平方米 (}"))
16. ;;;;  change to A2
17.    (setq ans (* (/ (atof area1) 10000.0) 15.0))
18.    (setq ans (rtos ans 2 3))
19.    (setq area2 (strcat area1 ans "{\\fSimSun|b0|i0|c134|p2;亩)}"))
20. ;;;; write answer
21.    (entmake (list '(0 . "MTEXT")
22.                  '(100 . "AcDbEntity")
23.                  '(100 . "AcDbMText")
24.                  (cons 10 p1)
25.                  (cons 40 5)
26.                  (cons 41 0)
27.                  (cons 71 0)
28.                  (cons 50 0)
29.                  '(72 . 5)
30.                  (cons 1 area2)
31.             )
32.   )
33.    (setvar "osmode" os)
34.    (setvar "cmdecho" cmd)
35. ;;;(setq *error* olderr)
36.    (princ)
37. )

(defun c:mj () ;;;; get area A1    (setq os (getvar "osmode"))    (setq cmd (getvar "cmdecho"))    (setvar "osmode" 0)    (setvar "cmdecho" 0)    (setq p1 (getpoint "\n请在要标注封闭区域内点一下:"))    (command "-boundary" p1 "")    (setq bj (entlast))    (command "area" "object" bj)    (entdel bj)    (setq mj (rtos (getvar "area") 2 3))    (setq area1 (strcat mj "{\\fSimSun|b0|i0|c134|p2;平方米 (}")) ;;;;  change to A2    (setq ans (* (/ (atof area1) 10000.0) 15.0))    (setq ans (rtos ans 2 3))    (setq area2 (strcat area1 ans "{\\fSimSun|b0|i0|c134|p2;亩)}")) ;;;; write answer    (entmake (list '(0 . "MTEXT")                  '(100 . "AcDbEntity")                  '(100 . "AcDbMText")                  (cons 10 p1)                  (cons 40 5)                  (cons 41 0)                  (cons 71 0)                  (cons 50 0)                  '(72 . 5)                  (cons 1 area2)             )   )    (setvar "osmode" os)    (setvar "cmdecho" cmd) ;;;(setq *error* olderr)    (princ) )

77077

老问题已经解决，新问题出现！我试过把m2^ 和mu换成平方米和亩，显示出来实在太难看了！

现在我想在一行里用mtext来把AREA1和AREA2的单位也给弄出来（平方米  亩）！定义字体为宋体字，大小为5，角度为0。

如：1000平方米（15亩）

 或者1000m² (15亩)

弄了半天总觉得不满意，请高手帮忙！

ljpnb

2楼已修改过了,你试试

77077

  (setq area1 (strcat mj "{\\fSimSun|b0|i0|c134|p2;平方米 (}"))

这一句?看都看不懂,第一次见到

我是新手

香田里浪人

为何不把“平方米”改成“㎡”不是更好看？