hanhphuc Posted March 25, 2020 Share 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 Link to comment Share on other sites More sharing options...
dlanorh Posted March 25, 2020 Share 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 Link to comment Share on other sites More sharing options...
hanhphuc Posted March 25, 2020 Share Posted March 25, 2020 which northern quadrant (red zone)? right diagram - quadrant bearing (angtos ang 4 ) left diagram - angle direction, preferable? Quote Link to comment Share on other sites More sharing options...
dlanorh Posted March 25, 2020 Share Posted March 25, 2020 (edited) @hanhphuc See attached pl1v2004.dwg Edited March 25, 2020 by dlanorh 1 Quote Link to comment Share on other sites More sharing options...
hosneyalaa Posted September 2, 2020 Author Share 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 Link to comment Share on other sites More sharing options...
dlanorh Posted September 2, 2020 Share 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 Link to comment Share on other sites More sharing options...
hosneyalaa Posted September 2, 2020 Author Share 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 Link to comment Share on other sites More sharing options...
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.