Topic: confused on the name of ATTDYNBLOCKREF,please help

[snddd2000]

now i have a block list as below
((-1 . <图元名: 7efc0300>) (0 . "INSERT") (5 . "B9B8") (102 . "{ACAD_XDICTIONARY") (360 . <图元名: 7ed09318>) (102 . "}") (330 . <图元名: 7efa9cf8>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "细实线") (100 . "AcDbBlockReference") (66 . 1) (2 . "*U661") (10 3672.0 784.0 0.0) (41 . 8.0) (42 . 8.0) (43 . 8.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))

the  (2 . "*U661") should be the name ,but when i defined this block the name is "qq",not "*U661"
why? confuesd long time
thanks
please help me!
my english is not good
 

[Tharwat]

I guess this would give the real name of it .

Code: [Select]

(setq ss (ssget "_+.:S" '((0 . "INSERT"))))
(setq BlkName (vla-get-effectivename  (vlax-ename->vla-object (ssname ss 0))))

Regards,

Tharwat

[snddd2000]

the real name ? means what?

thanks

[Tharwat]

Your Block name before going to become a Dynamic Block

Try the codes and you will find it out .

this block the name is "qq",not "*U661"

[snddd2000]

when i copy this block to another dwg.
the *U661 would be changed ,and the "qq"  not changed.
press ctrl+1 the name "qq" in the list of properties

[snddd2000]

yes the block is Dynamic Block
Dynamic Block name must like this?

thanks

[Jeff H]

You do understand with dynamic blocks anytime you change a dynamic property it will create a anonymous block?

[snddd2000]

thanks a lot
it works

one question
(setq ss (ssget "_+.:S" '((0 . "INSERT"))))
why add "_+.:" before :S? 

[Tharwat]

thanks a lot
it works

one question
(setq ss (ssget "_+.:S" '((0 . "INSERT"))))
why add "_+.:" before :S? 

Because the ssget function is multi-selection set and to add "_+.:S" would force it for single selection set only ( one selection set).

Good luck.

[snddd2000]

You do understand with dynamic blocks anytime you change a dynamic property it will create a anonymous block?

but why select two diffrent block ,the name is same?

命令: (vlax-get-property (vlax-ename->vla-object  (car (entsel))) 'name)

选择对象: "*U661"

命令: (vlax-get-property (vlax-ename->vla-object  (car (entsel))) 'name)

选择对象: "*U661"

[snddd2000]

thanks a lot
it works

one question
(setq ss (ssget "_+.:S" '((0 . "INSERT"))))
why add "_+." before :S? 

Because the ssget function is multi-selection set and to add "_+.:S" would force it for single selection set only ( one selection set).

Good luck.

how can i filter this name block by ssget?
thanks

[pBe]

right after this: (as tharwats suggestion)

Code: [Select]

(setq ss (ssget "_+.:S" '((0 . "INSERT"))))
Before you processed the block, run this as a test for block name

Code: [Select]

(setq BlkName (vla-get-effectivename  (vlax-ename->vla-object (ssname ss 0))))
it will you give you name of the block for your test/cond
(if (eq BlkName "qq") (.... <----- test
But if you're going to select on screen as the example suggest, you dont really need to do this as you already know you're selecting the correct block, but if you have the need for the blockname then you should run the test.

Now if you select the entire database using "_X" (meaning no prompt for selection on the screen)

Code: [Select]

(setq ss (ssget "_X" '((0 . "INSERT")(2 . "*U*,qq"))))Then you need to run it through the test before you worked on the block

That is just how Dynamic Block behaves (Autodesk needs to do something about this I guess), converting it to an anonymous name

Hope this helps

[snddd2000]

right after this: (as tharwats suggestion)

Code: [Select]

(setq ss (ssget "_+.:S" '((0 . "INSERT"))))
Before you processed the block, run this as a test for block name

Code: [Select]

(setq BlkName (vla-get-effectivename  (vlax-ename->vla-object (ssname ss 0))))
it will you give you name of the block for your test/cond
(if (eq BlkName "qq") (.... <----- test
But if you're going to select on screen as the example suggest, you dont really need to do this as you already know you're selecting the correct block, but if you have the need for the blockname then you should run the test.

Now if you select the entire database using "_X" (meaning no prompt for selection on the screen)

Code: [Select]

(setq ss (ssget "_X" '((0 . "INSERT")(2 . "*U*,qq"))))Then you need to run it through the test before you worked on the block

That is just how Dynamic Block behaves (Autodesk needs to do something about this I guess), converting it to an anonymous name

Hope this helps

thanks a lot but this (setq ss (ssget "_X" '((0 . "INSERT")(2 . "*U*,qq")))) does not work
canot select any blocks,
now i use below way to do

Code: [Select]

(setq ss1 (ssget '((0 . "INSERT"))) )
(setq count  (sslength ss1)
      n       0
      n1      0
      zl1     0
      zzl1    0
)
(repeat count
 (if (/= "qq" (vla-get-effectivename (vlax-ename->vla-object (ssname ss1 n))))
  (progn
    (ssdel (ssname ss1 n) ss1)
    (setq n (1- n))
  )
 )
 (setq n (1+ n))
)
i do not know any better way.

thanks all

[pBe]

oops my bad

Code: [Select]

(setq ss (ssget "_X" '((0 . "INSERT")(2 . "*U*,qq"))))
Should be

Code: [Select]

(setq ss (ssget "_X" '((0 . "INSERT")(2 . "`*U*,qq"))))or

Code: [Select]

(setq ss (ssget  '((0 . "INSERT")(2 . "`*U*,qq"))))
But anyway, i see you got it figured out

[snddd2000]

oops my bad

Code: [Select]

(setq ss (ssget "_X" '((0 . "INSERT")(2 . "*U*,qq"))))
Should be

Code: [Select]

(setq ss (ssget "_X" '((0 . "INSERT")(2 . "`*U*,qq"))))
But anyway, i see you got it figured out

Great, it is right , i like your way
thank you very much