Esportare set in singoli dwg con AutoCAD 2008

  • Konuyu başlatan Konuyu başlatan PlannerRoad
  • Başlangıç tarihi Başlangıç tarihi
Bu ilginç olurdu ve benim için ne yapardı, çünkü bir düzenden model alanında bir dwg almalıyım.
Sadece yükleme ile devam ettiğimde onu yüklemeye çalıştım, bu aracın 2008'in kurulduğunu söyledi.
Ama ben otocad 2008'e sahip oldum! Ve fark etmeyin. .

Kim bundan hoşlanmadığını biliyor, çünkü bu, mucit pro 2008 paketine dahil edildi?

Kimse denedi ve işe yaradı mı?

İleride teşekkürler.
 
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?
 
Göze üç "distrations" buldum. Küresel seçenekle ucs'in komutası, işaretsiz yerleştirildi, bu nedenle sadece otocad'ın İngilizce versiyonu için çalıştı; aynı şey wblock (son durumda, daha önce ya da sonrası) bilmiyorum.
Ancak hata, en azından 2008 versiyonu ile kullanmıyorum, bunun olduğunu düşünmüyorum.
2007 versiyonu ile diğer tartışmanın kullanıcısı bunun yerine mükemmel bir şekilde çalışmak gibiydi.
Lisp ortamında daha deneyimli kim daha iyi, en azından merakla doğrulanabilir.
Kod:
;
. . .
; 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)
)
 
Son düzenleme:
Merhaba.

Ayrıca bu araç, düzeni bireysel dwg'de otocad 2008 ile bağlayabilecek.
2008 İtalyan versiyonu için bir çalışma aracı bulabilseydiniz bilmek istedim.

teşekkürler
 
İyi sabaha,
Bu tartışmayı çok benzer bir problem için yeniden ortaya çıkaracağım.

Autocad 2012

İhtiyacımı açıklayacağım.

Ben içinde bir dizi A3 (50) biçimim olan bir dwg dosyasım var. Beş yapraklı on satır.
Her bir sayfa için elli (!) düzeni hazırladım, bu yüzden bir pdf dosyasında veya yazıcıda hızlı bir şekilde yazdırabilirsiniz (comado "halk".
Benim ihtiyaçm, işin sonunda, elli dwg dosyalarındaki bireysel çarşafları ayırmak.
Kod "layoutstodwgs.lsp" denedim ve çalışır, ancak sadece kısmen. Aslında, model uzayda elli oluşturulan dosyalar raporu hala Bütün Bütün Hepsi 50 format, bu yüzden kendimi abartılı bir ağırlığı olan elli dosya ile buluyorum (kb açısından).
Herkes bir .lsp oluşturmak mümkün olup olmadığını biliyor, belki de daha önce bahsedilen birini değiştirerek, bu sorunu çözer mi?

Bu .lsp'i, wblock komutunu kurtarmak için düzenleyebilir misiniz, tüm bunlar bir listedeki koordinatlar içinde yer alıyor mu? Tüm arabaları koordinatlarım var.

Umarım yeterince açık oldum. .

Çok teşekkür ederim. .
 
mblocco komutunu defalarca kullanan mega makro yaratarak çözüldü. Bu zor değildi. .:finger:
 

Forum İstatistikleri

Konular
58,521
Mesajlar
499,056
Kullanıcılar
104,110
Son Üye
ChristianR

Çevrimiçi Üyeler

Şu anda çevrimiçi üye yok.
Geri
Üst