Topic: dynamic blocks

[Thomas 3D]

Hello Forum,

I have the problem, that I can't distinguish the dynamic blocks in my drawing, because all blocks have the same blockname.

I have create a dyn. block with a length1. This block I have copied several times in one drawing. I have stretched or trimed the blocks. That means I have different blocks with different lengths.

I look for a tool, which create a automatically ID number as a attribut in the dyn. block. I don't know if that is possible, when I start the copy command, that each new dyn. block gets a new attribute (ID Number).
Because I want to read the blocks in a table.

I would like to know, if anybody ever written such a tool?

I would appreciate about short message.

Best regards
Thomas

[pBe]

use this as reference:

Code: [Select]

(defun c:test (/ object)
   (vl-load-com)
(setq object (car (entsel "\nSelect Block:")))

(if (equal
   (vla-get-IsDynamicBlock (vlax-ename->vla-object object)) :vlax-true)
        (princ (strcat "\n<< Block " (vla-get-effectivename  (vlax-ename->vla-object object)) " is a Dynamic block >>"))
        (princ "\nNot a Dynamic block")  
          )(princ)
  )
what you can do is when you loop through the entries of the selection set (ssget ...) create a test to check for effective name/or not (that is if your block names are *U71*) and if its a dynamic
block. check for dynamic property (the length).....

hope this helps.
BTW, i cant open your file.. i'm using 2009  

EDIT: I think i misunderstood the question... oh well   

[kruuger]

this is not reactor but...
when you put all MULLION in dwg type ID (load lisp first).
you need to use my block (with new attribute ID)
kruuger

[Thomas 3D]

Hi pBe,

thanks for your help. I'm not sure if you have understand me. I have saved the DWG-file for you in the AutoCad 2007 format.
Sorry, but I understand nothing about programming. I have copied your code in a txt-file and then I have rename the Suffix to lsp. I hope that was right.
I don't know what it is "ssget". Would it be possible for you to give me a more detailed description?
Thanks!!!


Thomas

[Thomas 3D]

Hi Kruuger,

this is not reactor but...
when you put all MULLION in dwg type ID (load lisp first).
you need to use my block (with new attribute ID)
kruuger

I have tried to use your 2 files, but if I type "ID"  then Autocad start the AutoCad command ID-Point. Is that right?

Thomas

[kruuger]

Hi Kruuger,

this is not reactor but...
when you put all MULLION in dwg type ID (load lisp first).
you need to use my block (with new attribute ID)
kruuger

I have tried to use your 2 files, but if I type "ID"  then Autocad start the AutoCad command ID-Point. Is that right?

Thomas

just drag my AutoID.lsp into dwg (you need to load program before use).
then type ID again.
if you find it usefull add it to suitcase:
http://lee-mac.com/autoloading.html

kruuger

[Thomas 3D]

Hi Kruuger,

It does not work for me. I thing the problem is, that I work with a German AutoCad Version. The German version has a mix of German and English commands. If I type ID, then AutoCad starts the command ID-Point (x;y;z). Would it be possible for you to use another command name for your lisp command?

Thomas

[kruuger]

Hi Kruuger,

It does not work for me. I thing the problem is, that I work with a German AutoCad Version. The German version has a mix of German and English commands. If I type ID, then AutoCad starts the command ID-Point (x;y;z). Would it be possible for you to use another command name for your lisp command?

Thomas

Thomas
I change shortcut to AUTOID.
Please download lsp file again. When you drag file to autocad you should see this at command line: ** Loaded AUTOID.LSP. Type AUTOID to invoke. **
You need to load lisp EVERYTIME you start new dwg.
kruuger

[Thomas 3D]

Hi Kruuger,

I have done everything like you said it. I get the following error message:

Befehl:
** Loaded AUTOID.LSP. Type AUTOID to invoke. **
Befehl:
Befehl: AUTOID
; Fehler: no function definition: JK:ACX_ACTDOC

I have no idea what Autocad wants from me.

Thomas

[kruuger]

Hi Kruuger,

I have done everything like you said it. I get the following error message:

Befehl:
** Loaded AUTOID.LSP. Type AUTOID to invoke. **
Befehl:
Befehl: AUTOID
; Fehler: no function definition: JK:ACX_ACTDOC

I have no idea what Autocad wants from me.

Thomas

aaa, now everything is clear. missing sub-function.
try this attachment. now should work for 100%
kruuger

[Thomas 3D]

Sorry,

but now I get the following message


Befehl:
Befehl: (LOAD "E:/Neuer Ordner/AutoID.lsp")
** Loaded AUTOID.LSP. Type AUTOID to invoke. **

Befehl: AUTOID
; Fehler: no function definition: VLAX-GET-ACAD-OBJECT   

[kruuger]

Sorry,

but now I get the following message


Befehl:
Befehl: (LOAD "E:/Neuer Ordner/AutoID.lsp")
** Loaded AUTOID.LSP. Type AUTOID to invoke. **

Befehl: AUTOID
; Fehler: no function definition: VLAX-GET-ACAD-OBJECT   

add this (vl-load-com) at the top of AutoID.lsp

Code: [Select]

(vl-load-com)
(defun C:AUTOID (/ LS SS SS_MUL ID)
  (setq LS
....kruuger

[MP]

Enter this at the command line:

(vl-load-com)

Then try your proggy again.

[Thomas 3D]

 
It works. THANKS!!!!

What do you think? When I should start the routine? When I have finished the drawing?
When I use the routine in between,then the ID numbers have been assigned twice. Is it possible to change the routine so that the repeated use of the routine, the ID numbers will be deleted and re-assigned?

[kruuger]

It works. THANKS!!!!

uff  

When I use the routine in between,then the ID numbers have been assigned twice. Is it possible to change the routine so that the repeated use of the routine, the ID numbers will be deleted and re-assigned?

i'm not sure i understood you but try this one.
first block should be 1. when you add more they should be 2, 3, 4...but i'm not sure if ssget always return list object from last to first in drawing base. can someone confirm that?

thanks
kruuger