[求助]大家能否帮助我把这个程序完善一下！

wedg · 发表于 2005-7-20 18:49

这是个标注闭合面积的小程序，但是有一个缺点就，设置完字高后，每次运行该命令都要重新设置一次字高。能否实现完善后，可以不用每次运行都重新设置字高。

(DEFUN C:qa (/ 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 "")
)
    (SETvar "OSMODE" 163)

    (PRINC)
)

ZZXXQQ · 发表于 2005-7-21 14:26

(DEFUN C:qa (/ OLDOS PT STA QAREA)
(SETvar "OSMODE" 0)
(IF (NOT ZG) (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 "")
)
(SETvar "OSMODE" 163)
(PRINC)
)

wedg · 发表于 2005-7-21 16:08

非常感谢楼上的兄弟，但是好像还不是我理想的样子！我理想的样子是：只需第一次输入字高后，以后都是这个字高，而且只要运行这个命令都是我第一次输入的字高，除非我改变了字高，但是下一次运行这个命令的时候，还是我改变后的字高！请继续帮我完善好吗？

xyp1964 · 发表于 2005-7-21 21:07

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

wedg · 发表于 2005-7-22 13:03

感觉着还不是这样！这样吧，我发一个标注坐标的程序上来，你们运行一下，注意文字部分，你就知道我需要的是什么了！

wedg · 发表于 2005-7-22 13:04

这个就是坐标标注程序

wedg · 发表于 2005-7-26 22:58

各位大虾帮帮忙啊！

账号		自动登录	找回密码
密码			注册

[求助]大家能否帮助我把这个程序完善一下！

本帖子中包含更多资源