Hoe een rechte afstand tussen 2 verschillende stralen bepalen (OPGELOST)

[Jon Tampon]

Beste,

Ik heb een vraag om een bocht af te kappen (zie bijlage)

Ik wil deze recht afkappen maar ik wil deze perfect snijden zodat ik bovenaan een lengte opening behoud van 465mm.
Is hier een bepaalde functie voor? ik dacht eerst met cirkels te werken en met de ttr functie maar ik kwam er niet echt uit.

Is er een mogelijkheid om een lijnstuk vast te pakken en dan volgens een path (hier een straal) te moven totdat deze de andere straal kruist of iets dergelijks?

Bij voorbaat dank,
Jon Tampon

[EddyBeerke]

Als je de kortste afstand tussen twee lijnen (ook 3d) wilt:
http://www.cadsite.be/smf/index.php?topic=2831.msg14527#msg14527

[Jon Tampon]

Ik ben niet zo goed met lisps mor ik heb de code van de andere site geheel in autocad geplakt en dan bepaald hij de minimum afstand zoals door u gevraagd eens, maar hij doet dit ook steeds tangentieel.

In mijn voorbeeld zoek ik niet echt de kortste afstand, maar dat ik een afstand zelf in het begin kan vastleggen en dat hij bepaald tussen 2 curves waar deze lijn dan juist komt.

[HofCAD]

Beste Jon,

Zoek je de hoek A uit het bijgevoegde plaatje?

Met vriendelijke groet, HofCAD CSI.

[Jon Tampon]

Ik zoek hoe ik de lijn zo moet tekenen, zoals jij in jouw afbeelding hebt gedaan, via jouw hoek kan ik dit benaderen maar ik weet niet hoe u op de hoek, of op de lijn komt..

kan u mij dit verduidelijken want zoals u het hebt getekend is exact wat ik ook wil doen

[HofCAD]

Ik zoek hoe ik de lijn zo moet tekenen, zoals jij in jouw afbeelding hebt gedaan, via jouw hoek kan ik dit benaderen maar ik weet niet hoe u op de hoek, of op de lijn komt..

Beste Jon,

Je kan die hoek berekenen  met de cosinusregel!

Code Selecteer Uitklappen

(defun c:AngSl(/ acosreg rtd)
(defun acosreg(a b c)
(setq out! (acos (/ (+ (* b b) (* c c) (- (* a a))) (* 2.0 b c))))
)
(defun rtd (a)
   (setq a (* (/ a pi) 180))
)
(setq Ru 618.9 Ri 295.1 Len 465.0)
(setq out! (+ 90 (rtd (acosreg Ru Ri Len))(rtd (acosreg Len Ru Ri))))
(princ (rtos out! 2 12))
(princ)
)
Je kan dan een verticale lijn door het middelpunt tekenen en dan met
het commando XLINE de hulplijn trekken.

Code Selecteer Uitklappen

Command: XLINE
Specify a point or [Hor/Ver/Ang/Bisect/Offset]: A
Enter angle of xline (0) or [Reference]:  R
Select a line object:
Enter angle of xline <0>: 62.854623611729
Specify through point: CEN
of
Specify through point: *Cancel*

Met vriendelijke groet, HofCAD CSI.

[Jon Tampon]

Ok bedankt voor de oplossing.
Jammer dat mijn wiskundeknobbel niet toereikend genoeg is, maar ik zoek het nog verder uit;

Bereken jij dit met een progje?

[HofCAD]

Ok bedankt voor de oplossing.
Jammer dat mijn wiskundeknobbel niet toereikend genoeg is, maar ik zoek het nog verder uit;

Bereken jij dit met een progje?

Beste Jon,

Er staat toch al een progje AngSl!
Probeer eens het onderstaande programma:

Code Selecteer Uitklappen

(defun c:XLAngSl(/ acos acosreg rtd ~OSM Ru Ri Len p)
(defun acos(x)
(setq out! (atan (/ (sqrt (- 1 (* x x))) x)))
)
(defun acosreg(a b c)
(setq out! (acos (/ (+ (* b b) (* c c) (- (* a a))) (* 2.0 b c))))
)
(defun rtd (a)
   (setq a (* (/ a pi) 180))
)
(setq ~OSM (getvar "OSMODE"))
(setq Ru (getreal "\nOuter radius: "))
(setq Ri (getreal "\nInner radius: "))
(setq Len (getreal "\nEdge length: "))
(setvar "OSMODE" 4)
(setq p (getpoint "\nPick Center."))
;(setq Ru 618.9 Ri 295.1 Len 465.0)
(if (and Ru Ri Len)
(progn
(setq out! (+ (rtd (acosreg Ru Ri Len))(rtd (acosreg Len Ru Ri))))
(princ (rtos out! 2 12))
(command "_.XLINE" "_A" Out! p "")
)
(princ "\nBad input")
)
(setvar "OSMODE" ~OSM)
(princ)
)

Met vriendelijke groet, HofCAD CSI.

[Jon Tampon]

Ok ik vermoed dat dit een lisp is?
Zoals ik al eerder zei; ik ken eig niks van lisps :s

Je moet zeker ergens een tekstdocument aanmaken, zetten in de juist acad map, inladen met acad en dan kan je dit gebruiken terwijl je selecties maakt in acad?

[HofCAD]

Beste Jon,

Laad met het het commando APPLOAD het Lisp bestand XLAngSl.lsp
uit de bijlage, en geef het commando XLANGSL.
Kijk voor een beter begrip van het goniometrisch probleem naar
het plaatje!.

Met vriendelijke groet, HofCAD CSI.

[Jon Tampon]

Als ik het commando doe krijg ik volgende melding

Command: XLANGSL
; error: no function definition: ACOS

[HofCAD]

Beste Jon,

Sorry.

Haal XlAngSl.lsp opnieuw binnen en probeer het nog eens.
Gebruik het commando XLANGSL om de constructielijn te krijgen,
of gebruik het commando LANGSL om meteen de snijlijn te krijgen.

Met vriendelijke groet, HofCAD CSI.

PS1 De lengte Len moet aan de volgende voorwaarden voldoen:
a) Len > (Ru-Ri)
b) Len < sqrt ((Ru*Ru) - (Ri*Ri))
PS2 De bocht moet in de stand volgens tekening
http://www.cadsite.be/smf/index.php?action=dlattach;topic=5122.0;attach=2670
staan.
PS3 In het bijgevoegde plaatje 'AutoCAD Constructie.jpg' kun je zien,
hoe je in AutoCAD een oplossing kan construeren

[Jon Tampon]

Ok das echt wel zot graaf hoe dit macheert!

bedankt!!

[HofCAD]

Ok das echt wel zot graaf hoe dit macheert!

bedankt!!

Beste Onderzoekers,

Download het bestand XlAngSl.lsp opnieuw, want het is nu gebruiksvriendelijker.
Het macheert nu beter!
Je kan namelijk de stralen aangeven met een punt.

Met vriendelijke groet, HofCAD CSI.