MultiLeader (Block) Match

[hkncdrc]

Hi masters

 

Help Please;

 

The project has created a package of excessive loss of time,

multileader, define the block.

available in the DWG file.

Can the software is easy with the lisp?

I'm waiting for the help please.

 

Multileader-Match.dwg

[hkncdrc]

Hi Dear Friends

 

encode the following,

It does not work well.

can you help me please?

 

(defun c:ZX ()
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
 (vla-startundomark doc)
(setq zz (car (entsel "Kopyalanacak Mleader :>")))
(setq ed (entget zz))
(foreach item ed
(cond ((and (= (car item) 330)
(= (cdr (assoc 0 (entget (cdr item)))) "ATTDEF")
)
(setq rec T)
)
((= (car item) 302)
(if rec
(setq attnamelst
(cons (cdr item) attnamelst)
rec nil
)))))
(setq attnamelst (reverse attnamelst))
(setq tip (car attnamelst))
(setq kot (cadr attnamelst))
(setq kod (caddr attnamelst))


(while (setq ent (entsel "Hedef Mleader :>"))
(setq ed (entget (car ent)))
(foreach item ed
(if (= (car item) 330)
(setq attnamelst (cons (vlax-ename->vla-object (cdr item))
attnamelst))))


(setq kodtag (vla-get-tagstring (nth 0 attnamelst)))

(vla-SetBlockAttributeValue
(vlax-ename->vla-object (car ent))
(vla-get-objectid (nth 0 attnamelst))
kod
)


(setq kottag (vla-get-tagstring (nth 1 attnamelst)))

(vla-SetBlockAttributeValue
(vlax-ename->vla-object (car ent))
(vla-get-objectid (nth 1 attnamelst))
kot
)


(setq tiptag (vla-get-tagstring (nth 2 attnamelst)))
(vla-SetBlockAttributeValue
(vlax-ename->vla-object (car ent))
(vla-get-objectid (nth 2 attnamelst))
tip
)
);while



(setq attnamelst nil)


(setq tiptag nil)
(setq kodtag nil)
(setq kottag nil)
(vla-endundomark doc)


(princ))

Edited August 3, 2016 by hkncdrc

[hkncdrc]

my friends

problem solved.

Thank you...

I am sharing for friends who want to use.

 

(defun c:ZX (/ doc zz ed rec attnamelst tip kod kot ent kodtag kottag tiptag)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(setq zz (car (entsel "Kopyalanacak Mleader :>")))
(setq ed (entget zz))
(foreach item ed
(cond ((and (= (car item) 330)
(= (cdr (assoc 0 (entget (cdr item)))) "ATTDEF")
)
(setq rec T)
)
((= (car item) 302)
(if rec
(setq attnamelst
(cons (cdr item) attnamelst)
rec nil
)))))
(setq attnamelst (reverse attnamelst))
(setq tip (car attnamelst))
(setq kot (cadr attnamelst))
(setq kod (caddr attnamelst))


(while (setq ent (entsel "Hedef Mleader :>"))
(setq ed (entget (car ent)))
(foreach item ed
(if (= (car item) 330)
(setq attnamelst (cons (vlax-ename->vla-object (cdr item))
attnamelst))))


(setq kodtag (vla-get-tagstring (nth 0 attnamelst)))

(vla-SetBlockAttributeValue
(vlax-ename->vla-object (car ent))
(vla-get-objectid (nth 0 attnamelst))
kod
)


(setq kottag (vla-get-tagstring (nth 1 attnamelst)))

(vla-SetBlockAttributeValue
(vlax-ename->vla-object (car ent))
(vla-get-objectid (nth 1 attnamelst))
kot
)


(setq tiptag (vla-get-tagstring (nth 2 attnamelst)))
(vla-SetBlockAttributeValue
(vlax-ename->vla-object (car ent))
(vla-get-objectid (nth 2 attnamelst))
tip
)
);while



(setq attnamelst nil)


(setq tiptag nil)
(setq kodtag nil)
(setq kottag nil)


(princ))

[halam]

Hi masters

 

Help Please;

The project has created a package of excessive loss of time,

multileader, define the block...Can the software is easy with the lisp?

I'm waiting for the help please.

 

[ATTACH]57992[/ATTACH]

 

Glad it works for you. Could you describe what sollutions solved what problem a bit more..?

My Chechislogakian isn't that close to Dutches ;-)

[hkncdrc]

Glad it works for you. Could you describe what sollutions solved what problem a bit more..?

My Chechislogakian isn't that close to Dutches ;-)

 

Hello,

Problem copying the writings of some of the wrong places.

 

 

Thank you,

My English is bad, yes))