求助对齐（有源程序）请多帮忙啊

ak50

(defun c:xg1(S EE SS / DAT DAT0  EN ES N PT PT10 PTX ) 
(setq s(getstring "\n选择对齐方式[左对齐(l)/垂直对齐(a)/水平对齐(h)]:")) 
   (if(setq ee (entsel "\n选择要对齐的基准线:"))
   (if (setq ss (SSGET '((0 . "TEXT"))))
      (cond
 ((= s "h")
        ((COMMAND "_justifytext" (SSGET "X" '((0 . "TEXT"))) "" "mc")
          (setq es(car ee) dat0 (entget es) pty (caddr (assoc 11 dat0)) n 0)
           (repeat (sslength ss)
             (setq en (ssname ss n) n (1+ n) dat (entget en)
                    pt10 (assoc 11 dat) pt (cdr pt10)
                    dat (subst (cons 11 (list (car pt) pty)) pt10 dat)
              )
          (entmod dat)
     )
 )
  )
         ((= s "a")
              ((COMMAND "_justifytext" (SSGET "X" '((0 . "TEXT"))) "" "mc")
              (setq es (car ee) dat0 (entget es) ptx (cadr (assoc 11 dat0)) n 0)
              (repeat (sslength ss)
              (setq en (ssname ss n) n (1+ n) dat (entget en)
                    pt10 (assoc 11 dat) pt (cdr pt10)
                    dat (subst (cons 11 (list ptx (cadr pt))) pt10 dat)
             )
          (entmod dat)
  )
       )
   )
         ((= s "l")
              ((COMMAND "_justifytext" (SSGET "X" '((0 . "TEXT"))) "" "l")
              (setq es (car ee) dat0 (entget es) ptx (cadr (assoc 10 dat0)) n 0)
              (repeat (sslength ss)
              (setq en (ssname ss n) n (1+ n) dat (entget en)
                    pt10 (assoc 10 dat) pt (cdr pt10)
                    dat (subst (cons 10 (list ptx (cadr pt))) pt10 dat))
          (entmod dat)
  )
       )
          )
   )
 )
)
  )
各位高手看看哪出现问题了

ak50

为什么总说参数太少啊?

ak50

如果我把全局变量和局部变量全部删掉，为什么第一遍执行不成功，再执行一次就可以呢？

ak50

问题已解决：）我把全局变量和局部变量全删掉了，不过这样有什么后果吗？

lazybug

我想后果就是执行完程序之后，这些变量的值仍驻留在内存里。

如果你在同一幅图中再执行含有同样变量名的程序时，如果程序中没有给它们赋初值就会出错。

ak50

是这样啊，那是不是我划分的全局变量和局部变量不对啊？

蓝云

c:xg1(S EE SS / DAT DAT0  EN ES N PT PT10 PTX ) 应改为：

defun c:xg1( / DAT DAT0  EN ES N PT PT10 PTX  S EE SS)

“/”前面是参数，后面是变量，不定义就是全局变量