PlannerRoad
Guest
Yeni komut ekler ihracat Autocade 2008
http://usa.autodesk.com/adsk/servlet/index?siteid=123112&id=9831551&linkid=9240618
http://usa.autodesk.com/adsk/servlet/index?siteid=123112&id=9831551&linkid=9240618
denedim ve işe yarıyor. Elbette, sizin söylediğiniz şey budur.Kim sevmez, çünkü bu, mucit pro 2008 paketine dahil edildi?
Kimse denedi ve işe yaradı mı? .
merakla Bunu çok ağır bir dosyayla test etmeye gittim ve aslında iyi çalışmıyor. Oluşturan dosya bozuktur.Kimse onu bir şekilde denedi mi?
Bana sadece küçük dosyalarla çalışır. .
Hızlı bir test yaptım. 2008 ile yanlışım!:Teşekkürler planlayıcıroad,
Zaten bu lisp'i indirdim ve denedim... ama herhangi bir sonuç görmüyorum.
Bunu nasıl kullanacağınızı biliyor musunuz?
;
. . .
; 2000-03-27 yarattı
;
; copyright (c) 1997-2006 jtb dünya, tüm hakları saklıdır
; web sitesi: www.jtbworld.com
; e-posta: [email protected]
;
; 2003-12-12, wblock ile sorun önlemek için model alanında dünyaya ucs ayarlar
;
; Autocad 2000, 2000i, 2002, 2004
;
;;;;;;;
;; tüm yapıların çizimlerini yaratır.
; Bir seferde sadece bir düzen kurtarılır, geri kalanlar silinir.
;; Bu, 2k versiyonlardan önce tasarruf etmek istediğinizde kullanışlıdır.
;; Mevcut çizimler yolunda yeni çizimler kaydedilir
; ve mevcut çizimleri yazmak.
;;;;;;;
(defun c:layoutstodwgs (/ fn yolu msg msg2 fileprefix)
(düşman / sekme adı)
(vlax-for düzen için
(vla-get-layouts
(vla-get-activedocument (vlax-get-acad-object)
)
(Eğer
(ve
(/= (setq sekme adı (strcase (vla-get-name düzeni)) "model")
(/= sekme adı (strcase keeper)
)
(vla-delete düzeni)
)
)
)
(vl-load-com)
(setq msg "")
(setq msg2 "")
(command "._undo" "_be")
(setq fileprefix (getstring "enter filename prefix: "))
(Hakkında)
(eğer)
(progn
(command "_.undo" "_m")
(delalllayouts lay)
(setvar "tilemode" 1) 1) 1)
(command "ucs" "[COLOR=red][B]_[/B][/COLOR]w)
(setvar "tilemode" 0)
(setq yolu (getvar "dwgprefix"))
(setq fn (strcat yolu fileprefix ".dwg"))
(If (bulfile fn)
(progn
(command ".[B][COLOR=#ff0000]_[/COLOR][/B]-wblock" fn "_y"
(If (equal 1 (logand 1 (getvar "cmdactive")))
(progn
(setq msg (strcat msg "\n" fn)
(command "*)
)
(setq msg2 (strcat msg2 "\n" fn)
)
)
(progn
(command ".[B][COLOR=#ff0000]_[/COLOR][/B]-wblock" fn "*)
(setq msg (strcat msg "\n" fn)
)
)
(command "_.undo" "_b")
)
)
)
(If (/= msg ")
(progn
(prompt "Hareketleri takip etmek yaratıldı:")
(prompt msg)
)
)
(If (/= msg2 ")
(progn
(prompt "Hareketleri takip etmek yaratılmadı:")
(prompt msg2)
)
)
(command "._undo" "_e")
(textscr)
(princ)
)