Sağlanan yöntemleri kullanarak Yardımcı ProgramBu nesne sayesinde, matematiksel bir problemi hızlıca çözebilir veya çiziminizdeki noktaları belirleyebilirsiniz.
Yöntemler kullanılarak Yardımcı ProgramNesneyi elde etmek için şunları yapabilirsiniz:
- X ekseninden geçen bir doğrunun, x ekseniyle yaptığı açıyı bulun. X Ekseninden Açıyöntem
- Bir açıyı metin biçiminden gerçek (çift duyarlıklı) bir değere dönüştürün. AngleToRealyöntem
- Bir açıyı gerçek (çift duyarlıklı) değerden metin türüne dönüştürün. Açıdan Dizeyeyöntem
- Bir metin dizisinden uzaklığı gerçek (çift duyarlıklı) bir değere dönüştürün. Gerçek Mesafeyeyöntem
- İçinde tamsayılar, ondalık sayılar, çift duyarlıklı sayılar vb. içeren bir dizi oluşturan bir varyant oluşturun. CreateTypedArrayyöntem
- Verilen bir noktadan belirli bir açı ve mesafedeki noktayı bulun. PolarPointyöntem
- Bir noktayı bir koordinat sisteminden başka bir koordinat sistemine şu şekilde taşıyın: Koordinatları Çeviryöntem
- Kullanıcının girdiği iki nokta arasındaki mesafeyi bulun. Mesafeyi Alyöntem
GetDistance metodu ile iki nokta arasındaki mesafeyi bulun. #
Bu örnekte şu kullanılmıştır: Mesafeyi AlNokta koordinatlarını elde etme yöntemi ve Mesaj KutusuHesaplanan mesafeyi görüntülemek için kullanılan fonksiyon.
- AutoLISP
-
( vl - load - com ) ( defun c : Ch3_GetDistanceBetweenTwoPoints () ( setq acadObj ( vlax - get - acad - object ) doc ( vla - get - ActiveDocument acadObj ) utilityObj ( vla - get - Utility doc )) ;; Kullanıcı tarafından girilen değeri döndürür . Bir uyarı mesajı verilir . ( setq returnDist ( vla - GetDistance utilityObj nil "\nİki nokta seçin: " )) ( alert ( strcat "İki nokta arasındaki mesafe: " ( rtos returnDist 2 ))) )
- VBA (Sadece AutoCAD için)
-
Sub Ch3_GetDistanceBetweenTwoPoints () Dim returnDist As Double 'Kullanıcının girdiği değeri döndürün. Bir uyarı mesajı görüntülenecektir.' returnDist = ThisDrawing.Utility.GetDistance(, "İki nokta seçin: ") MsgBox "İki nokta arasındaki mesafe: " & returnDist Son Alt Yordam
