See the top rated post in this thread. Click here

Page 1 of 6 12345 ... LastLast
Results 1 to 10 of 60

Thread: Surveying Bearing/Distance LISP Routine

  1. #1
    Member
    Join Date
    2009-01
    Posts
    20
    Login to Give a bone
    0

    Default Surveying Bearing/Distance LISP Routine

    Does anyone know of a LISP Routine that will label a line with the bearing and distance of said line (each entity in single line text)? I had a great LISP Routine that worked in LDD but I can't get it to work in CIVIL3D. Any help would be appreciated.

  2. #2
    Administrator rkmcswain's Avatar
    Join Date
    2004-09
    Location
    Earth
    Posts
    9,780
    Login to Give a bone
    0

    Exclamation Re: Surveying Bearing/Distance LISP Routine

    Here is one (It's not mine, I just found it here on augi)

    Attachment 22623
    Last edited by rkmcswain; 2009-03-19 at 12:53 PM. Reason: disclaimer
    R.K. McSwain | CAD Panacea |

  3. #3
    Member
    Join Date
    2009-01
    Posts
    20
    Login to Give a bone
    0

    Default Re: Surveying Bearing/Distance LISP Routine

    I also found that routine and it is just not user friendly. With the old LISP that I had, all you had to do was type in the routine and select the line in which you were interested in. I have searched for similar routines and have not found any that are as efficient. Thanks for your help though. If anybody knows of anything, please help!!!

  4. #4
    Certifiable AUGI Addict
    Join Date
    2001-03
    Location
    Tallahassee, FL
    Posts
    3,376
    Login to Give a bone
    0

    Default Re: Surveying Bearing/Distance LISP Routine

    Line_Label.lsp labels lines, arcs & polyline segments using current text size.
    I have this macro in the CUI:
    ^C^C^P(or C:Label (load "Line_Label.lsp"));Label

    For curves it creates a curve table. Put Line_Label.lsp, Dim_Arc.DWG & Dim_Line.DWG in a folder in your support path. The drawings are inserted as blocks with attributes.
    Attached Files Attached Files
    Last edited by Tom Beauford; 2017-02-27 at 09:50 PM.
    Tom Beauford P.S.M. - Civil 2020 on Windows 10 Enterprise
    Design Analysis - Leon County Public Works/Engineering Wrap [CODE] tags around selected text
    2280 Miccosukee Rd. Tallahassee, FL 32308-5310
    Ph# (850)606-1516 Home Page

  5. #5
    Member
    Join Date
    2009-01
    Posts
    20
    Login to Give a bone
    0

    Default Re: Surveying Bearing/Distance LISP Routine

    Tom-

    Thanks for the help. I have done everything that you said but I get the following error:
    "Error: no function definition: VLAX-ENAME->VLA-OBJECT". Any ideas?

  6. #6
    Administrator Opie's Avatar
    Join Date
    2002-01
    Location
    jUSt Here (a lot)
    Posts
    8,486
    Login to Give a bone
    0

    Default Re: Surveying Bearing/Distance LISP Routine

    Quote Originally Posted by jason.bongard View Post
    Tom-

    Thanks for the help. I have done everything that you said but I get the following error:
    "Error: no function definition: VLAX-ENAME->VLA-OBJECT". Any ideas?
    Run (vl-load-com) before running Tom's attached code. You could also add it to the file at the beginning of the routine. It does not hurt if it is run more than once.
    If you have a technical question, please find the appropriate forum and ask it there.
    You will get a quicker response from your fellow AUGI members than if you sent it to me via a PM or email.
    jUSt

  7. #7
    Administrator rkmcswain's Avatar
    Join Date
    2004-09
    Location
    Earth
    Posts
    9,780
    Login to Give a bone
    0

    Default Re: Surveying Bearing/Distance LISP Routine

    Add (vl-load-com) to the top of the file.
    R.K. McSwain | CAD Panacea |

  8. #8
    Certifiable AUGI Addict
    Join Date
    2001-03
    Location
    Tallahassee, FL
    Posts
    3,376
    Login to Give a bone
    0

    Default Re: Surveying Bearing/Distance LISP Routine

    Quote Originally Posted by rkmcswain View Post
    Add (vl-load-com) to the top of the file.
    Thanks R. K!. I always forget not everyone has that in their acad.lsp.
    Tom Beauford P.S.M. - Civil 2020 on Windows 10 Enterprise
    Design Analysis - Leon County Public Works/Engineering Wrap [CODE] tags around selected text
    2280 Miccosukee Rd. Tallahassee, FL 32308-5310
    Ph# (850)606-1516 Home Page

  9. #9
    Member
    Join Date
    2009-01
    Posts
    20
    Login to Give a bone
    0

    Default Re: Surveying Bearing/Distance LISP Routine

    Thanks guys. I got the routine to work and it works well. It is a little more advance than what I need. Rather than opening up a separate edit box, does anyone have a LISP routine that will simply label the line with its Bearing & Distance (in single line text format for each entity while matching the size and layer that is current).

  10. #10
    Certifiable AUGI Addict
    Join Date
    2001-03
    Location
    Tallahassee, FL
    Posts
    3,376
    Login to Give a bone
    0

    Default Re: Surveying Bearing/Distance LISP Routine

    Quote Originally Posted by BoarsNest01 View Post
    Thanks guys. I got the routine to work and it works well. It is a little more advance than what I need. Rather than opening up a separate edit box, does anyone have a LISP routine that will simply label the line with its Bearing & Distance (in single line text format for each entity while matching the size and layer that is current).
    The edit box is mostly so I can clearly see the labeled information.
    You can always remove the two lines that call the attribute editor:
    Code:
           (command "._DDATTE" (entlast))
    Tom Beauford P.S.M. - Civil 2020 on Windows 10 Enterprise
    Design Analysis - Leon County Public Works/Engineering Wrap [CODE] tags around selected text
    2280 Miccosukee Rd. Tallahassee, FL 32308-5310
    Ph# (850)606-1516 Home Page

Page 1 of 6 12345 ... LastLast

Similar Threads

  1. Distance Lisp Routine Help
    By BCrouse in forum AutoLISP
    Replies: 53
    Last Post: 2018-03-21, 02:40 PM
  2. Annotate bearing/distance
    By justinxxvii in forum AutoCAD General
    Replies: 8
    Last Post: 2009-06-02, 09:35 AM
  3. Northing & Easting Miss Surveying Lisp routine
    By amazingb2003 in forum AutoLISP
    Replies: 6
    Last Post: 2008-04-23, 06:45 PM
  4. bearing and distance lables
    By eleonard in forum AutoCAD Civil 3D - General
    Replies: 1
    Last Post: 2007-04-24, 08:41 PM
  5. Annotation - Bearing and Distance - Civil
    By Mlabell in forum Dynamic Blocks - Sharing
    Replies: 9
    Last Post: 2007-04-05, 11:45 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •