帮我看一下，代码错在那里？
<P>我想实现炸碎文本的功能，但下面的代码执行后没有一点反应，不知错在那里？</P><P>那位能不能帮我改正一下！</P>
<P>(Defun c:xptext ()<BR> <BR> (SetVar "MIRRTEXT" 1)<BR> (setvar "osmode" 0)<BR> (PrinC "<A href="file://n/" target="_blank" >\\n</A>选择要分解的文字 : ")<BR> (setq ss (ssget \'((0 . "TEXT")))<BR> i -1<BR> )<BR> (while (setq s1 (ssname ss (setq i (1+ i))))<BR> (setq pt1 (xyp-get-MinMaxPoint s1 1)<BR> pt2 (xyp-get-MinMaxPoint s1 9)<BR> pt (xyp-get-MidPoint pt1 pt2)<BR> pt3 (polar pt (* pi 0.5) 100)<BR> )<BR> (Command "mirror" s1 "" pt pt3 "y")<BR> (command "zoom" "w" pt1 pt2)<BR> (command "wmfout" "TEXTWMF" s1 "" "erase" s1 "")<BR> (command "wmfin" "TEXTWMF" pt "2" "" "")<BR> (setq s1 (EntLast))<BR> (command "mirror" s1 "" pt pt3 "y")<BR> (setq pt0 (xyp-get-MidPoint<BR> (xyp-get-MinMaxPoint s1 1)<BR> (xyp-get-MinMaxPoint s1 9)<BR> )<BR> )<BR> (command "move" s1 "" pt0 pt)<BR> (command "explode" s1 "")<BR> )<BR> (setvar "MIRRTEXT" 0)<BR> <BR>)</P> <P>(setq ss (ssget \'((0 . "TEXT")))中的\'应该取消\改为</P>
<P>(setq ss (ssget '((0 . "TEXT")))</P> <P></P>
<P>不好意思没有时间看你的代码,附件是我写的同样功能的代码.</P> sieben 发表于 2006-9-4 17:18 static/image/common/back.gif
不好意思没有时间看你的代码,附件是我写的同样功能的代码.
看看怎么样，感谢分享源码 sieben 发表于 2006-9-4 17:18 static/image/common/back.gif
不好意思没有时间看你的代码,附件是我写的同样功能的代码.
很好用的文字炸开代码，很棒，比cad自带的强很多。 hhh454 发表于 2012-5-11 23:46 static/image/common/back.gif
很好用的文字炸开代码，很棒，比cad自带的强很多。
呵呵，好多年前的事了，现在也很少再写Lisp，我都忘了我写过这样的代码了，自己下载看了看代码，里面变量命名的样式是我往常用的。否则还有点不敢认是自己的代码。 sieben 发表于 2012-5-12 07:23 static/image/common/back.gif
呵呵，好多年前的事了，现在也很少再写Lisp，我都忘了我写过这样的代码了，自己下载看了看代码，里面变量 ...
高手，这段代码是我见过最好的了，
页:
[1]