hanhphuc Posted March 25, 2020 Posted March 25, 2020 On 3/23/2020 at 7:00 AM, BIGAL said: I think this explains here in AUS its 0-360 https://readcivil.com/bearing-in-surveying-definition-types-and-designation-of-bearing/ look at quadrant. just my $0.02, maybe wcmatch angtos eg: "N*E,N" "N*W,E" "S*W,W" "S*E,S" ?? but OP's direction or quadrant quite confusing (setq ang (angtos (angle p1 p2) 4 16) ) ;"N 43d57'2.172254365\" E" (wcmatch ang "N*E") ;T Quote
dlanorh Posted March 25, 2020 Posted March 25, 2020 3 hours ago, hanhphuc said: just my $0.02, maybe wcmatch angtos eg: "N*E,N" "N*W,E" "S*W,W" "S*E,S" ?? but OP's direction or quadrant quite confusing (setq ang (angtos (angle p1 p2) 4 16) ) ;"N 43d57'2.172254365\" E" (wcmatch ang "N*E") ;T Yeah, though about that, but I think min bounding box might be the way forward. The bits work its just bolting it together. Convex hull -> find longest segment -> rotate vertical -> boundingbox -> create frame -> rotate back. then get user to pick northern segment. Quote
hanhphuc Posted March 25, 2020 Posted March 25, 2020 which northern quadrant (red zone)? right diagram - quadrant bearing (angtos ang 4 ) left diagram - angle direction, preferable? Quote
dlanorh Posted March 25, 2020 Posted March 25, 2020 (edited) @hanhphuc See attached pl1v2004.dwg Edited March 25, 2020 by dlanorh 1 Quote
hosneyalaa Posted September 2, 2020 Author Posted September 2, 2020 On 3/24/2020 at 1:56 AM, dlanorh said: @hosneyalaa Attached is attempt so far. This only works for clockwise polylines at present but I should be able to incorporate ccw polylines tomorrow. Hope this is what you're after. Bearing_and_DistancePolyH.lsp 3.95 kB · 6 downloads HI dlanorh Is it possible to modify the LISP ? And make writing lengths into POLYLINE The accuracy of the number is two digits after the decimal point Quote
dlanorh Posted September 2, 2020 Posted September 2, 2020 (edited) 4 hours ago, hosneyalaa said: HI dlanorh Is it possible to modify the LISP ? And make writing lengths into POLYLINE The accuracy of the number is two digits after the decimal point Attached is modified lisp so that text is inside. This lisp was also updated in May? as I improved some things, but I can't remember what (old age). You can set the accuracy using (setvar 'luprec 2), before running the lisp (unless you want it hard coding) Bearing_and_DistancePolyH.lsp Edited September 2, 2020 by dlanorh 1 Quote
hosneyalaa Posted September 2, 2020 Author Posted September 2, 2020 On 3/24/2020 at 1:56 AM, dlanorh said: @hosneyalaa Attached is attempt so far. This only works for clockwise polylines at present but I should be able to incorporate ccw polylines tomorrow. Hope this is what you're after. Bearing_and_DistancePolyH.lsp 3.95 kB · 6 downloads THANK YOU @ dlanorh Quote
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.