三维切割的程序求助

HEAVEN

(DEFUN C:DX ()
  (SETQ OLDOS (GETVAR "OSMODE"))  (SETQ 1   (GETPOINT "\n第一点:")
 H1   (GETREAL "\n标高1:")
 2   (GETPOINT "\n第二点:")
 H2   (GETREAL "\n标高2:")
 SITA (ANGLE P1 P2)
 11  (LIST (CAR P1) (CADR P1) H1)
 22  (LIST (CAR P2) (CADR P2) H2)
 33  (POLAR P22 (+ SITA (* 0.5 PI)) 20000)
 ENT  (ENTSEL "\n选择要切割的对象:")
 ENTN (CAR ENT)
  )
;;;  (SETVAR "OSMODE" 0)
  (COMMAND " SLICE" ENTN "" 3 P11 P22 P33 "B")

  (SETVAR "OSMODE" OLDOS)
  (PRINC)
)

高手帮忙

看看这个用来三维切割的程序哪里错了

ZZXXQQ

程序在2004上正确运行。只是将SLICE前的空格删了。

HEAVEN

多谢啊，版主可有QQ

小弟的147747301