Get Attributes

zw_admin — 2011-08-23 03:12:10

Hi rjbuljubasic here is my solution for a similar problem :this routine check the drawings for 3d polylines (you can convert to other poly however) and write one text file for each poly with start and end point. ** *** GENERAL DECLARATIONS ***** Public filenote Const DEFAULT_PATH="" '********** write your path here *** END GENERAL DECLARATIONS ***** Public Sub WRITE_POINTS() Dim mia_poly As Zwcad3DPolyline For Each entobj In ThisDocument.ModelSpace If entobj.EntityType = 2 Then '3DPOLY Set mia_poly = entobj Call sub_txt_punti(mia_poly) End If Next Set mia_poly = Nothing End Sub Private Sub sub_txt_punti(pol As Zwcad3DPolyline) Dim a As Byte, lay As String, filenotename As String Dim plineObj As ZwcadPolyline Static inc As Integer lay = pol.Layer inc = inc + 1 filenotename = DEFAULT_PATH & "'" & lay & "_" & inc & ".txt" Call crea_report(filenotename) For a = 0 To UBound(pol.Coordinates) Step 3 note = Round(pol.Coordinates(a)) & "; " & Round(pol.Coordinates(a + 1)) & "; " & Round(pol.Coordinates(a + 2)) filenote.writeline (note) Next a note = "" filenote.writeline (note) note = "#" & pol.Layer filenote.writeline (note) filenote.Close Set filenote = Nothing Dim mostra mostra = Shell("C:'Windows'system32'notepad.exe " & filenotename, vbNormalFocus) Set mostra = Nothing End Sub Private Sub crea_report(nome_file As String) Set fs = CreateObject("Scripting.FileSystemObject") Set filenote = fs.CreateTextFile(nome_file, True) End Sub

zw_admin — 2011-05-04 06:57:14

One night without sleep but I found the trick. I've already done one database and then I've added one field for "insertpoint(0)" proprety that hold the "X" coordinate of the block. When I launch the macro it reads all the block inside the drawing for to build the BOM (and now it records also the block's position). So I can select the blocks in the right order building one query with "... order by insertpoint(0) " and retrieve the blocks with " move first ,while not eof ,move next .. wend" routine. It works.

zw_admin — 2011-04-29 04:12:35

Daniel please I need your help again.

Could you explain me which is the way that ZW use for to go through the several blocks inside the drawing?

I try to explain better what I need: I use one routine that collect the attributes from various blocks inside my drawing and put some values in the BOM .Now I need to take the blocks in the same order that they are drawn in the dwg, from left to right.

Is it possible to set some vales in the block that learn to ZW to process the block in some order?

Is necessary to add one more attribute "PROCESS_ORDER" at the blocks and set the value as I need?

Thanks a lot.

Sergio

zw_admin — 2011-04-07 02:14:44

Perfect Daniel ,I'm sorry but I missed the help reference,you've done a really good job. I changed the way to go trough the attributes from //code For s = 0 To attributes.count-1 ....... next s //end code in //code For s = 0 To Ubound(attributes) ..... next s //end code Thanks again. sergio

zw_admin — 2011-04-06 07:38:38

Hi all. I use this code for to extract attributes from blocks with ZW2010 but it doesn't work with 2011 , I get 426 error. Please help me. Thanks. Best regards. Sergio //code Public Sub NowGo() Dim blockobj As ZwcadBlockReference Dim ArrayAtribs As ZwcadAttributeReferences Dim disegno As ZwcadDocument nometemplate = "C:'Pubblica'Sergio'abc.dwt" 'TEMPLATE WITH ONE BLOCK WITH MANY ATTRIBUTES Set disegno = ZwCAD.Documents.Add(nometemplate) For Each blockobj In disegno.ModelSpace If blockobj.HasAttributes = True Then Set ArrayAtribs = blockobj.GetAttributes 'GET "ERROR 424 OBJECT REQUIRED" BUT THIS CODE WORKS WELL WITH ZW 2010 End If Next End Sub //end code