Look up and visibility

[BlackBox]

FWIW - You might consider storing the ActiveDocument to a variable prior to the If statement, as this can be used for many things. Depending on the task, it may be simpler to use a Setq near the top of the Defun, or even supply the ActiveDocument Call to a Lambda expression as an argument.

 

One example of how I use this in addition to the vla-* code, is with the vla-StartUndoMark, and vla-EndUndoMark functions with my *error* handler. Just a thought.

[CadFrank]

Yes. You can retrive the parameters and values directly as such in your case, where there is only one parameter and the allowed values are explicitly listed on the initget keywords and then theres only one attribute. so this line of code will work

 

Well thanks, for the info and the help..

 

Not that I want to sound mean in this but I got a flash this morning after posting my last question.. hehe.. but I had code with something similar..stupid me shoulda though of it before hehe.

 

well ill still study the code you gave me so i can understand it.

 

Thanks again.

 

Cheers & Beers

[CadFrank]

FWIW - You might consider storing the ActiveDocument to a variable prior to the If statement, as this can be used for many things. Depending on the task, it may be simpler to use a Setq near the top of the Defun, or even supply the ActiveDocument Call to a Lambda expression as an argument.

 

One example of how I use this in addition to the vla-* code, is with the vla-StartUndoMark, and vla-EndUndoMark functions with my *error* handler. Just a thought.

 

Are you trying to make my head pop . way to much information here haha!!

[CadFrank]

Hello, So I'm still on the same code here but with new Dynamic block hehe.. In this DB I have 2 Look up and i can't seem to find the way to get 1 of them tried a few things. I went with pBe information to try and find it.

 

(defun c:BB (/ pt5 B-B-blk B-B-dbp)
 
 (setq pt5 '((400000 800000 0) . "LC BASES"))
 (setq D-Base "6.0")
 (setq H-Base "1.65")
 

  (if (setq B-B-blk (vla-insertblock
               (vla-get-modelspace
                 (vla-get-activedocument
                   (vlax-get-acad-object)))
                     (vlax-3d-point (car pt5)) (cdr pt5) 1 1 1 0)

     )
   (progn (setq  B-B-dbp (car (vlax-invoke B-B-blk 'GetDynamicBlockProperties)))
          (vla-put-value  B-B-dbp (strcat D-Base " m"))
         
   )
 )
 (princ)

); fin

So anywho ill try to find it but if some1 can give me a hint.. Please do not try to make my head pop .

 

And ill link the Dblock with this post.

 

Cheers & Beers !

New Base.dwg

[pBe]

snipp... snipp

 

(defun c:BB (/ pt5 B-B-blk )
 (setq pt5 '((400000 800000 0) . "LC BASES"))
 (setq D-Base "6.0")
 (setq H-Base "1.65")
  (if (setq B-B-blk (vla-insertblock
               (vla-get-modelspace
                 (vla-get-activedocument
                   (vlax-get-acad-object)))
                     (vlax-3d-point (car pt5)) (cdr pt5) 1 1 1 0)

     )
   [color=blue](mapcar '(lambda (x y)[/color]
[color=blue]                  (vla-put-value x y))[/color]
[color=blue]           (vl-remove-if-not[/color]
[color=blue]                 '(lambda (s)[/color]
[color=blue]                        (member (vla-get-PropertyName s)[/color]
[color=blue]                                '("DIMENSION BASE" "EPAISSEUR BASE")))[/color]
[color=blue]                 (vlax-invoke B-B-blk 'GetDynamicBlockProperties))[/color]
[color=blue]           (list [color=black](strcat H-Base " m") (strcat D-Base " m")[/color]))
[/color])
 (princ)
)

 

At any rate.. i would've coded it differently

Somehow you need to show us the big picture, that way we can make a "generic" routine to work with any DBlock configuration. As of now the snippet will work within a very specific condtion. (well not really )

 

HTH

 

EDIT: I just saw your new thread. I've have a look see tomrw.

[CadFrank]

EDIT: I just saw your new thread. I've have a look see tomrw.

 

Well thx pBe well as you can see I found a way to make it work but i get a weird error.

 

I also posted my full code in the other tread.

 

Ill try yours to see if it does change something.

 

Cheers & Beers.

[pBe]

Well thx pBe well as you can see I found a way to make it work but i get a weird error.

 

Ill try yours to see if it does change something.

 

Cheers & Beers.

 

Tell me how it goes CadFrank.

[CadFrank]

Hi pBe,

 

Well it works now but I still need to know why it does the error.

 

http://www.cadtutor.net/forum/showthread.php?70115-error-Exception-occurred-0xC0000005-%28Access-Violation%29

 

in this post I explain what happened.

 

I just move 1 thing in the main Code and Voila no more error.

 

Kinda weird !