[求助]各位大虾，帮忙修改这个小程序，急用阿！

wedg

现在我使用的这个程序，用的时候感觉有点缺陷，请各位大虾帮忙修改一下，急用！程序如下： (DEFUN C:QA(/ OLDOS PT STA QAREA) (setq olderr *error*)
(setq *error* myerr)
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0) (SETQ PT (GETPOINT"\nPick the point:"))
(SETQ STA (BPOLY PT))
(IF (= STA NIL) (EXIT))
(COMMAND "AREA" "E" "L")
(SETQ QAREA (RTOS (GETVAR "AREA") 2 2))
(COMMAND "TEXT" PT "" "" QAREA) (SETVAR "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
(setq *error* olderr)
(PRINC)
) 这是个标注面积的小程序，大家能否改正其中的两个缺陷： 1、设置字高：在使用的时候无法设成自己想要的字高 2、设置成公顷：其标注的面积单位为平方米，希望改为以公顷为单位。其实就是设置小数点的位置，和保留的小数点后的位数。

linyiwq

问题一：


(COMMAND "TEXT" [I]参数1[/I] [I]参数2[/I] [I]参数3[/I] [I]参数4[/I] [I]参数5[/I])


参数1为文本的对齐方式,例如:"m"中心对齐


参数2为点坐标


[I]参数3为字高[/I]例如:12.5


参数4为转角,例如:0


参数5为文本内容,例如:"AUTOCAD"


所有参数均可使用[I]变量[/I].

wedg

这是问题一的修改方法，那请问问题二怎么添加？

xqyhome

(DEFUN C:QA(/ OLDOS PT STA QAREA) (setq olderr *error*)
(setq *error* myerr)
(SETvar "CMDECHO" 0)
(SETQ OLDOS (GETvar "OSMODE"))
(SETvar "OSMODE" 0)
(SETQ PT (GETPOINT"\nPick the point:"))
(SETQ STA (BPOLY PT))
(IF (= STA NIL) (EXIT))
(COMMAND "AREA" "E" "L")
(SETQ QAREA (GETvar "AREA"))
(SETQ QAREA (/ (FIX (+ QAREA 0.5)) 100.0))
(SETQ QAREA (STRCAT (RTOS QAREA 2 2) "公顷"))
( SETQ ZG (GETREAL "请输入字高： "))
(COMMAND "TEXT" PT ZG "0" QAREA )
(SETvar "OSMODE" OLDOS)
(SETvar "CMDECHO" 1)
(setq *error* olderr)
(PRINC)
)

wedg

非常感谢楼上的兄弟帮我修改，可能我没有说清我的意思，所以在运行楼上兄弟的程序时，还是感到有点小问题。


1、我希望程序能够连续运行。比如：我在量取三块面积的时候，只需要输入一次程序命令即可。不用量取三块面积，要输入三次命令。


2、我希望输入的字高是一次性的。比如在量取三块面积时，命令程序输入后，运行的一开始就设定好字高，这样就不用每次都输入字高。


3、面积为公顷。楼上的兄弟编写的程序，是单位为公顷。其实我的意思不是说后面带有的单位为公顷，我的意思是：假设我们在屏幕上任意画一个封闭图形（长宽均为1000，我是假设输入长宽值均为1000米），用area命令直接量取的值是，面积 = 1000000.0000，周长 = 5380.7402，而现在我只需要用这个面积的值/10000（1公顷=10000平方米），即运行命令后，出现的值为100即可，不用后面带有公顷的字样。


我不知道表达清楚我的意思没有，但是我很感谢楼上的兄弟。请各位大虾还是帮我改改好吗？非常、非常的感谢！

xyp1964

2. (DEFUN C:test (/ OLDOS PT STA QAREA)
3.    (SETvar "OSMODE" 0)
4.    (while (SETQ PT (GETPOINT "\nPick the point:"))
5.        (setq STA (BPOLY PT)
6.      e     (entlast)
7.        )
8.        (IF  (= STA NIL)
9.            (EXIT)
10.        )
11.        (COMMAND "AREA" "E" "L")
12.        (SETQ QAREA (RTOS (/(GETvar "AREA")10000) 2 3))
13.        (COMMAND "TEXT" "j" "mc" PT "" "" QAREA)
14.        (command "erase" e "")
15.    )
16.    (PRINC)
17. )

(DEFUN C:test (/ OLDOS PT STA QAREA)    (SETvar "OSMODE" 0)    (while (SETQ PT (GETPOINT "\nPick the point:"))        (setq STA (BPOLY PT)      e     (entlast)        )        (IF  (= STA NIL)            (EXIT)        )        (COMMAND "AREA" "E" "L")        (SETQ QAREA (RTOS (/(GETvar "AREA")10000) 2 3))        (COMMAND "TEXT" "j" "mc" PT "" "" QAREA)        (command "erase" e "")    )    (PRINC) )

wedg

楼上的兄弟，已经差不多是这个意思了，但是，为什么不可以设置字高呢？

xqyhome

(DEFUN C:test (/ OLDOS PT STA QAREA)
(SETvar "OSMODE" 0) ( SETQ ZG (GETREAL "请输入字高： ")) (while (SETQ PT (GETPOINT "\nPick the point:"))
(setq STA (BPOLY PT)
e (entlast)
)
(IF (= STA NIL)
(EXIT)
)
(COMMAND "AREA" "E" "L")
(SETQ QAREA (RTOS (/(GETvar "AREA")10000) 2 3))
;(COMMAND "TEXT" "j" "mc" PT "" "" QAREA) (COMMAND "TEXT" PT ZG "0" QAREA ) (command "erase" e "")
)
(PRINC)
)

wedg

非常感谢楼上的兄弟，真的很感谢！


但是还有一个小小的问题，就是为什么没次我标注完面积后，我的对象捕捉都没有了？能不能实现，我运行完程序后，恢复我原来设置的对象捕捉？(我原来设置的osmode=63)

xqyhome

........................................................................ (command "erase" e "")
) (SETvar "OSMODE" 63) (PRINC) )