Topic: Dynamic Intelligent Leader !

[mdbdesign]

mdbdesign....I didn't test it...but did you tried to use *^c^c....  for repeat action ?

Yes, not working, sorry

[Aerdvark]

Well Andrea, it is still getting better!

Don't mind / bother the alert box message, it's solved now.
A question: is it possible for me to modify the routine (I mean it doensn't have to be in your for everyone has its own use for it) so it works "perpendicular" and with certain distances?

See the image I added: the above is how I would like to have it.
Always the same distance from the selected object (in this case 300mm) and always under 90 degrees corner, yous is 66 degrees.

I was looking for the "getpoint" function in the routine but since you use "vla-..." I am losing track.

Thank you for helping me out.

[Shade]

Thanks Andrea, for what it looks like a lot of work.
This little programme is gonna be a killer when it is complete...

I am having problems running it thou.
I receive the following error message.

Select Object...
Pick Text location...
bad argument value: AcDbCurve 2020830000
Command:

I am using AutoCAD 2010, and I have tried several different version of the programme. (ie 1.6 to 1.9.1) all with the same result.

[Andrea]

Thanks Shade..

What kind of object do you select ?

can you make (entget(car(ensel))) and select your object and post the result ?
or post the dwg of the selected object ?

thanks.

[Andrea]

Aerdvark...

Yes this can't be impossible..
but I think that modification require lot of work vs the utilisation..

we have to keep in mind that few years ago....we where on drafting table..
 :kewl:

[Lee Mac]

Andrea,

Just a thought 

You could add something similar to this into your GrRead loop to check for Orthomode and adjust the mouse point in relation to the point returned by GetClosestPointTo:

Code: [Select]

(if
           (not
             (zerop
               (logand 1 (getvar "ORTHOMODE"))))
           (if
             (<= (abs (- (car dat) (car iPt)))
                 (abs (- (cadr dat) (cadr iPt))))
             (setq dat
               (list (car ipt) (cadr dat) (caddr dat)))
             (setq dat
               (list (car dat) (cadr ipt) (caddr dat)))))

Where dat is your mouse point and iPt is the point returned by GetClosestPointto, in addition you could allow for the F8 key (chr 15) to switch ORTHO on and OFF 

Just an idea 

Lee

[Andrea]

Hi Lee...

thanks..

After testing your code...it seem to work...
but I have strange result because the intersection point is calculate from the cursor location point who is also the Text insertion point....so I need to modify the routine to allow that..

but your code is good....thanks to provide it. I'll try to add it on future release.

[Lee Mac]

Not a problem - I use that and also some code to imitate OSnaps during GrRead loops.

You can see it in use here for more reference.

Hope this helps you improve an already superb program

Good luck,

Lee

[Andrea]

Not a problem - I use that and also some code to imitate OSnaps during GrRead loops.

You can see it in use here for more reference.

Hope this helps you improve an already superb program

Good luck,

Lee

LOL !!  I think we need to be coordonate... 

Look Here !!

[Lee Mac]

haha -- Great minds think alike it seems   

[Shade]

Thanks Shade..

What kind of object do you select ?

can you make (entget(car(ensel))) and select your object and post the result ?
or post the dwg of the selected object ?

thanks.

I was trying to select various object types (ie. Circle, line, etc) at the time.
Since then I have rebooted my computer and tried again.
Now the lisp seems to work great.

Unfortunately the lisp does not work with Xrefs. Since our notation drawings are separate from our background or line work drawings, which are xref'd into the notation drawing,  i cannot integrate the lisp into my everyday work.  

keep up the great work Andrea...

[Andrea]

Finaly....



DILEADER v.2.0
(Dynamic Intelligent Leader)

Updates:
   - Reactor for Grips remake on release 1.9 was changed to prevent
     AutoCAD crash when trying to resize a viewport.This need to be rethink.
   - New Feature Multi Object Selection.
     Prompt user "Do you want Multiple Object Selectino ?(Y)es/(N)o"
   - DLEDIT entirely remake to allow Leader and Text Dynamic moving for
     the New Feature Multi Object Selection.
   - Work With XREF and Blocks


enjoy !

[Lee Mac]

Superb   

I think you have outdone yourself again Andrea 

[Andrea]

Superb   

I think you have outdone yourself again Andrea 

Thanks LeeMac..

Want to see something cool ?

DiLeader will be "WIPEOUTED" !!     

[GDF]

Superb   

I think you have outdone yourself again Andrea 

Thanks LeeMac..

Want to see something cool ?

DiLeader will be "WIPEOUTED" !!     

KOOL