Leader Lisp With Tag

[BCrouse]

Can someone help me out with a lisp the uses a leader and it has a tag attached at the end ot the tail. The tags are attribute. Can the lisp please apply the leader to this layer (A-Anno-Note)?

Thank you,

Brad

[fixo]

Can someone help me out with a lisp the uses a leader and it has a tag attached at the end ot the tail. The tags are attribute. Can the lisp please apply the leader to this layer (A-Anno-Note)?

Thank you,

Brad

Hi Brad

There is idea only, but maybe this will help to you
Make blocks with name "SQUARE-NUMBER" "TRIANGLE-NUMBER" and "ROUND-NUMBER"
and than run this routine (of course it's very quick and dirty)
No warranty

Thank you

f.


(defun set-lay (cdoc l_name lt_name col / alrs alts nl tbl tblt tmp tmp1)
(setq alrs (vla-get-layers cdoc)
alts (vla-get-linetypes cdoc)
tbl (vlax-for l_item alrs
(setq tmp (cons (vla-get-name l_item) tmp)))
tblt (vlax-for lt_item alts
(setq tmp1 (cons (vla-get-name lt_item) tmp1)))
)
(if (not (member lt_name tblt))
(vla-load alts (strcase lt_name) "acadiso.lin")) ;or acad.lin
(if (member l_name tbl)
(progn
(if (/= (vla-get-name (vla-get-activelayer cdoc)) l_name)
(setq nl (vla-put-activelayer cdoc (vla-add alrs l_name)))
(setq nl (vla-get-activelayer cdoc))
)
(vla-put-color (vla-item alrs l_name) col)
(vla-put-linetype nl lt_name)
)
(progn
(setq nl (vla-add alrs l_name))
(vla-put-activelayer cdoc nl)
(vla-put-color (vla-item alrs l_name) col)
(vla-put-linetype nl lt_name)
)
)
(if (/= (vlax-variant-value
(vla-getvariable cdoc "CECOLOR"))
"BYLAYER")
(vla-setvariable cdoc "CECOLOR" "BYLAYER")
)
(if (= (vla-get-layeron nl) :vlax-false)
(vla-put-layeron nl :vlax-true)
)
(if (= (vla-get-freeze nl) :vlax-true)
(vla-put-freeze nl :vlax-false)
)
(if (= (vla-get-lock nl) :vlax-true)
(vla-put-lock nl :vlax-false)
)
(princ)
)

(prompt "\n\t\t>>> Type TLD to run routine")

(defun C:tld (/ acsp adoc anno_blk atts clr lead mtpt nmb
oclr oexp otm pt ptlist tmparray tmpvar)
(vl-load-com)

(setq oclr (getvar "CLAYER"))
(setq otm (getvar "ORTHOMODE"))
(setq oexp (getvar "EXPERT"))
(setvar "ORTHOMODE" 0)
(setvar "EXPERT" 0)
(setq adoc (vla-get-activedocument
(vlax-get-acad-object)))
(setq acsp (vla-get-modelspace adoc))
(vla-endundomark adoc)
(vla-startundomark adoc)
(setq nmb (getstring "\nEnter block number : \n"))
(initget "S T R")
(setq ans (getkword "\nChoose block type [S]quare [T]riangle [R]ound <S>"))
(if (not ans) (setq ans "S"))
(setq blk_name
(cond ((eq ans "S") "SQUARE-NUMBER")
((eq ans "T") "TRIANGLE-NUMBER")
((eq ans "R") "ROUND-NUMBER")
))
(setq pt (getpoint "Specify leader start point: "))
(setq ptlist (cons pt ptlist))
(while (setq pt (getpoint "Specify next point: " pt))
(setq ptlist (cons pt ptlist)
)
)
(setq mtpt (car ptlist))
(setq ptlist (reverse ptlist))
(setq ptlist (apply 'append ptlist))
(setq tmparray
(vlax-make-safearray
vlax-vbdouble
(cons 0 (- (length ptlist) 1))
)
)

(vlax-safearray-fill tmparray ptlist)
(setq tmpvar (vlax-make-variant tmparray))
(setq anno_blk (vla-insertblock
acsp
(vlax-3d-point mtpt)
blk_name
1
1
1
0))
(set-lay adoc "A-ANNO-NOTE" "Continuous" "32")
(vla-put-layer anno_blk "A-ANNO-NOTE")
(setq atts (vlax-invoke anno_blk 'Getattributes))
(foreach at atts
(if (eq (vlax-get at 'Tagstring) "NUMBER")
(progn
(vlax-put at 'Textstring nmb)
(vla-update at))))
(setq lead (vla-addleader acsp tmpvar anno_blk aclinewitharrow)) ;change by suit
(vla-put-arrowheadsize lead 0.0625) ;change by suit
(vla-update lead)
(vlax-release-object lead)
(vla-regen adoc acactiveviewport)

(setvar "CLAYER" oclr)
(setvar "ORTHOMODE" otm)
(setvar "EXPERT" oexp)
(vla-endundomark adoc)
(princ)
)

[BCrouse]

Fixo,

Thank you very much for the beginning part of the idea. When I run the lisp. It comes up with an Automation Error and Filer error. It will not let me choose an end point.



Brad

[fixo]

Fixo,

Thank you very much for the beginning part of the idea. When I run the lisp. It comes up with an Automation Error and Filer error. It will not let me choose an end point.



Brad

Hi Brad

I slightly edited routine possibly now it will work for you
See attachment
(Tested in A2005 only)

Thank you

f.

[BCrouse]

Hi Brad

I slightly edited routine possibly now it will work for you
See attachment
(Tested in A2005 only)

Thank you

f.
Fixo,

I am getting and automatiion error: Undefined linetype! Can you please look at

I think it is at Line 11 and Line 117 and 118.

I would fix it but I don't know how.


Thank you,

Brad

[fixo]

Fixo,

I am getting and automatiion error: Undefined linetype! Can you please look at

I think it is at Line 11 and Line 117 and 118.

I would fix it but I don't know how.


Thank you,

Brad

Hi Brad

I don't know why this not work for you
I loaded this routine into all your drawings many times and always
it work fine for me
Ok I edited this routine a lot and added error traping
but this idea don't like to me
I think here need another way with calculation of intersection points
between leader and block and than redraw there are on normal location
(differently for all block types: square, round and triangle)
I'm not a math and I don't know how it will be done

Thank you

f.

[CAB2k]

I took your second lisp & added an error check if the block was not in the drawing.
This adds the ".DWG" to the block name & then checks to see if it exist.

Also the block names are changed as they did not match those Brad posted.

Routine works for me although it leader & scale may need some work.

[fixo]

I took your second lisp & added an error check if the block was not in the drawing.
This adds the ".DWG" to the block name & then checks to see if it exist.

Also the block names are changed as they did not match those Brad posted.

Routine works for me although it leader & scale may need some work.


Thanks for support CAB

I will test your program tomorrow, today I very busy on another work
and I would wait flashback from our Brad

f.

[BCrouse]

Hi Brad

I don't know why this not work for you
I loaded this routine into all your drawings many times and always
it work fine for me
Ok I edited this routine a lot and added error traping
but this idea don't like to me
I think here need another way with calculation of intersection points
between leader and block and than redraw there are on normal location
(differently for all block types: square, round and triangle)
I'm not a math and I don't know how it will be done

Thank you

f.
Thank you very much. I got it to work. Just one more thing to ask you. Can you change the bylayer color to cyan?

Than you,

Brad

[fixo]

Thank you very much. I got it to work. Just one more thing to ask you. Can you change the bylayer color to cyan?

Than you,

Brad

Hi Brad

Try edited version

Thank you

f.