1-11 qop.lsp=quick open(다음화일 열기)->추가(2007.8.2)
작업중인 파일의 다음화일 열기
숫자,영문,한글순으로 오름차순으로 정리됨
;;=============================================================
; 다음화일 열기(2007.8.2 주말농부)
; ->작업중인 화일의 다음화일 열기
; ->숫자,영문,한글순으로 오름차순으로 정리됨
;;------ quick open -------------------------------------------
(defun c:qop(/ path dwglist cdwg k dnum ndwg yn)
(setq path (getvar "dwgprefix"))
(setq dwglist (vl-directory-files path "*.dwg" ))
(setq cdwg (getvar "dwgname"))
(setq k (vl-position cdwg dwglist))
(setq dnum (length dwglist))
(if (< k dnum) (setq k (+ k 1)))
(setq ndwg (nth k dwglist))
(if ndwg
(progn
(prompt "\n다음화일")(prin1 ndwg)
(setq yn (strcase (getstring "\을 열을까요?<y>: ")))
(if (or (= yn "Y") (= yn "")) (progn
(command "qsave")
(command "open" ndwg)
))
)
(prompt "\n...마지막화일임")
)
(prin1))
'■ 유용한 캐드&리습 > ▫ EzqCAD(3rd Party)' 카테고리의 다른 글
| 1-11 qop.lsp=quick open(다음화일 열기)->수정(2007.8.8) (1) | 2024.12.19 |
|---|---|
| 1-11 qop.lsp=quick open(다음화일 열기)->수정(2007.8.7) (0) | 2024.12.19 |
| 8-10 tc.lsp=text change (문자 바꾸기)->수정(2007.7.30) (0) | 2024.12.19 |
| 4-6 insul.lsp=insulation (단열재 그리기)->수정(2007.7.30) (0) | 2024.12.19 |
| 1-7 do.lsp=draworder(솔리드 뒤로 보내기)->추가(2007.7.28) (0) | 2024.12.19 |
