See the top rated post in this thread. Click here

Results 1 to 4 of 4

Thread: Dimension LISP

  1. #1
    Woo! Hoo! my 1st post
    Join Date
    2020-07
    Posts
    1
    Login to Give a bone
    0

    Default Dimension LISP

    Can anyone assist in helping me software adjust our LISP

    We currently prepare subdivision plans which require a number of scribed bearings and distances on a plan to be offset neatly from a line at a set offset. Currently we manual use the distance lisp below and then manually move the distance to tidy up the plan, then we use the bearing lisp and complete the same task to create our plan.

    We are hoping to merge or recreate our LISP so that when we click from one end point on a line to another endpoint the LISP will create a distance with the bearing below at a set height, style and offset from the line based on the current scale of the drawing. Can anyone assist as we have little knowledge of LISP writing.

    Bearing LISP
    Code:
    (defun c:b1-2015()
    (setq pt (getpoint "choose lot centre:"))
    (command "-boundary" pt "")
    (command "area" "e" "l")
    (command "-layer" "m" "area" "c" "1" "" "")
    (setq a (getvar "area"))
    (setq b (* 4 (getvar "dimscale")))
    (command "text" "s" "arial" "j" "m" pt b 90 (strcat (rtos a 2 0) "m%%178"))
    
    )
    
    
    Distance (defun c:d2-2002() (command "osnap" "end")
    (setq pt1 (getpoint "1st end:"))
    (setvar "lastpoint" pt1)
    (setq pt2 (getpoint "2nd end:"))
    (command "osnap" "")
    (setq dist (rtos (distance pt1 pt2) 2 1))
    (setq ang (- 90.0 (/ (* (angle pt1 pt2) 180.0) pi)))
    (setq pt1 (getpoint "mid point of text:"))
    (setq b (* 3 (getvar "dimscale")))
    (command "-layer" "m" "DISTANCE" "c" "3" "" "")
    (command "text" "m" pt1 b ang dist)
    (princ)
    )
    Last edited by Ed Jobe; 2020-08-03 at 02:14 PM. Reason: added <CODE> tags

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

    Default Re: Dimension LISP

    Moderator - Please combine users posts in to: https://forums.augi.com/forumdisplay.php?91-AutoLISP
    and explain [Code Tags].
    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

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

    Default Re: Dimension LISP

    Have you attempted a search in the AutoLISP forum for labeling bearings or distances? Tom has provided a link to the forum above.
    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

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

    Default Re: Dimension LISP

    I've used Civil 3D for labels like that for quite some time but this link might get you started https://forums.augi.com/showthread.p...e-LISP-Routine
    Besides the code in the thread at the bottom clicking on the links under Similar Threads you'll find many more examples.
    Of course all those could be found doing a search in https://forums.augi.com/forumdisplay.php?91-AutoLISP
    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

Similar Threads

  1. Dimension and Dimension text alignment when using DVIEW
    By fmertz.118882 in forum AutoCAD General
    Replies: 3
    Last Post: 2006-08-11, 05:15 AM
  2. linear dimension style: no leader + position dimension
    By eddy.lermytte in forum Revit Architecture - General
    Replies: 3
    Last Post: 2006-02-01, 02:04 PM
  3. Linear dimension to radial dimension centerpoint
    By patricks in forum Revit Architecture - Wish List
    Replies: 2
    Last Post: 2005-06-22, 09:12 PM
  4. Running dimension or baseline dimension?
    By aliya14 in forum Revit Architecture - General
    Replies: 11
    Last Post: 2005-06-09, 08:55 AM
  5. Dimension to center mark of radial dimension
    By Chad Smith in forum Revit Architecture - General
    Replies: 3
    Last Post: 2004-06-01, 10:54 PM

Posting Permissions

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