Author Topic: Dimbal.lsp routine needs mods (Read 6496 times)

PDJ · « **on:** July 16, 2004, 08:00:33 PM »

OK guys and gals... I've been working on a program called dimbal.lsp and I have the authors permission to modify it as much as I like.

It's in the LilyPond under PDJ and basically I have the main .lsp there with the accompanying .dcl as well as all the .sld files that go with it.. Then you'll see my version of it called newtag.lsp and also a hook.sld file. The problem I'm having is that when I run the hook part, I get an extra line in the leader part. One line extends into the hexagon, the other line extends into the hook so, either way, if I delete one, I still have to trim the other..

Basically, just put all the files into a directory and load dimbal and run it, you'll see how it's supposed to work.. Then run newtag and you'll see the hook.sld in the routine now.. That's where the error happens.

Any help is greatly appreciated.. I use this routine for labeling ground wires on antennas and I've got about 40 antennas to do in the next few weeks..

Keith™ · « **Reply #1 on:** July 16, 2004, 08:13:12 PM »

Is that the same one you and I worked on a while back? If so, I have tweaked mine a bit more to be able to specify the textstyle and layer to place the objects on. Adding a hook leader should be no problem....

Of course I can't get to it until Monday when I go back into the office...

daron · « **Reply #2 on:** July 19, 2004, 08:17:47 AM »

PDJ, it seems that this thread isn't about showing your stuff, but rather asking for help, so... *poof*

PDJ · « **Reply #3 on:** July 19, 2004, 01:32:54 PM »

Keith, I don't know if I've ever mentioned this one or not.. I know a while back over at the "other" place, I was looking for something like that but, I don't think I had anyone working on it with me.. Let me know what you find out.. I'd be just as happy with a simple hook leader with a hexagon number tag but, this one is filling the bill for now..

Daron, sorry to disappoint you *poof*

Keith™ · « **Reply #4 on:** July 19, 2004, 03:23:29 PM »

Ok... lemme look at what I have here and see if I can add a hook to it...

daron · « **Reply #5 on:** July 20, 2004, 08:10:33 AM »

I'm not disappointed. I'm a moderator. Just doing my job.

Keith™ · « **Reply #6 on:** July 20, 2004, 12:07:52 PM »

Ok Paul, changes are completed ... it can be downloaded from here
... oh and it was the one that I added the polygon and text style to some time ago...

I set the hook to be dynamically sized and adjusted the leader so it would not extend into the hook.

I also went ahead and included the changes I have made since your revision allowing you to force it to a specific layer.

PDJ · « **Reply #7 on:** July 20, 2004, 12:53:32 PM »

That ROCKS Keith.. Many thanks!! Come to Anchorage and donuts are on ME!! Umm, just don't bring T-Bear with ya, I can't afford to keep him in donuts..

Thanks again!!

Keith™ · « **Reply #8 on:** July 20, 2004, 01:13:57 PM »

Oh... and I forgot to mention, I made it a little easier to add another 3 arrows ... there are now 12 slides instead of 8 and all you need to do is uncomment in the lisp where it is needed, and add the code to draw your arrow in the noted location.

t-bear · « **Reply #9 on:** July 20, 2004, 01:13:58 PM »

Hey! I don't eat THAT much ... after the first dozen I start slowing down. Good routine, you two.....The Swamp thanks you both.

CAB · « **Reply #10 on:** July 20, 2004, 01:17:15 PM »

Very Nice Routine.

I did find that this worked better for me.

Code: [Select]

(setq dsc (getvar "dimscale"))
(setq cad_dim_asz (*(getvar "dimasz")dsc))	;Arrow size (in drawing units)
(setq cad_dim_tsz (*(getvar "dimtxt")dsc))	;Text size (in drawing units)

And I was trying to allow ENTER to be pressed with this.

Code: [Select]

    (initget "Settings")
    (setq
      ppt (getpoint "\nStarting point for balloon leader <Settings>: "
	  ) ;_ end of getpoint
    ) ;_ end of setq
    (if (null ppt) (setq ppt "Settings"))

I guess with this you could still get into trouble if the user enters numbers
as it returns the point location of the cursor.

Just some comments, I hope you don't mind.
I really like the routine, well done.

CAB

Keith™ · « **Reply #11 on:** July 21, 2004, 10:54:14 PM »

Hey Paul.... I just found some email that you and I had sent back and forth back in January 2002 ... betcha didn't know I saved all my email now did ya....

Do you still work for EHS ??

PDJ · « **Reply #12 on:** October 01, 2004, 12:39:19 PM »

Hey Keith, just read your last reply to this one.. haha.. CAB brought it back to my attention with a cross link or somethin..

I haven't been at EHS for a long time. In fact, I've worked a few different places since then.. Finally settling down with a telecomm company..

I know a guy here that works for the city, a friend ran into him when she worked there.. He knows me from when I was stationed here in 89-93.. He actually has a NOTE I wrote him in about 92 when I was the acting building custodian out on the Air Force base. It was about a problem with the smoking area. Now THAT'S scary!! What's even scarier is that he remembered he had the note!!

t-bear · « **Reply #13 on:** October 01, 2004, 01:21:07 PM »

And we thought KEITH was "spooky"!!! That guy sounds like Pat...."do you remember that (place incident/ person here) back in 1967?

?" Hell, I don't remember what I had for breakfast! (Le's see, donuts??....)

Keith™ · « **Reply #14 on:** October 01, 2004, 01:37:35 PM »

old timers

t-bear · « **Reply #15 on:** October 01, 2004, 01:43:42 PM »

Yup. Drives Pat nuts when she asks my why I didn't do something and I tell her "I don't remember forgetting that....".

PDJ · « **Reply #16 on:** October 01, 2004, 02:31:42 PM »

I'm actually suffering from half himers.. I forget about half of what people tell me..

News:

Author Topic: Dimbal.lsp routine needs mods (Read 6496 times)

PDJ

daron

PDJ

daron

PDJ

t-bear

PDJ

t-bear

t-bear

PDJ