01.12.2015 11:15

82458    

dosyayı açmak zorundasın.

01.12.2015 13:14

82460    

(defun C:h0 (/ dwgs scr-name lsp-name)

(vl-load-com)

(setq dwgs
'(
"C:/sifirla/01.dwg"
"C:/sifirla/02.dwg"
)
)
(setq scr-name "C:/sifirla/tmp.scr"

lsp-name "C:/sifirla/sifirla.lsp"
)
(create-script scr-name dwgs lsp-name "(sifirlayalim)" T)
(command-s "_.SCRIPT" scr-name)
(vl-file-delete scr-name)
(princ)
)
(defun sifirlayalim ()
(command-s "_.qsave")
(command-s "_.layer" "_thaw" "*" "")
(command-s "_.layer" "_on" "*" "")
(command-s "_.chprop" "_all" "" "_la" "0" "")


)
(defun create-script (scr dwgs lsp cmd save / f dwg)
(setq f (open scr "w"))
(foreach dwg dwgs
(progn
(write-line
(strcat "_.OPEN "" dwg """)
f
)
(write-line
(strcat "(load "" lsp-name "")")
f
)
(write-line cmd f)
(if save
(write-line "_.QSAVE" f)

)
(write-line "_.CLOSE" f)
)
)
(close f)
(princ)
)

01.12.2015 13:18

82462    

tmp.scr yi de at klasöre