1. 본 리습을 사용후 dim 적용하면 “hole”이 뒤에 붙여 나옵니다. dim 적용시 “hole”이라는 글씨가 안나오게 적용바랍니다.
(DEFUN C:HO () (COMMAND “DIMTOFL” “OFF” “DIMCEN” “0” “DIMSAH” “ON” “DIMBLK1” “_NONE” “DIMPOST” ” HOLE” “DIMTOH” “ON” “DIMDIAMETER”))
2. 본 리습에 에러가 있다고 합니다. 수정바랍니다.
(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 0 ed)) “POLYLINE”)
(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)
참고로 제가 사용하는 리습을 올립니다.
활용하실분은 활용하셔도 무방합니다. ^^;
다른파일을 더 올리고 싶지만 다른파일과 연관되어 올리지 못합니다.
연관되지 않은 파일만 올립니다. ^^