Bearing and distance autocad lisp9/26/2023 ![]() The one I am attempting to load is one of these but has been modified for Canadian use. I searched my archives and came up with these. ![]() RE: show bearings and distances 2Hot (Civil/Environmental) 12 Jun 03 13:48 ![]() (command ".-text" "c" p4 txht ang1 dist1) (setq ang4 (for_ang ang1)) format angle string (setq txht (scl (getvar "dimtxt"))) base text on dimtxt variable (setq dist1 (add_commas dist1)) add commas to string (setq dist1 (strcat (rtos dist 2 2) (chr 39))) (defun FOR_ANG (Ang_Strng / trash Deg_Mrk Min_Mrk Sec_Mrk Count New_Strng ![]() * Select 2 points and insert the distance/heading * It puts the dist & heading on the text layer and it the text layer doesn't exist then it creates it.
0 Comments
Leave a Reply.AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |