리습 명령어 수정 방법

이 리습 명령어 3d2d를  Z0 으로 바꾸고 싶은데요…

어떡해 바꾸는 건가요??

친절한 답변 부탁드립니다.



(defun noele(dev num / olddata newdata data data1)
            (setq data (cdr (assoc num dev)))
            (setq  olddata  (assoc num dev))
            (setq  data1 (list (car data) (cadr data) 0))
            (setq  newdata (cons num data1))  
            (setq dev (subst newdata olddata dev))           
)

(defun chtime(data / rtcode)
           (setq rtcode (strcat (rtos (/ data 3600.) 2 0) “:”))
           (setq data (- data (* (fix (/ data 3600)) 3600.)))
           (setq rtcode (strcat rtcode (rtos (/ data 60.) 2 0) “:”))
           (setq data (- data (* (fix (/ data 60)) 60.)))
           (setq rtcode (strcat rtcode (rtos data 2 0)))
)

;|*********************Dim Text Change**********************************|;
(defun 3d2d_main(  /
                      dcl_id3 selobj selnum idnum ed obj name starttime endtime
                    )
 
  (setq oldcmd (getvar “cmdecho”))
  (setvar “cmdecho” 0)     

  (princ “n>>Select Object<<“)
  (setq selobj (ssget)) 
  (setq selnum (sslength selobj)) 
  (setq starttime (getvar “DATE”))
  (setq starttime (fix (* (- starttime (fix starttime)) 100000.))) 
  (setq idnum 0.)
  (repeat selnum
    (setq ename (ssname selobj idnum))
    (setq ed (entget ename))
    (if (= (cdr (assoc 100 ed)) “AcDb2dPolyline”)
      (progn ;THEN
        (setq nxt ename)                                ;첫 엔티티 이름
        (while (setq nxt (entnext nxt))
            (setq ent (entget nxt))                        ;엔티티정보축출
            (if (= (cdr (assoc 0 ent)) “VERTEX”)           ;절점일때만
              (progn
  (setq oldpnt (cdr (assoc 10 ent)))
         (setq ent (subst (cons 10 (list (car oldpnt) (cadr oldpnt) 0))
     (assoc 10 ent) ent))
         (entmod ent)
         (entupd nxt)
       );progn
            );if
        );while
      );progn
      (progn ;ELSE
        (setq o38 (assoc 38 ed))
        (setq n38 (cons (car o38) 0.0))
        (setq ed (subst n38 o38 ed))
        (setq obj (cdr (assoc 0 ed)))
        (setq name (cdr (assoc 1 ed)))
        (setq ed (noele ed 10))
        (setq ed (noele ed 11))
        (setq ed (noele ed 13))
        (setq ed (noele ed 14))   
        (setq ed (noele ed 21))
        (setq ed (noele ed 30))
        (setq ed (noele ed 31))
        (entmod ed)
      );progn 
    );if 
    (setq idnum (1+ idnum))
    (princ (strcat “Converting Data Num : ” (rtos idnum 2 0) “(” (rtos (* (/ idnum selnum) 100) 2 0) “%)” (chr 13)))
  );repeat
  (setvar “ELEVATION” 0)
  (setq endtime (getvar “DATE”))
  (setq endtime (fix (* (- endtime (fix endtime)) 100000.))) 
  (princ (strcat “nElapsed Time : ” (chtime (- endtime starttime)) “nConverting End…..”))
  (setq *error* OLDERROR)
  (setvar “cmdecho” OLDCMD)
  (princ)          
);defun
;|**********************************************************************|;

(defun C:3d2d() (3d2d_main))
(princ “nLoading Complete……  Programed by Shin Jong-Hwa by DooSan ENG.nType : 3d2d”)
(princ)