1-11 qop.lsp=quick open(다음화일 열기)->추가(2007.8.2)
본문 바로가기
■ 유용한 캐드&리습/▫ EzqCAD(3rd Party)

1-11 qop.lsp=quick open(다음화일 열기)->추가(2007.8.2)

by 아키모아 주말농부 2024. 12. 19.
728x90

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))

 

 

qop.lsp
0.00MB

 

728x90