请大家帮我看看修改文字大小的程序怎么运行不了？

longyi1230

(defun c:qq()
          (setq old_hh (getvar "textsize"))
          (setq str_hh (strcat "\n输入新字高<" (rtos old_hh 2) ">: ")) 
          (setq hh (getdist str_hh))
          (if (null hh) (setq hh old_hh))
          (setq ss (ssget))
          (setq i 0)
          (setq nn (sslength ss))
          (repeat nn
          (setq ssn (ssname ss i))
          (setq ssdata (entget ssn))
          (setq sstyp (cdr (assoc 0 ssdata)))
          (if (= sstyp "TEXT") 
          (progn 
          (setq old_hh (assoc 40 ssdata))
          (setq new_hh (cons 40 hh))
          (setq ssdata (subst new_hh old_hh ssdata))
          (entmod ssdata)
          )
          )
          (setq i (1+ i))
          )
          (prin1)
          )
谢谢大家啦！

sailorcwx

测试了没有问题~~~~~

提几点意见:

1. (getdist str_hh)最好改成(abs (getdist str_hh)),因为getdist有可能会返回负值

2. (setq ss (ssget))最好改成 (setq ss (ssget '((0 . "TEXT"))))以提高效率

longyi1230

 非常谢谢楼上的帮助 那代码是在书上直接抄的 但是我的电脑运行时就是没反应。谢谢啦

longyi1230

如果在我的电脑上不能正常运行 在别人的电脑上能正常运行，那会是什么原因呢？

会不会是因为CAD版本的问题还是什么呢？

请高手帮忙分析！谢谢啦！