11.09.2006 10:55

7170    

ÇOK PRATİK KONİ AÇINIMI;

'' Pratik Düzgün koni açınımı
'' İki boyutlu olarak koniyi çizin, ya da ikizkenar bir üçgen çizin.
'' Bu makroyu çalıştırın
'' Kodun eksik bıraktığı çizimi tamamlayın, koni açınımınız hazır
'' Daha fazlası için www.ksg.8k.com
Public Sub KonikAcinim()
Dim Radii As Double
Dim Diameter As Double

Dim focuspnt As Variant
Dim radiEndPoint As Variant
Dim diaEndPoint As Variant

focuspnt = ThisDrawing.Utility.GetPoint(, "TEPE NOKTASI - Pick focus point:")
radiEndPoint = ThisDrawing.Utility.GetPoint(focuspnt, "YARICAP - Enter radius:")
diaEndPoint = ThisDrawing.Utility.GetPoint(radiEndPoint, "TABAN DAIRESI CAPI - Enter diameter:")

Dim radangle As Double
Dim Radi As Double
Dim Dia As Double

Dim midPnt(0 To 2) As Double

Radii = Sqr((focuspnt(0) - radiEndPoint(0)) ^ 2 + (focuspnt(1) - radiEndPoint(1)) ^ 2)
Dia = Sqr((diaEndPoint(0) - radiEndPoint(0)) ^ 2 + (diaEndPoint(1) - radiEndPoint(1)) ^ 2)

Dim pii As Double
pii = 3.1415926553

radangle = pii * Dia / Radii

midPnt(0) = (radiEndPoint(0) + diaEndPoint(0)) / 2#
midPnt(1) = (radiEndPoint(1) + diaEndPoint(1)) / 2#
midPnt(2) = (radiEndPoint(2) + diaEndPoint(2)) / 2#

Dim anyline As AcadLine
Set anyline = ThisDrawing.ModelSpace.AddLine(focuspnt, midPnt)
anyline.Rotate focuspnt, radangle / 2#

Dim bnyline As AcadLine
Set bnyline = ThisDrawing.ModelSpace.AddLine(focuspnt, midPnt)
bnyline.Rotate focuspnt, radangle / -2#

Dim circ As AcadCircle

Set circ = ThisDrawing.ModelSpace.AddCircle(focuspnt, Radii)

End Sub

12.09.2006 21:19

7319    

Bir metne tıkladıgımızda yanan referans noktasına mause ile tıklayarak sürükleyebilirsiniz ama bunun püf noktası ne derseniz bu işlemi yaparken ctrl tuşuna basılı tutarsanız eğer copyalama özelligini devreye sokmuş olursunuz bu işlemi çizgilerde orta noktasındaki kutucuga tıklayıp sürükledigimizde de aynı sonucu verir kimse vermediyse eğer bu da benden olsun...

13.09.2006 22:26

7424    

Lockui komutu ile toolbarları kilitleyebillrsiniz

Lockui enter 15 enter.Kiliti açmak için sıfır enter yapmalısınız.

2006 ve üstü sürümlerde imlecin eskisi gibi olmasını isterseniz dynmode enter sıfır enter yapın

13.09.2006 23:08

7427    

Kendi resminizi autocad ekranınızda açmak isterseniz image enter yapıp resmi bulun Ok diyin.Daha sonra z enter a enter yapın.İsterseniz bu resmin üzerinde çizim yapıp daha sonra explode komutu ile resminizi patlatın çiziminiz hazır olacaktır.

13.09.2006 23:17

7429    

Eğer halen 3d yazı yazamıyorsanız wordte yazın kopyalayıp autocad ekranına yapıştırın.

Murat (13.09.2006 23:24 GMT)

13.09.2006 23:27

7431    

dragmode komutuyla nesneleri hareket ettiriken görüntülenmemesini sağlayabilirsiniz

13.09.2006 23:30

7433    

Eğer rotate yaparken şekil istemediğiniz bir yönde açılı gidiyorsa birde eksi yazıp deneyin.

13.09.2006 23:37

7435    

Bir çizginin ucundan 10 birim uzatmak isterseniz len enter del enter 10 enter yapın ve çizginin ucuna tıklayın 10 br uzayacaktır.

16.09.2006 17:05

7650    

2006 ve 2007'de taramaları trimleyebilrsiniz

BİR MABEDİ AYAKTA TUTAN SÜTUNLAR, ARALIKLI DURURLAR

30.09.2006 14:44

8665    

2007 de slice komutuyla parçaları çok basit bi şekilde kesebiliyorsunuz kooordinatı ayarladıktan sonra direk komutu alarak kesilecek bölgeyi seçin entere basın sonra imleçi paralel bi şekilde veya keseceğiniz doğrultuda uzatın ve entere basın...

Özü doğru olanın sözü de doğru olur!!!