#direnautocad

[archiputer]

Çizgileri parçapinçik edin!

Bazılarına (mesela K.A’ya) çizgileri “divide” ile eşit parçalarda nokta koymak yetmedi, çizgileri parçalayalım dedi :) bunun için autocadde bir komut yok, ancak sevdiğimiz canımız lispler var. Bu lispi Kent Cooper yazmış; seçtiğiniz çigiyi istediğiniz sayıda eşit parçalara pinçikliyor... lazımsa aşağıdan kodu kopyalayın, her zamanki gibi;  “Notepad’e yapıştır--> kaydet--> uzantısını .lsp olarak değiştir--> autocadi aç--> appload komutunu çalıştır--> bu lispi seç--> yükle” SD komutu ile çalıştırabilirsiniz.

;;  SubDivide.lsp [command name: SD] ;;  To SubDivide a finite linear object into a specified ;;    number of equal-length contiguous sections. ;;  Works on anything of finite length that Break can ;;    be used on [not Xlines or Rays]. ;;  Kent Cooper, October 2009 ; (defun C:SD (/ *error* subdiv obj cmde blips osm esel ent etype entlen secs seclen ent2 secs1 secs2) ;  (defun *error* (errmsg)    (if (not (wcmatch errmsg "Function cancelled,quit / exit abort"))      (princ (strcat "\nError: " errmsg))    ); end if    (setvar 'osmode osm)    (setvar 'blipmode blips)    (command "_.undo" "_end")    (setvar 'cmdecho cmde)  ); end defun *error* ;  (defun subdiv (obj brks)    (repeat brks      (command        "_.break"        obj        (trans (vlax-curve-getPointAtDist obj seclen) 0 1)        "@"      ); end command      (setq obj (entlast))    ); end repeat  ); end defun - subdiv ;  (setq cmde (getvar 'cmdecho))  (setvar 'cmdecho 0)  (command "_.undo" "_begin")  (setq    blips (getvar 'blipmode)    osm (getvar 'osmode)  ); end setq ;  (while    (not      (and        (setq esel (ssget ":S" '((0 . "LINE,ARC,CIRCLE,*POLYLINE,ELLIPSE,SPLINE"))))        (= (cdr (assoc 70 (tblsearch "layer" (cdr (assoc 8 (entget (ssname esel 0))))))) 0); 0 for Unlocked, 4 for Locked      ); end and    ); end not    (prompt "\nNothing selected, or object is not a finite path type, or is on a Locked Layer; try again:")  ); end while  (setvar 'osmode 0)  (setvar 'blipmode 0)  (initget 7)  (setq    ent (ssname esel 0)    etype (if ent (cdr (assoc 0 (entget ent))))    entlen (vlax-curve-getDistAtParam ent (vlax-curve-getEndParam ent))    secs (getint "\nNumber of Sections to SubDivide into: ")    seclen (/ entlen secs)  ); end setq ;  (command "_.divide" ent secs) ; remove leading ; if Points are desired along with subdivision  (cond    ( ; Circle or closed Ellipse/Spline [can't break at one point]      (or        (= etype "CIRCLE")        (and (wcmatch etype "ELLIPSE,SPLINE") (vlax-curve-isClosed ent))      ); end or      (command "_.copy" ent "" "0,0" "0,0"); make a copy in place      (setq        ent2 (entlast)        secs1 (/ secs 2)        secs2 (- secs secs1)      ); end setq      (command        "_.break"        ent        (trans (vlax-curve-getStartPoint ent) 0 1)        (trans (vlax-curve-getPointAtDist ent (* seclen secs1)) 0 1)        "_.break"        ent2        (trans (vlax-curve-getPointAtDist ent2 (* seclen secs1)) 0 1)        (trans (vlax-curve-getStartPoint ent2) 0 1)      ); end command      (subdiv ent (1- secs2))      (subdiv ent2 (1- secs1))    ); end Circle or closed Ellipse/Spline condition    (T ; everything else      (subdiv ent (1- secs))    ); end everything-else condition  ); end cond ;  (setvar 'osmode osm)  (setvar 'blipmode blips)  (command "_.undo" "_end")  (setvar 'cmdecho cmde)  (princ) ); end defun (prompt "Type SD to SubDivide a linear object.")

[archiputer]

Bu dosyadan, o dosyaya taşımak istediklerim var!

Design Center diye müthiş bir şey var ve fark ettim ki bazılarınızın haberi yok! “bilenler bilmeyenlere anlatsın”ı düstur kabul eden Archiputer size çok kısa bahsedecek, toplanın!

CAD kullanıcısı iseniz dosyalarınızın arasında veri transferini Desgin Center’dan, Revit kullanıcısı iseniz Transfer Project Standarts’dan yaparsınız. 

Diyelim çok kalifiye hazırlanmış cad standartları dosyanız var, mevcut bir çizime aktarmak istiyorsunuz; içine aktarmak istediğiniz dosyayı açın, “DC” kısayolu ile Design Center’ı da açın, şimdi   dan aktarılmasını istediğiniz standartlarınızın olduğu dosyayı bulun ve tıklayın;

Resimde görmüş olduğunuz gibi block’larınız, ölçü stillerinizi, layout’larınızı, yazı stillerinizi, xref’lerinizi vs vs vs taşıyabilirsiniz. bunları yaparken komple hepsini almak zorunda diilsiniz, taşımak istediğiniz örneğin Layout’larınız olsun, Layputları açın, istediklerinizi seçin ve sağ tıklayarak Add layouts deyin,

Hem de layout’lar, adı, sanı, içinde anteti, sayfa düzeni vs ne varsa eklenir,

Standartlar iyidir! 

[archiputer]

Merhaba Archiputer,

Sana bir sorumuz var.:)

Dinamik blokta (ekte görüldüğü gibi) kapı görünüşleri çizilmiştir. Fakat bölmelerini bir türlü boy ölçüsü değiştikçe oranlı gitmesini sağlayamadık.Bunun pratik çözümü vardır dedik, sana başvurduk.Teşekkür ederiz.

Merhaba,

sanırım yukarıdaki gif'te gösterilen durum gibi bir şey.....

Bu arada "Revit kullansanız ya beybi" demekten kendimi alamadım:) 

Şimdi nasıl yaptığımı anlatayım; kapı block'unu hazırladıktan sonra ara bölme çizgiler için linear parameters ile move action verdim ve her bir move action'un distance multiplier'ını aşağıdan yukarı doğru 0.25, 0.50 ve 0.75 yaptım. Neden derseniz bu move actionaları strech action'a chain action ile bağladım. Strech ile kapıyı yukarı çekerken her bir bölme orantılı olarak move olsun diye. Dosyayı da gönderiyorum, inceleyebilirsiniz. Farklı farklı yöntemlerle de belki yapılabilir mesela Parameters -şahsen kendisine pek ısınamadığım için kolay yolu seçiyorum- Kestane kebap Acele cevap gibi oldu kusura bakmayın...... :)

[archiputer]

Annotation Objeler İçeren Çizimleri Alt Versiyonda Kaydetmek

Alt versiyon (2004 gibi) autocadlerde annotation içeren objeler bazen sorun çıkartabiliyor. Bu durumda şunu yapın;

Çiziminizi açın > komut satırına SAVEFIDELITY yazın > 1 olan değeri 0 ile değiştirin > Enter. Şimdi çiziminizi istediğiniz versiyonda kaydedebilirsiniz.

[archiputer]

Sadece İstediğim Özellikleri Match Yapıyorum...

Bilinen üzere MATCHPROPERTIES (kısayolu MA) komutu en yaygın kullanılan acad komutlarından... kaynak objeye tıklarsınız, hedef objenin tüm özelliklerini kaynak obje özellikleri ile aynı kılar... Ancak diyelim ki siz objelerde ayarladığınız renk, şeffaflık, vs tüm özellikler kalsın, sadece layer ve linetype özelliklerini aynılaştırmak istiyorsunuz... Bu da mümkün tabi....

Diyelim ki elimizde aşağıda görüldüğü gibi her türlü özelliği ve layerları farklı objeler var;

Layer isimlerini üzerine yazdığımız bu objelerden 0,1 ve 3 olanların layer ve linetype haricindeki özelliklerini korumak istiyorum. Bu durumda MATCHPROPERTIES (kısayol: MA) yazıyorum > kaynak objem olan 2 nolu objenin dış çerçevesini tıklıyorum > ayarları yapabilmek için S deyip enter a basıyorum; 

Açılan sayfada sadece layer ve linetype'ı işaretli bırakıp, diğer tüm işaretleri kaldırıyorum ve OK ile çıkıyorum. Bu aşamadan sonra hedef objeleri seçip komutu tamamlıyorum. 

Yukarıdaki resimde görüldüğü gibi hedef objelerimin hepsi 2 layerına geçti ve çizgi tipleri kaynak objem ile aynı oldular ancak renkleri ve şeffaflıkları gibi özellikleri değişmedi. Sadece renkeri ByLayer olarak tanımlı olan objeler renk değiştirdi ki o da yeni layer'ının rengini aldığı için...