Need a lisp....... Lee Mac this ones for you

[lpseifert]

Should be able get a pint of good ale.

[Lee Mac]

Should be able get a pint of good ale.

 

Just about...

[CAB]

Here is my twist on the grvecs.

LineSpacer2 CAB.lsp

[Lee Mac]

Nice idea Alan, doing the transformation matrix "manually". :wink:

 

Should be interesting to see if this approach works any better for Mike.

 

btw, just out of interest - did my original code work OK for you?

 

Lee

[MikeP]

neither codes work in 2009

 

But in 2006 it works fine.

 

but in CABs, the circle is in the correct spot. its just not snapping to anythign

 

WTF? Do I not have a setting on or something?

[CAB]

Not sure what the snap problem is. My test show that when the snap circle is visable it does snap. Note that there are some offsets that you may want to set to zero. See edg and off

  ;; <<------------  Adjustments  ------------>> ;;
 ;;                                             ;;
         edg  0.0 ;1.125   ;; Vertical Offset        ;;
         len  2.25    ;; Line Length            ;;
         off  0.0 ;0.875   ;; Horizontal Offset      ;;
 ;;                                             ;;
 ;; <<--------------------------------------->> ;;

 

I haven't read the entire thread so I don't know what they are for?

[MikeP]

Not sure what the snap problem is. My test show that when the snap circle is visable it does snap. Note that there are some offsets that you may want to set to zero. See edg and off

  ;; <<------------  Adjustments  ------------>> ;;
 ;;                                             ;;
         edg  0.0 ;1.125   ;; Vertical Offset        ;;
         len  2.25    ;; Line Length            ;;
         off  0.0 ;0.875   ;; Horizontal Offset      ;;
 ;;                                             ;;
 ;; <<--------------------------------------->> ;;

I haven't read the entire thread so I don't know what they are for?

 

 

Those offsets are the 2 most important ones. Sry.

 

I dont care if its not as pretty, Can it be made so it used CAD's snaps and not artificial ones?

[CAB]

Try this one attached. I added some msg to display at the command line telling what points were picked & snaped to. A point will be added to the DWG at the Snap point. Change your PDMODE & PDSIZE as needed to see it.

Also reset your gaps.

LineSpacer2 CAB.lsp

[MikeP]

Try this one attached. I added some msg to display at the command line telling what points were picked & snaped to. A point will be added to the DWG at the Snap point. Change your PDMODE & PDSIZE as needed to see it.

Also reset your gaps.

 

 

sorry man, still no good

 

(100.854 136.417 0.0) = actual pick point.

(100.854 136.417 0.0) = Snap point.

 

they should be different, no?

[CAB]

There should be!

 

From the command line, what does this return?

(osLst (getvar "OSMODE"))

[CAB]

Another to try.

LineSpacer2 CAB.lsp

[MikeP]

There should be!

 

From the command line, what does this return?

(osLst (getvar "OSMODE"))

 

 

I get ""

[MikeP]

Another to try.

 

 

no change

[CAB]

Did you press F3 to turn OSmode ON BEFORE you ran the lisp?

What is you usual osnap setting? OSMODE at the command line.

[Lee Mac]

Thanks for your patience with this one Alan, I can see this isn't a 2 minute fix.

 

I would love to know what is causing it...

[Lee Mac]

Not sure what the snap problem is. My test show that when the snap circle is visable it does snap. Note that there are some offsets that you may want to set to zero. See edg and off

  ;; <<------------  Adjustments  ------------>> ;;
 ;;                                             ;;
         edg  0.0 ;1.125   ;; Vertical Offset        ;;
         len  2.25    ;; Line Length            ;;
         off  0.0 ;0.875   ;; Horizontal Offset      ;;
 ;;                                             ;;
 ;; <<--------------------------------------->> ;;

I haven't read the entire thread so I don't know what they are for?

 

Alan,

 

The adjustments at the top of the program determine the dimensions of the displayed lines, as portrayed by the original drawing Mike posted.

[CAB]

No problem, got me curious too.

 

I returned the offsets to your settings in the latest version. Never looked at the DWG.

 

Latest, added + - key adjustments to the number of lines.

I'm going to adapt this to one of my in-house routines.

LineSpacer3 CAB.lsp

[Lee Mac]

Latest, added + - key adjustments to the number of lines.

I'm going to adapt this to one of my in-house routines.

 

Thanks CAB, I feel honoured

 

I read the comments on the routine... (osMark osPt) in the clicked point... why: copy/paste/haste.

[Lee Mac]

Alan,

 

I have updated the routine to include the option to type the number of lines that you want manually.

 

Also, I have allowed for the "=" key when altering number of lines.

LSpace.lsp

[CAB]

Thanks, This is going to be a handy helper routine.

I'll need to make one with fixed intervals later. Haven't figured out how to manage the remainder space yet. Option to leave all on one end. Or split the remainder. Or user offset to first item then remainder on other end.

Keeps me intertained.