AUTO CAD lisp循环跳出字高你用一个默认的就行了,
试试下面这个代码
(setq h (ureal 1 "" "
文字高度:" 5))
如果循环的话需要 while 函数的
=========================================
(defun c:ZBB ()
(setq TEXT_H (getvar "USERR1"))
(setq REPLY (strcat "
Enter text height <" (rtos TEXT_H 2 3) ">:"))
(setq T_H (getreal REPLY))
(if (/= T_H nil)
(setvar "USERR1" T_H)
(setq T_H TEXT_H)
)
(setvar "OSMODE" 32)
(setq p1 (getpoint "
int-point:"))
(setvar "OSMODE" 0)
(setq n1 (nth 1 p1))
(setq e1 (nth 0 p1))
(setq nn (rtos n1 2 3))
(setq ee (rtos e1 2 3))
(setq nn (strcat "X_" nn))
(setq ee (STRCAT "Y_" ee))
(setq p2 (getpoint "
second point:"))
(setq fw (angle p1 p2))
(setq fw1 (/ pi 2))
(setq fw2 (/ (* pi 3) 2))
(if (and (> fw fw1) (< fw fw2))
(progn
(setq pe (polar p2 (* pi -1) (* 7.5 T_H)))
(setq pt (polar pe 0 0))
)
;else------------------------
(progn
(setq pe (polar p2 0 (* 7.5 T_H)))
(setq pt (polar p2 0 T_H))
)
) ;end if----------------------------
(setq p3 (polar pt fw1 (* T_H 0.5)))
(COMMAND "text" p3 T_H "0" nn)
(setq p3 (polar pt fw2 (* T_H 1.5)))
(command "text" p3 T_H "0" ee)
(command "pline" p1 p2 pe "")
(setvar "osmode" 35)
(c:zbb)
)
这个可以循环的,就是每次都提示字高,你可以用两个程序:一个用来设置字高存入系统里,另一个直接读取系统已存的字高用来标注
2013cad循环起啥作用当一个AutoCAD2013对象与其他对象彼此接近或重叠时，准确的选择某一个对象是很困难的，这时就可以使用AutoCAD2013选择循环的方法。
1.单击AutoCAD2013状态栏上的 （选择循环)按钮,使其变蓝 ，则启用AutoCAD2013选择循环功能；或使用快捷键【Ctrl+W】启用或关闭选择循环功能。
2.将光标移动到尽可能接近要选择的AutoCAD2013对象的地方，将看到一个 图标，该图标表示有多个对象可供选择。
3.然后单击鼠标左键，弹出“选择集”列表框，里面列出了鼠标点击周围的图形，然后在列表中选择所需的对象（如这里我们选择红色的圆），单击鼠标左键选择AutoCAD2013红色的圆。
4.这时就可以准确的选中红色的圆形了，这样就可以方便的对选中的AutoCAD2013图形进行操作了，如这里我们删除选择的红色的圆形。
参考http://www.souxue8.com/Article/pmshj/AutoCAD/201211/13625.html
Z09-0702新中式宴会厅桌椅3D模型下载
cad2008激活成功后反复提示要激活是什么间题？请教...解决方法:
把 C:Documents and SettingsAll UsersApplication DataAutodeskSoftware Licenses 下的 *.dat 文件删除，重新算激活码！
刚才就是这样做了，可以激活了，要是没有删除这个文件，得到的认证码是28位的，删除以后，打开CAD2008得到的认证码是24位的，就可以激活了。
