面积符号该用什么表示？

tianyuan

是应该加个比例，平方号还是有些大

tianyuan

我想把这个平方以子程序的形式写进去，怎么就不行了？
(defun c:mmjj()
  (mj2)
  (mg)
  (poin1)
  )
(defun c:mj2()
(SETvar "CMDECHO" 0)
(SETQ TXTH (CDR (ASSOC 40 (TBLSEARCH "STYLE" (GETvar "CMLSTYLE")))))
(COMMAND ".UNDO" "BE")
(SETvar "CECOLOR" "1")
(WHILE (SETQ PT (GETPOINT "\nSelect a Point 选取点："))
  (COMMAND "BPOLY" PT "")
  (IF (SETQ EN (ENTLAST)) (PROGN
   (COMMAND "AREA" "O" EN)
   (SETQ AA (GETvar "AREA"))
   (setq v ( strcat (rtos aa 2 2) " m"))
   (IF (> TXTH 0)
    (COMMAND "TEXT" PT 0 v)
    (COMMAND "TEXT" PT 3 0 v)
   )
   ))
)
(COMMAND ".UNDO" "E")
(SETvar "CECOLOR" "BYLAYER")
(PRIN1)
)
(defun c:mg()
  (setq q (getpoint"\n请选择点"))
  (setq m (getreal"请输入高度:"))
    (command "text" q m "0" "2" ""))

zxmmelly

tianyuan 发表于 2011-12-31 15:26
还是不成功啊，不知该如何在程序中设置这个平方符号了，请高人帮个忙吧！下面这个就不成功
(defun c:uu()
...

你少了一个斜杠

tianyuan

还是不行，好像不是斜杠的问题

tianyuan

哪位高人能帮忙指点一下啊？

byghbcx

试试
(defun c:mj()
(SETvar "CMDECHO" 0)
(SETQ TXTH (CDR (ASSOC 40 (TBLSEARCH "STYLE" (GETvar "CMLSTYLE")))))
(COMMAND ".UNDO" "BE")
(SETvar "CECOLOR" "1")
(WHILE (SETQ PT (GETPOINT "\nSelect a Point 选取点："))
  (COMMAND "BPOLY" PT "")
  (IF (SETQ EN (ENTLAST)) (PROGN
   (COMMAND "AREA" "O" EN)
   (SETQ AA (GETvar "AREA"))
   (setq v ( strcat (rtos aa 2 2) " m"))
   (IF (> TXTH 0)
    (COMMAND "TEXT" PT 0 v)
    (COMMAND "TEXT" PT 3 0 v)
   )
   ))
  (setq p0 (cdr (assoc 10 (entget (entlast)))))
  (setq p (cadr (textbox (entget (entlast)))))
  (setq p (list (car p) (/ (cadr p) 2.0) (caddr p)))
  (setq p0 (mapcar '(lambda (x y) (+ x y)) p0 p))
  (command "text" p0 2 0 "2")
)
(COMMAND ".UNDO" "E")
(SETvar "CECOLOR" "BYLAYER")
(PRIN1)
)

tianyuan

谢谢byghbcx！我在14楼的意思是说，平方“2”能不能按照任意输入的高度，写进程序中？再次感谢byghbcx

byghbcx

tianyuan 发表于 2012-1-5 11:01
谢谢byghbcx！我在14楼的意思是说，平方“2”能不能按照任意输入的高度，写进程序中？再次感谢byghbcx

你的程序中还没退出WHILE循环中，怎么进入c:mg()程序中呢？

tianyuan

谢谢byghbcx,真不知该怎么编写了，（按照任意输入高度，输入平方）？

tianyuan

谢谢byghbcx,解决了！！！非常感谢！