Results 1 to 4 of 4

Thread: Help with a lisp routine to add a 12" line to this routine

Threaded View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Login to Give a bone

    Default Help with a lisp routine to add a 12" line to this routine

    ;get points to locate centerline of header
             (prompt "\nSelect two points for Rim line: ")
             (command "_.line" pause pause "")
             (setq tmpPnt1 (cdr (assoc 10 (entget (entlast)))))
             (setq tmpPnt2 (cdr (assoc 11 (entget (entlast)))))
             (COMMAND "_.erase" "L" "")
             (setvar "osmode" 0)
             (command "_.line"
                      (polar tmpPnt1 (angle tmpPnt1 tmpPnt2) (* mtScaleFactor 1.25))
                      (polar tmpPnt2 (+ (angle tmpPnt1 tmpPnt2) PI) (* mtScaleFactor 1.25))
    This part of the lisp draws a line then depending on the dimscale it retracts the 2 ends closer to the center. I was wondering if i could get some help making the lines extend 12" i've tried messing with the scale factors ( IE 1.25 - 1.00 -.25) I seem to be missing something to go in a positive direction versus negative.

    Thanks for the help in advance
    Last edited by Opie; 2012-11-14 at 03:40 PM. Reason: [code] tags added -Opie

Similar Threads

  1. Replies: 14
    Last Post: 2015-08-21, 03:59 AM
  2. Add layer command line to a lisp routine
    By BrianTFC in forum AutoLISP
    Replies: 1
    Last Post: 2012-02-02, 07:47 AM
  3. Lisp routine to list line length and line ID
    By hlecates in forum AutoLISP
    Replies: 6
    Last Post: 2007-03-21, 04:03 PM
  4. Replies: 40
    Last Post: 2006-10-16, 05:02 PM
  5. Replies: 3
    Last Post: 2005-10-11, 06:59 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