Topic: Dynamic Intelligent Leader !

[Andrea]

Hi Gary.. you'r right.  sorry for that..

Please replace the DLCUSTOMARROW  function by this one..

Code: [Select]

(defun c:DLCUSTOMARROW (/ DLCA)
(if (setq DLCA (getenv "DiLEADERcustomArrow"))
  (setq DLCA (strcat DLCA "\\"))
 )
(setq sh (vla-getInterfaceObject (vlax-get-acad-object) "Shell.Application"))
(setq folder (vlax-invoke sh 'browseforfolder 0 (strcat "Custom Arrow Folder...\nCurrent = " DLCA) 0 ))
(vlax-release-object sh)
(if folder
  (progn
    (setq Dir (vlax-get-property (vlax-get-property folder 'Self) 'Path))
    (setenv "DiLEADERcustomArrow" Dir)
  )
)
)

This will be added on the revised code with other fixes..


thanks.

[GDF]

Ok, I got it working. I had a broken custom dimstyle routine that needed fixen that was causing the trouble.

Works great now. And I had to modify my path:
(setenv "DiLEADERcustomArrow" "V:\\ARCH\\Custom_Architettura\\Dims\\")

Thanks Andrea for a great routine. Love it!!!

[GDF]

Hi Gary.. you'r right.  sorry for that..

Please replace the DLCUSTOMARROW  function by this one..

Code: [Select]

(defun c:DLCUSTOMARROW (/ DLCA)
(if (setq DLCA (getenv "DiLEADERcustomArrow"))
  (setq DLCA (strcat DLCA "\\"))
 )
(setq sh (vla-getInterfaceObject (vlax-get-acad-object) "Shell.Application"))
(setq folder (vlax-invoke sh 'browseforfolder 0 (strcat "Custom Arrow Folder...\nCurrent = " DLCA) 0 ))
(vlax-release-object sh)
(if folder
  (progn
    (setq Dir (vlax-get-property (vlax-get-property folder 'Self) 'Path))
    (setenv "DiLEADERcustomArrow" Dir)
  )
)
)

This will be added on the revised code with other fixes..


thanks.

Much better!!! Thanks.

[Andrea]

i'm glad you like it ! 

[GDF]

Andrea

Your routine will not accept another textstyle other than "standard". I am pretty sure it is something that I am doing wrong...

Enclosed is how I set up my dim and text styles from the "FILE" dialog box:

These are old clunky routines from version 12, that someday I will have to clean up.

[Andrea]

Nice Catch....I didn't test with other dimstyles..

But it is now fixed !  thanks !

Any other bug before I post 2.2.3 ?

[mdbdesign]

Dialog box...

[Hugo]

Hallo Andrea

Ich glaube die Pfeilgröße wird falsch berechnet.

[zanze02]

My compliments for your work Andrea!
I found a problem when I use a new UCS.
If not set as current WCS, at the prompt "Pick Text location..." text is positioned away from the cursor.

I have not found where to enter the function
(trans pt from 0 1)

[CAB]

Welcome to the Swamp Hugo and zanze02.

[Andrea]

Hi Hugo and zanze02...

First,...thank you taking time to register to theswamp and welcome.!

Second..Thank you for your bug report,...I didn't check the ucs....
...Take a look on this post i'll be back with the fix shortly.



Hugo:
Danke werde ich überprüfen und kehren mit einer neuen Version zurück

[Andrea]

Dialog box...

Yes,..this can be done.. thanks.   :kewl:

But,..maybe I can ask..?

Dialog DiLEADER contest ?

something like....:

[Hugo]

Hallo CAB & Andrea

Ich kann aber leider kein Englisch, und muss alles auf Deutsch schreiben, hoffe das ist ok.

 

[Andrea]

Hugo ist kein Problem, gibt es Seiten .. Online-Übersetzung mach dir keine Sorgen, dass vor allem für

 

For who want to know...
He say that he is sorry,...cause he don't know any word in english..
I have answered that it is not a problem because there is many online website traductor..

I use : http://translate.google.fr/#

[Chris]

Hallo CAB & Andrea

Ich kann aber leider kein Englisch, und muss alles auf Deutsch schreiben, hoffe das ist ok.

 

Diese Seite scheint gut für mich arbeiten : http://www.google.com/ig?hl=en&referrer=ign_n
This site seems to work fine for me: http://www.google.com/ig?hl=en&referrer=ign_n