问下各位大侠：Z轴归0的软件上哪找？

其他地方看来的，存成LISP文件，加载了就能用了

;;;----------------------COORDINATE Z TO 0-------------------------------
(DEFUN COORDINATE_Z_0(/ A I DATA ASN NEWZ)
(WHILE(NOT(SETQ A(SSGET))))
(SETQ I 0)
(REPEAT (SSLENGTH A)
(SETQ DATA (ENTGET(SSNAME A I)))
(COND
((= "LINE" (CDR(ASSOC 0 DATA)))(SETQ ASN 10)(Z_ASN)(SETQ ASN 11)(Z_ASN))
((= "ARC" (CDR(ASSOC 0 DATA)))(SETQ ASN 10)(Z_ASN))
((= "CIRCLE" (CDR(ASSOC 0 DATA)))(SETQ ASN 10)(Z_ASN))
((= "XLINE" (CDR(ASSOC 0 DATA)))(SETQ ASN 10)(Z_ASN))
((= "MTEXT" (CDR(ASSOC 0 DATA)))(SETQ ASN 10)(Z_ASN))
((= "TEXT" (CDR(ASSOC 0 DATA)))(SETQ ASN 10)(Z_ASN))
((= "LWPOLYLINE" (CDR(ASSOC 0 DATA)))(SETQ ASN 38)(Z_ASN))
((= "ELLIPSE" (CDR(ASSOC 0 DATA)))(SETQ ASN 10)(Z_ASN))
((AND(= "MLINE" (CDR(ASSOC 0 DATA)))(/= 0 (CADDDR (ASSOC 10 DATA))))
(SETQ ASN 10)(Z_ASN)(SETQ ASN 11)(Z_MPOINT))
((AND(= "SPLINE" (CDR(ASSOC 0 DATA)))(/= 0 (CADDDR (ASSOC 10 DATA))))
(SETQ ASN 10)(Z_MPOINT)(SETQ ASN 11)(Z_ASN))
)
(SETQ I(1+ I))
)
(COND
((= NIL NEWZ)(PRINC "HAVE’T Z TO TURN."))
(T(PRINC "YOU SELECTS OBJECT Z TO 0."))
)
(PRINC)
)

(DEFUN Z_MPOINT(/ OLDZ II)
(SETQ II 0)
(REPEAT (LENGTH DATA)
(IF(= ASN (CAR(NTH II DATA)))(PROGN
(SETQ OLDZ(NTH II DATA))
(IF(/= 0 (CADDDR OLDZ))(PROGN
(SETQ NEWZ(REVERSE OLDZ))
(SETQ NEWZ(REVERSE(CONS 0 (CDR NEWZ))))
))
(SETQ DATA(SUBST NEWZ OLDZ DATA))
))
(SETQ II (1+ II))
)
(ENTMOD DATA)
)

(DEFUN Z_ASN(/ OLDZ)
(SETQ OLDZ(ASSOC ASN DATA))
(COND
((= 38 ASN)(SETQ NEWZ(CONS ASN 0)))
((/= 0 (CADDDR OLDZ))
(SETQ NEWZ(REVERSE OLDZ))
(SETQ NEWZ(REVERSE(CONS 0 (CDR NEWZ)))))
)
(IF(/= NIL NEWZ)(PROGN
(SETQ DATA(SUBST NEWZ OLDZ DATA))
(ENTMOD DATA)))
)