帮我看一下，代码错在那里？

wholin

我想实现炸碎文本的功能，但下面的代码执行后没有一点反应，不知错在那里？

那位能不能帮我改正一下！

(Defun c:xptext ()
  
   (SetVar "MIRRTEXT" 1)
   (setvar "osmode" 0)
   (PrinC "\\n选择要分解的文字 : ")
   (setq ss (ssget \'((0 . "TEXT")))
  i  -1
   )
   (while (setq s1 (ssname ss (setq i (1+ i))))
     (setq pt1 (xyp-get-MinMaxPoint s1 1)
    pt2 (xyp-get-MinMaxPoint s1 9)
    pt  (xyp-get-MidPoint pt1 pt2)
    pt3 (polar pt (* pi 0.5) 100)
     )
     (Command "mirror" s1 "" pt pt3 "y")
     (command "zoom" "w" pt1 pt2)
     (command "wmfout" "TEXTWMF" s1 "" "erase" s1 "")
     (command "wmfin" "TEXTWMF" pt "2" "" "")
     (setq s1 (EntLast))
     (command "mirror" s1 "" pt pt3 "y")
     (setq pt0 (xyp-get-MidPoint
   (xyp-get-MinMaxPoint s1 1)
   (xyp-get-MinMaxPoint s1 9)
        )
     )
     (command "move" s1 "" pt0 pt)
     (command "explode" s1 "")
   )
   (setvar "MIRRTEXT" 0)
  
)

hb_xiaofen

(setq ss (ssget \'((0 . "TEXT")))中的\'应该取消\改为

(setq ss (ssget '((0 . "TEXT")))

sieben

不好意思没有时间看你的代码,附件是我写的同样功能的代码.

hhh454

sieben 发表于 2006-9-4 17:18
不好意思没有时间看你的代码,附件是我写的同样功能的代码.

看看怎么样，感谢分享源码

hhh454

sieben 发表于 2006-9-4 17:18
不好意思没有时间看你的代码,附件是我写的同样功能的代码.

很好用的文字炸开代码，很棒，比cad自带的强很多。

sieben

hhh454 发表于 2012-5-11 23:46
很好用的文字炸开代码，很棒，比cad自带的强很多。

呵呵，好多年前的事了，现在也很少再写Lisp，我都忘了我写过这样的代码了，自己下载看了看代码，里面变量命名的样式是我往常用的。否则还有点不敢认是自己的代码。

hhh454

sieben 发表于 2012-5-12 07:23
呵呵，好多年前的事了，现在也很少再写Lisp，我都忘了我写过这样的代码了，自己下载看了看代码，里面变量 ...

高手，这段代码是我见过最好的了，