ARCHIPUTER

Zamanı Kısaltan Autocad Güçleri / Revizyon Sever Çizim Teknikleri ........ (function(i,s,o,g,r,a,m){i['GoogleAnalyticsObject']=r;i[r]=i[r]||function(){ (i[r].q=i[r].q||[]).push(arguments)},i[r].l=1*new Date();a=s.createElement(o), m=s.getElementsByTagName(o)[0];a.async=1;a.src=g;m.parentNode.insertBefore(a,m) })(window,document,'script','https://www.google-analytics.com/analytics.js','ga'); ga('create', 'UA-98261816-1', 'auto'); ga('send', 'pageview');

[archiputer]

Kendime not: Autocad içerisinde kullandığım attribute blocklar içerisinde Field olanları otomatik etiket olmaktan çıkarmak için R-Field lispini kullan.

[archiputer]

Merhabalar, paylaşılan her bilgi için teşekkürler. Emeğinize sağlık. Benim şöyle bir sorum olacak ; FIELD ile attribute blocklarda alan tanımlamak istiyorum. Fakat bunu seçtiğim polyline ile değil atadığım hatch ile yapmak mümkün mü? Cevabınız için şimdiden teşekkürler

Öncelikle teşekkür. Field ile elbette hatch alanı yazdırabilirsiniz. Obje seçerken hatch seçin, area seçeceği çıkacak.

[archiputer]

Origin noktam aynı olmasına rağmen XRef ler farklı noktalara yerleşiyor idi….

Öğrendim ki Autocad çizimler ve dış referenaslar için insert point olarak sadece 0,0,0 noktasını değil INSBASE sistem değişkenini de kullanıyormuş. INSBASE değişkenini 0,0,0 olarak revize edince konu çözüldü, belki ihtiyacı olan olur. 🤷🏼‍♀️

[archiputer]

2018′in daha iyi geçmesi dileğiyle, Herkese MUTLU YILLAR !!!

[archiputer]

Black Sale den faydalanın!

Sürekli revit kursları hakkında soru alıyorum, işte fırsat! İnternette online kurslarda da bu indirimler var. Ben Udemy'i takip ediyorum mesela. Sizde önizlemelere bakıp kendinize uygun bir eğitimi bu indirimlerden faydalanıp alabilirsiniz. Sıcacık evinizden Revit öğrenirsiniz! Bi de salep yanına :)))

[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]

Gel takipçi, beraber kaplamalı duvar çizmenin kolaylıklarını gözden geçirelim!

Aldığım maillerden üzerinde durmakta fayda olacağını düşündüğüm bir konu var. Duvar çizerken sıva, kaplama gibi katmanları veya herhangi bir katmanlı yapıyı çizmek için ne yapabiliriz? 

1- Revit ile çalışmaya direnmeyip kendinizi BIM’in güvenli kollarına bırakabilirsiniz :)

2-Autocad’de multiline kullanabilirsiniz ama elbette bazı inceliklerle; diyelim ki 20cm duvar, 5 cm kaplama, 5cm kaplama şeklinde duvar çizmeniz gerekiyor. biraz da kırıklı durumlar varsa çiz, fillet et, offset et falan filan uğraşmak yerine multiline çizmek mantıklı. Ama multiline da farklı layer’lar kullanamıyoruz. Onun yerine farklı renkler kullanıp objeleri hızlı seçim ile layerlarına aktaracağız. Buradaki in önemli fark ise Lee-Mac lisplerinden Multi-Polyline kullanacağız ve aslında Multiline değil, Multi Polyline çizeceğiz ki çizgileri join yapmakla uğraşmayalım.

Şimdi başlayalım; önce multline style oluşturacağız. dikkat etmemiz gereken katmanların renklerini başka layer veya çizgilerle karışmasın diye True Color veya Color Books tan vermek. Multiline stilini MLSTYLE komutu ile çalıştırın, stile bir isim verin, katmanların kalınlıklarını belirleyin (örnekte 20 cm duvar, 5cm kaplama ve 5cm kaplama). multiline ‘ın ucu açık-kapalı gibi seçenekleri var, işinize yarıyor ise bu seçenekleri de kurcalayın. Offset değerlerini de ayarlayıp bu pencereleri kapatın.

Şimdi APPLOAD ile bu lispi indirip yükleyin.

Çizmeye başlamak için Multiline yerine MPL komutu ile multipolyline’lar çizeceğiz ama multiline gibi stil seçimi yaparak çizmeye başlıyoruz. aşağıdaki resimde sarı işaretliler komut paneline sıra ile girdiğimiz komutlar;

sonra çizmeye başlıyoruz;

yukarıdaki resimdeki gibi çizdiğiniz çizgiye tıklarsanız Polyline olduğunu ve multiline gibi davranmadığını göreceksiniz.

son olarak layerları kontrol etmek için QUICK SELECT ile renklerine göre polyline’ları seçip layerına aktarmak;

son olarak anladığım kadarı ile bazı arkadaşlar kaplamayı tek çizgi yerine kapalı kalınlığı olan obje olarak çizmek isterlerse COPYTOLAYER komutuna bir göz atsınlar. mevcut bir objeyi ister olduğu yerde ister başka bir noktaya taşıyan ve hedef layer ile kopyalamayı sağlar. elbette SETBYLAYER komutu ile her polyline kendi layerında güzel atasözünü de gerçekleştirip konuyu kapatabiliriz.

Ama sevgili takipçi bence bırakın bu işleri şu BIM nedir, neler yapılıyor bir göz atın. öyle sadece çizdin kesiti otomatik oluyor gibi bir şey değil! Zaman en değerlisi, benden söylemesi. Gridal selamlar! 

[archiputer]

2k takipçi!

2 yıldır 1985 ile 1998 arasında gidip gelen takipçi sayım az önce 2000 oldu! Nedendir bilinmez ben de bir mutlu oldum.

[archiputer]

Merhaba Autocad'de her şeyi Z eksenin de 0 taşımanın yolu var midir ?

Merhaba, FLATTEN ile yapabilirsiniz

[archiputer]

Belirli aralıklarda zilyon adet noktanın koordinatını şıp diye yazdırmak için...

gelen bir mail üzerine içimizde kanayan bu yaranın çözümünü belki ihtiyacı olan olur diye bloga yazmayı bir borç bilirim! 

Konu başlıktan anlaşıldığı üzere; bir hattın belirli aralıklarla (örneğim 2m) bölünüp, bu bölüntülere noktalar atanması ve bu noktalara otomatik koordinat yazdırmak

Şöyle saçma sapan giden bir hattımız olsun (hattın polyline olmasına dikkat ediniz);

Şimdi koordinatları yazdıracağımız br block yapalım; block bir point, 3 adet attribute’ten oluşturacağız, atribute’leri oluştururken Default alanının sağındaki tuş (insert field) ile Field eklenecek; Field Category: object, Object Type yanındaki Select Object düğmesi ile point seçilecek, liste belirince Position seçilip,  ölçü birimleri ile birlikte sadece X seçeneği seçili bırakılacak. OK ile attribute’ü istediğiniz noktaya yerleştirdikten sonra bu attribute’ü tplamda 3 olacak şekilde kopyalayın. Y ve Z olacak olanların üzerine çift tıklayarak aynı işlemleri sadece Y ve Z işaretli olacak şekilde yapın.

sonuç şöyle bişey olacak;

Sonra tümünü seçip Block yapın. Block insert point’ini blocktaki point olarak verin. Block adını Ctrl+C ile kopyalayın. bir kenarda dursun lazım olacak,

Şimdi ilk olarak çizdiğimiz polyline ı 2m aralıkla bölmek için MEASURE komutunu kullanacağız. sırası ile komut satırında beliren seçenekler için aşağıdaki notları takip edin.

Command: ME MEASURE Select object to measure: (polyline ı seçin.) Specify length of segment or [Block]: b Enter name of block to insert: KoordinatPoint (block’unuzun adını girin) Align block with object? [Yes/No] <Y>: y Specify length of segment: 2 (2m aralıklarla bölmek istediğimiz için ve çizim birimimiz metre olduğundan 2 olarak girdik)

ilk görüntü aşağıdaki gibi olacaktır; koordinatları görmeyeceksiniz, korkmayın. 

ATTSYNC komutu ile block’lardan birini seçin. şimdi de aşağıdaki gibi görünecek; (bu benim yazı büyüklüklerini yanlış ayarlamamdan kaynaklandı)

Tüm blockları seçip, Scale’ini 0.1 olarak ayarlayınca sorunumuz çözülecek;

Sonuç şu şekil;

hepsi bu!

güzel haftasonları........

[archiputer]

Merhaba 0dan autocad mimari öğrenmek istiyorum,tavsiye ettiğiniz eğitim seti yada youtube sayfası var mi acaba?

açıkçası çok fazla bilgi var. ben bişey öğrenmek istediğim zaman udemy gibi sitelerin videolarını takip ediyorum ama hiç autocad videosu takip etmedim. sorunuzu paylaşıyorum belki iyi bilen biri vardır diye.

[archiputer]

Selamlar bazı hazır çizimlerle gelen bloklardaki özelliği sormak istiyorum. Kesitte trim gerektirmeden o bloğu çizginin üstüne koyduğunuzda çizgiyi otomatikman arkaya atıyor ve bloğun üzerinde gözükmüyor bi nevi otomatik trim. Nasıl ayarlanır böyle blok bilginiz var mı? Teşekkürler. Ekin

Merhaba, çizgiyi otomatik trim yaptığından çok emin olamadım, sanki bana block içinde wipeout varmış gibi geldi? block içine yaptığınızda bir çeşit maskeleme yapıyor. eğer çizgi arkada ise (send to back) blocka denk gelen yeri görünmüyordur.

ama hayır öyle değil bu başka diyorsanız dosyanızı paylaşırsanız inceleriz.

[archiputer]

merhaba,autocad de çizgiye globalwith verdiğimizde çizimde, çizginin içerisi boş çıkıyor. bununla ilgili bir komut varmıydı acaba? iyi çalışmalar.

merhaba,

Fillmode değerini 1 yapın, bi de regen yaparsanız şahane olur tabi

[archiputer]

Merhabalar. Öncelikle tüm paylaşımlarınız için çok teşekkür ediyorum. Zamanımı çok kısaltıyorlar. Araştırdım fakat maalesef bir çözüm bulamadım. Çözüm olarak görülen şeyleri denedim ve işe yaramadı. Sorunum şudur ki; Autocad'in açılış ekranında videoda (link) verdiğim şekilde sürekli bir yenilenme oluyor. Bu yenilenme olduğunda ise açmış olduğum hiç bir çizimde komut çalışmıyor ya da komutlar sonradan algılanıyor. Belki işe yarar diye Autocad'i kaldırıp tekrar yükledim ama işe yaramadı. Daha önceden başıma gelmiş olan bir konu vardı. Autocad'te esc tuşum çalışmıyordu. Sistemsel bir sorun olduğuna yabancı bir forumda denk geldim ve Autocad ile Photoshop aynı anda açık olduğu zaman bu şekilde bir sorun yaşanabildiği yazıyordu. Photoshop'u kapattığımda sorun çözülmüştü. Bunun gibi bir durum olduğunu düşünüp diğer tüm programları kapattım fakat yine çözüm olmadı. Sizin bu konu ile ilgili yaşamış olduğunuz bir deneyim ya da çözüm öneriniz var mıdır?  Gelecek tüm cevaplar için şimdiden teşekkür ederim. Keyifli günler. Gizem

[archiputer]

Toplanın, ofisten erken çıkmanın yolunu anlatıyorum! :)

Çizdik, bitti ile olmuyor ya bu proje işleri çok sinir bozucu. 500 paftanın layoutunu hazırla, pdf’ini al vs vs vs. işte ufak ufak olayı kısaltıyoruz. şimdi anlatacağım trick Layoutlarda işveren, proje adı, proje kodu gibi sabit bilgileri tekrar tekrar girmekten kurtaracak sizi. 

 1- önce Autocad > Drawing Utilities > Drawing Properties’i açın

2- Custom bölümünden Add ile bilgileri ekleyin. OK ile çıkın

3- Antet block’unuzda bu bilgilerin girileceği Attribute’ler tanımayın (Insert > Define Attribute). Attribute tanımlarken Default kısmına sağ tıklayın ve Insert Field’i seçin (bu Field meselesini çok sevdiğimi yeri gelmişken bir daha söyleyeyim)

4- Field penceresindeki Field Category’i Document olarak seçin. Bakınız sarı işaretliler sizin girdiğiniz özellikler.! 

5- örnek olarak Project Number’ı seçtim.antette olması gereken yere yerleştirin ve block’u kapatın. şimdi anteti daha önce yaptıysanız bu attribute’lerin block’a yansıması için ATTSYNC yapmanız lazım.

işin güzelliği Drawing Properties alanından tek seferde tüm antet bilgilerinin revizyonunu yapabiliyor olmanızda. (yaşasın revizyonsever antetler!)

[archiputer]

Selamlar, autocadde sıva çizimi yaparken, duvar üzerinden çizip tek tek offsetlerken çok fazla zaman kaybediyoruz. Acaba revitte olduğu gibi duvar üzerinden çizerken öteden çizimin devam etmesini sağlayan bir komut ya da lisp var mı? Teşekkürler.

Merhaba,

ilk aklıma gelen ”multiline” oldu açıkçası. dinamik olarak offset yapan bi lisp vs de göremedim şimdiye kadar. ama multiline denenebilir. 

[archiputer]

ARCHIPUTER turned 4 today!

Nasıl oldu bilmiyorum ama koca 4 seneyi devirmişiz! hala sorun yaşıyor olmamız da şaşırtıcı değil mi :) 

Lütfen bilgiyi şöyle elden ele bi uzatalım, fazla sizde kalınca bayatlama yapar..... sevgiler, saygılar ve revizyonsuz günler dilerim!