Topic: Replace Block w/ DB, Modify DB's Properties

[stusic]

I got so much help with my last few issues, I thought I'd throw out another problem I think this community could help me with.

Our office uses attributed blocks that contain part information to tag equipment. The problem is that there isn't one block, but 8 different blocks - which one is used depends on the position of the tag relative to the equipment (i.e., top, top-left, top-right, left, right, bottom-left, bottom-right, bottom).

I've created a dynamic block that can replace these blocks, but when I replace an old tag, the block/leader isn't always oriented correctly relative to the orientation of the old tag.

So I'd like to have a routine that replaces the old blocks, but looks at which block it is and modifies its flipstate and leader endpoint to match that of the old block.

I hope that makes a little sense. I've included a drawing that should help explain...

Any direction on this would be great. I've found very little on modifying dynamic block properties.

Thanks All

[pBe]

I'm thinking this is a "repair" job. If it is then:

Code - Auto/Visual Lisp: [Select]

1. (defun c:Demo ( / _AttFunc ss i fnd nm rb val cval)
2. (vl-load-com)
3. (defun _AttFunc  (en lst / vals v)
4. (mapcar (function (lambda (at)
5.         (setq vals (list (vla-get-tagstring at)(vla-get-textstring at)))
6.                 (if (and lst (setq v (assoc (car vals) lst)))
7.                         (vla-put-textstring at (cadr v))) vals))
8.                       (vlax-invoke (if (eq (type en) 'VLA-OBJECT)
9.                                   en (vlax-ename->vla-object en)) 'Getattributes)
10.         )
11.   )
12. (if     (and (tblsearch "BLOCK" "DB_Baloon")
13.         (setq ss (ssget "_X" (list '(0 . "INSERT")'(66 . 1)
14.                                 '(2 . "Balloon_*")(cons 410 (getvar 'Ctab))))))
15.         (repeat (setq i (sslength ss))
16.          (setq a (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
17.         (cond ((and
18.            (setq fnd (assoc
19.                      (setq nm (vla-get-effectivename a))
20.         '(("Balloon_TR"  (1.0493 0.8618))  ("Balloon_TL"  (-1.0493 0.8618))
21.         ("Balloon_R"   (1.4062 0.0)) ("Balloon_L"         (-1.4062 0.0))
22.         ("Balloon_T"   (0.0  1.5937)) ("Balloon_B"   (0.0  -1.5937))
23.         ("Balloon_BL"  (-1.0493 -0.8618)) ("Balloon_BR"  (1.0493 -0.8618))))
24.                    )
25.            (setq rb (vlax-invoke (vlax-get  (vla-get-ActiveLayout
26.                      (vla-get-activedocument (vlax-get-acad-object)))
27.                      'Block) 'InsertBlock  (vlax-get a 'InsertionPoint)
28.                                   "DB_Baloon"
29.                                    1 1 1 0))
30.            (setq val (car (vl-remove-if-not
31.                              '(lambda (x)
32.                                 (eq (vla-get-PropertyName
33.                                       x ) "Visibility"))
34.                              (vlax-invoke rb
35.                                'getdynamicblockproperties
36.                              ))
37.                            )
38.                 )
39.            (not (vlax-put val 'Value nm))
40.            (setq Cval (_AttFunc a nil))
41.            (_AttFunc RB Cval)
42.            (not (vla-delete a))
43.            (vla-move  rb (vlax-3d-point  '(0.0 0.0))
44.                         (vlax-3d-point (cadr fnd)))
45.                         ))
46.                 )
47.         )
48.         )(princ)
49.   )

I wasnt able to use your Dynamic Block, When i converted the file use DWGTrueView  all DB properties disappears. The code above contains visibility but no flipstate.
What i did is use the current block name as values for visibility parameter

Code: [Select]

(("Balloon_TR"  (1.0493 0.8618))  ("Balloon_TL"  (-1.0493 0.8618))
("Balloon_R"   (1.4062 0.0)) ("Balloon_L"   (-1.4062 0.0))
("Balloon_T"   (0.0  1.5937)) ("Balloon_B"   (0.0  -1.5937))
("Balloon_BL"  (-1.0493 -0.8618)) ("Balloon_BR"  (1.0493 -0.8618))))
Since i used the center of the block as insertion to maintain a  single instance of the attdef per visibility , the point of the arrow needs to be on the same spot as the one before.
the point list represents the distance between the original insertion point from the new ins point of the the inserted DB per block name

I atached the file where i used the posted demo routine .

HTH

[CODE re-posted]

[stusic]

Thank you for your help. When I get some time, I'll see what those numbers next to the block name mean and try to apply that to some code.

Thanks Again,

-stu

[stusic]

Code: [Select]

(("Balloon_TR"  (1.0493 0.8618)))Since i used the center of the block as insertion to maintain a  single instance of the attdef per visibility , the point of the arrow needs to be on the same spot as the one before.
the point list represents the distance between the original insertion point from the new ins point of the the inserted DB per block name

So this simply offsets the insertion point? I don't think I understand. Where does any modification of dynamic properties come into play?

However, I've been moved away on to other tasks and must get back to this at a later date. I appreciate your help though and will see if I can figure out how to use the point list you included.

Thanks a bunch, pBe

[pBe]

Thank you for your help. When I get some time, I'll see what those numbers next to the block name mean and try to apply that to some code.

Thanks Again,

-stu

It wont do you any good stu, I removed the code for the reason that all i heard are  "crickets" 2 weeks after i replied to your Q.

Dont worry about it.

One more thing. for the love of gravy, i cant even remenber what the code looks like now and what it does

[pBe]

CODE reposted.

Try the code with the attached DWG file on post #2 [DBDemo.dwg]

(("Balloon_TR"  (1.0493 0.8618)) <--- the point list on this case will be the basis for the move as i used a different insertion point on the block i used for ths demo.

HTH

[stusic]

With a new baby in the house, trying to move to another city, working 70+ hours a week, and my boss moving me from project to project, I apologize for not making it back within your time limit.

I have changed my default notification for this forum to instant email notification, so maybe I'll be able to provide a faster response to those with arbitrary time limits on their help.

Thank you for reposting your code, maybe it can be beneficial to someone looking for something similar.

[pBe]

With a new baby in the house, trying to move to another city, working 70+ hours a week, and my boss moving me from project to project, I apologize for not making it back within your time limit.

I have changed my default notification for this forum to instant email notification, so maybe I'll be able to provide a faster response to those with arbitrary time limits on their help.

Thank you for reposting your code, maybe it can be beneficial to someone looking for something similar.

First fo all , congratulations on your  fatherhood. 

Dont worry about the code. But i guess its not gonna be generic, its has a very specific conditions. But no matter. we're cool

Cheers, and congratulation again Phillip