求大师修改个可以设置字高的，而已只要设置一次

flytoday

求大师修改下，能修改下能手工设置字高，，而已只要设置一次就好，，
就是不要每次要标注面积的时候要提示要设置字高
麻烦哪位修改下谢谢~~~~~~~
(prompt "\n\r      加载封闭域面积标注程序。")
(defun c:fbymj(/ pt pt1 en aa)
  (cmdla0)
  (setq pt (getpoint "\n选取封闭域内一点: "))
  (while pt
    (setq pt1 pt)
    (mkla"封闭域辅助线"8)
    (command "bpoly" pt "")
    (setq en (entlast))
    (if (/= en nil)
      (progn
(command "area" "o" en)
(setq aa (getvar "area"))
(redraw en 4);1标准2空白3高亮4低亮
;(alert (strcat "面积=" (rtos (/ aa 1000000) 2 3)));;;此句可以显示面积数（单位平方米）
      )
    )
    ;(entdel en);;;此句可以删除“封闭域辅助线”
    (mkla"面积标注"4)
    (command"text""mc" pt1 "300" "0" (rtos (/ aa 1000000) 2 3))
    (setq pt (getpoint "\n选取封闭域内一点: "))
  )
  ;(prin1)
  (cmdla1)
  (pxyp"fbymj      (封闭域面积)")
)

ZZXXQQ

;仅改了主程序

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

Andyhon

...
  (setq pt (getpoint "\n选取封闭域内一点: "))
  (if (zerop (setq txth (getvar "UserI1")))
      (progn
        (setq txth (getint "\n手工设置字高: "))
        (setvar "UserI1" txth)
    ) )
  (while pt
...

;; (command"text""mc" pt1 "300" "0" (rtos (/ aa 1000000) 2 3))
(command"text""mc" pt1 txth 0 (rtos (/ aa 1000000) 2 3))
...

flytoday

谢谢你们谢谢~

kal1314

学习学习学习