캐드 리습 3d2d 사용중인데 로드가되어 있는데도 사용시로드해야만 사용됩니다.
컨텐츠 정보
- 290 조회
- 4 댓글
- 0 추천
- 0 비추천
- 목록
본문
3d2d란 리습을 사용중입니다.
로드된상태로 되어있습니다.
하지만 명령어를 치면 안되고요
그리서 리습을 로드하면 사용이 됩니다.
이건 리습의 문제인건가요??
다른 리습들은 사용하는데 아무런 문제가 없고요
캐드바이러스도 아닌것으로 판단하고 있습니다.
혹시 이 리습에 먼가 잘못된것이 있는지요??
아니면 다른 문제가 있는것일까요??
(defun Gerr(app msg)
(defun *error* (msg)
(if OLDERROR (setq *error* OLDERROR))
(if OLDCMD (setvar "cmdecho" OLDCMD))
(princ)
)
(if msg
(alert (strcat " Application error: "
app
" nn "
msg
" n"
)
)
)
)
(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")
OLDERROR *error*
*error* Gerr
)
(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 ed (entget (ssname selobj idnum)))
(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)
(setq idnum (1+ idnum))
(princ (strcat "Converting Data Num : " (rtos idnum 2 0) "(" (rtos (* (/ idnum selnum) 100) 2 0) "%)" (chr 13)))
)
(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 C:3d2d() (3d2d_main))
(princ "nLoading Complete…… Programed by Shin Jong-Hwa by DooSan ENG.nType : 3d2d")
(princ)
관련자료
상큼메론90님의 댓글
계속 불러와야만 실행이 된다면 아래와 같은 방법도 있겠습니다. (autoload "리습파일이름" '("3d2d")) <–이것을 acad2016doc.lsp 마지막에 추가하는 방법.
그전에 아래것을 한번 appload해서 시작세트에 불러와 보세요. 되는지 안되는지…
(defun Gerr(app msg) (defun *error* (msg) (if OLDERROR (setq *error* OLDERROR)) (if OLDCMD (setvar "cmdecho" OLDCMD)) (princ) ) (if msg (alert (strcat " Application error: " app " nn " msg " n" ) ) ) )
(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 c:3d2d (/ dcl_id3 selobj selnum idnum ed obj name starttime endtime ) (setq OLDCMD (getvar "cmdecho") OLDERROR *error* *error* Gerr ) (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 ed (entget (ssname selobj idnum))) (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) (setq idnum (1+ idnum)) (princ (strcat "Converting Data Num : " (rtos idnum 2 0) "(" (rtos (* (/ idnum selnum) 100) 2 0) "%)" (chr 13))) ) (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 C:3d2d() (3d2d_main)) ;(princ "nLoading Complete…… Programed by Shin Jong-Hwa by DooSan ENG.nType : 3d2d") ;(princ)
;;;