toplu layer değiştirme | Forumlar

AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim

aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A

Forumlar > AutoCAD Acil Yardım > toplu layer değiştirme

30.11.2015 12:47

mikemoon

kapalı olan dwg dosyalarının içindeki çizimlerin tüm layerlerini 0 yapan bir yöntem varmıdır.

örneğin hepsini 0 white ve bylayer yapacak bir yöntem varmıdır.

82458

01.12.2015 11:15

ehya

dosyayı açmak zorundasın.

82459

01.12.2015 11:15

halilozcakir

bi zamanlar toplu scale yapılması için bir lisp istemiştim unu revize ederek olabilir belki. ama çizimi açmadan olmaz lisp otomatik dwg yi açar lispi çalıştırıp layerları düzenler ve kapatır.
LAYTRANS standart komutunu denemeni öneririm. şimdilik.

82460

01.12.2015 13:14

özkan-wien

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

82461

01.12.2015 13:16

özkan-wien

c altina "sifirla" klasörü acip lispi ve dwglwri icine at.
dwg isimlerini lispin icinden degistir (secmeli de yaplir ama simdilik idare et)
herhangi bi dwgden lispi yükleyip "h0" calistir.

sonra gelistiririz :-) simdilik bu kadar

82462

01.12.2015 13:18

özkan-wien

tmp.scr yi de at klasöre

82463

01.12.2015 13:22

mikemoon

teşekkürler

> 1 <


	Forum	Download	Galeri	Üye Ol \| Giriş