Advance Steel custom commands-share your ideas

[acbsdesign]

Hello,

It will be nice to learn more about custom commands / combination of Autocad and Advance Steel commands improving productivity. 

To colleagues willing to share-Thank you.

Here is a tiny example:

"Hide parts with identical numbers"-used when parts are detailed using drawings styles.

^C^C_AstM5equalpartsMarkSame \;AstM4CommSelectMarkedObjects ;_AstM4SwitchReprMode off

And another one:

"Hide Similar Advance Steel Objects":

^C^C_SelectSimilar \;_AstM4SwitchReprMode off

Regards, 

Ilko Dimitrov

ACBS

[acbsdesign]

Hello,

It will be nice to learn more about custom commands / combination of Autocad and Advance Steel commands improving productivity. 

To colleagues willing to share-Thank you.

Here is a tiny example:

"Hide parts with identical numbers"-used when parts are detailed using drawings styles.

^C^C_AstM5equalpartsMarkSame \;AstM4CommSelectMarkedObjects ;_AstM4SwitchReprMode off

And another one:

"Hide Similar Advance Steel Objects":

^C^C_SelectSimilar \;_AstM4SwitchReprMode off

Regards, 

Ilko Dimitrov

ACBS

[acbsdesign]

@Jonathan3891 

Good idea, 

Thank you for sharing.

[acbsdesign]

@Jonathan3891 

Good idea, 

Thank you for sharing.

[SanjoyNath]

Thank you very much Great @Jonathan3891 

Can we paste the code in the code of C:\Program Files\Autodesk\AutoCAD 2021\Support\acad<version>.lsp

such that the commands get auto loaded every times?

[SanjoyNath]

Thank you very much Great @Jonathan3891 

Can we paste the code in the code of C:\Program Files\Autodesk\AutoCAD 2021\Support\acad<version>.lsp

such that the commands get auto loaded every times?

[SanjoyNath]

Dear Respected Sir @Jonathan3891 ,

1. Cant we autofilter the particular sections views to execute these type of commands?

2. Cant we use some smart such commands to auto fill some attributes in the model objects?(model dwg file whose path dont contain \detail\ as substring

3. Cant we use such lisp commands which will warn if any revision triangle is not present on the views?(whose revision is changed)

[SanjoyNath]

Dear Respected Sir @Jonathan3891 ,

1. Cant we autofilter the particular sections views to execute these type of commands?

2. Cant we use some smart such commands to auto fill some attributes in the model objects?(model dwg file whose path dont contain \detail\ as substring

3. Cant we use such lisp commands which will warn if any revision triangle is not present on the views?(whose revision is changed)

[acbsdesign]

Hi everyone,

Not a custom command idea, but it would be a time saver:

Is there any way to include a script in labels for End plate at columns if there is a drop in TOS at roofs at drains so if end plate is at camera location label to be empty or no label, but if there is a drop of TOS label to be created with a text (-X") (+X").

OR-is there a way to label the elevation of the end of the column system line-similar to Alignemnt token, but to work only for one end of the system line.

@Drawtech  may be?

How is the Tekla business going...Spoke to a customer the other day, he said, he had enough of everyday Tekla BS, on the contrary, he is pleased with Advance Steel.

Any idea would be appreciated.

[acbsdesign]

Hi everyone,

Not a custom command idea, but it would be a time saver:

Is there any way to include a script in labels for End plate at columns if there is a drop in TOS at roofs at drains so if end plate is at camera location label to be empty or no label, but if there is a drop of TOS label to be created with a text (-X") (+X").

OR-is there a way to label the elevation of the end of the column system line-similar to Alignemnt token, but to work only for one end of the system line.

@Drawtech  may be?

How is the Tekla business going...Spoke to a customer the other day, he said, he had enough of everyday Tekla BS, on the contrary, he is pleased with Advance Steel.

Any idea would be appreciated.

[SanjoyNath]

Dear Experts,

We can insert lots of notes and attributes with Numbering scripts which can get access to ASTObjects through looping on the EqualParts objects and those are automatically called in drawings

[SanjoyNath]

Dear Experts,

We can insert lots of notes and attributes with Numbering scripts which can get access to ASTObjects through looping on the EqualParts objects and those are automatically called in drawings

[acbsdesign]

Hi,

Not a custom command, but this is something that may help dealing with the cope of pipe around post when the pipe is a polybeam.

Any ideas on how to tweak this and make the workflow shorter would be appreciated. I think Graitec has a similar command in their Powerpack, or I may be mistaken, ...anyway, any suggestions are welcome. 

Screencast-cope polybeam around a straight beam 

[acbsdesign]

Hi,

Not a custom command, but this is something that may help dealing with the cope of pipe around post when the pipe is a polybeam.

Any ideas on how to tweak this and make the workflow shorter would be appreciated. I think Graitec has a similar command in their Powerpack, or I may be mistaken, ...anyway, any suggestions are welcome. 

Screencast-cope polybeam around a straight beam 

[Anonymous]

---

@SanjoyNath  schrieb:

Dear Experts,

We can insert lots of notes and attributes with Numbering scripts which can get access to ASTObjects through looping on the EqualParts objects and those are automatically called in drawings

---

Dear @SanjoyNath ,

please develop more of your statement.

Many thanks in advance.

[Anonymous]

---

@SanjoyNath  schrieb:

Dear Experts,

We can insert lots of notes and attributes with Numbering scripts which can get access to ASTObjects through looping on the EqualParts objects and those are automatically called in drawings

---

Dear @SanjoyNath ,

please develop more of your statement.

Many thanks in advance.

[acbsdesign]

---

@SanjoyNath wrote:

Dear Experts,

We can insert lots of notes and attributes with Numbering scripts which can get access to ASTObjects through looping on the EqualParts objects and those are automatically called in drawings

---

Hi @SanjoyNath 

1. Can you make a sample with label including only top end system line absolute Z-ordinate of a column.

Example-framing plan - and if system line of a column is within the viewport, label to contain information T.O.S. +/-x'-xx" if system line is not at the same Z-ordinate of the camera-similar to Alignment token for beams, but only for the top end of the column system line.

2. Can you make a label for  beam part of same framing plan if one end of system is at (+/-x")

Question from someone who does not possess extensive prograiming experience as yourself-is it possible to make an end of a system line of one abject to be some kind of an Advance Steel object so we can label it ?

Thank you for taking part in this discussion.

[acbsdesign]

---

@SanjoyNath wrote:

Dear Experts,

We can insert lots of notes and attributes with Numbering scripts which can get access to ASTObjects through looping on the EqualParts objects and those are automatically called in drawings

---

Hi @SanjoyNath 

1. Can you make a sample with label including only top end system line absolute Z-ordinate of a column.

Example-framing plan - and if system line of a column is within the viewport, label to contain information T.O.S. +/-x'-xx" if system line is not at the same Z-ordinate of the camera-similar to Alignment token for beams, but only for the top end of the column system line.

2. Can you make a label for  beam part of same framing plan if one end of system is at (+/-x")

Question from someone who does not possess extensive prograiming experience as yourself-is it possible to make an end of a system line of one abject to be some kind of an Advance Steel object so we can label it ?

Thank you for taking part in this discussion.

[acbsdesign]

---

@acbsdesign wrote:

Hi,

Not a custom command, but this is something that may help dealing with the cope of pipe around post when the pipe is a polybeam.

Any ideas on how to tweak this and make the workflow shorter would be appreciated. I think Graitec has a similar command in their Powerpack, or I may be mistaken, ...anyway, any suggestions are welcome. 

Screencast-cope polybeam around a straight beam 

---

So the idea is when we cut a rolled pipe to a post the Z-Reference to be always set to "0" by default.

This way we won't lose the intelligence of the macro.

[acbsdesign]

---

@acbsdesign wrote:

Hi,

Not a custom command, but this is something that may help dealing with the cope of pipe around post when the pipe is a polybeam.

Any ideas on how to tweak this and make the workflow shorter would be appreciated. I think Graitec has a similar command in their Powerpack, or I may be mistaken, ...anyway, any suggestions are welcome. 

Screencast-cope polybeam around a straight beam 

---

So the idea is when we cut a rolled pipe to a post the Z-Reference to be always set to "0" by default.

This way we won't lose the intelligence of the macro.

[SanjoyNath · Accepted solution]

Dear Experts,

We can try with first draft of the script (To Add inside AstorKernel      database for numbering scripts)

Function getNumber(EqualPartObject)
'these scripts are to write inside the Astorkernel numbering scripts with separate key   with same kinds of row formats



Dim fs, f, currentdwgfilespath

'tested ok MsgBox ("Crossed Dim fs, f ")
 

 
Set fs = CreateObject("Scripting.FileSystemObject")
Set acadcurrentdocument = GetObject("AutoCAD.AcadDocument")
'this gives error   Dim acadcurrentdocument As AutoCAD.AcadDocument
currentdwgfilespath = acadcurrentdocument.FullName
'TESTED OK   MsgBox ("Crossed    Set fs =CreateObject(      Scripting.FileSystemObject     ForAppending=8     ) ")
Set f = fs.OpenTextFile("d:\\SOL_SANJOY_NATH_GEOMETRIFYING_TRIGONOMETRY_TEST.txt", 8)
'TESTED OK   MsgBox ("CrossedSet f = fs.OpenTextFile  , 8")








    Number = -1
    If PositionMarkCreator.MarkProcessType = kSinglePart Then
        'Calculate the single part number
        StartAt = PositionMarkCreator.GetStartAtForSinglePartsWithPrefix(EqualPartObject.Type, EqualPartObject.SinglePartPrefix)
        Delta = PositionMarkCreator.GetDeltaForSingleParts(EqualPartObject.Type)
 Number = PositionMarkCreator.GetAsInternalFormat(StartAt)
        Do Until PositionMarkCreator.IsUniqueInTheModel(kBoth, EqualPartObject.SinglePartPrefix & Number)
                                   StartAt = StartAt + Delta
                            Number = PositionMarkCreator.GetAsInternalFormat(StartAt)
                            
                            f.Write (vbCrLf & "getNumber   SOL INHOUSE SCRIPT for kSinglePart      INTERNAL NUMBER = " & EqualPartObject.SinglePartPrefix & Number)
                            
                
                
                'we are here where we are looping with all objects inside the equal parts
                'this is the logic to read the systems lines data which we can set for other types of cases also
                If (EqualPartObject.IsMainPart = True) Then
                   EqualPartObject.note = "THE_NOTE_WE_WANT_TO_PLACE_WHILE_DOING_NUMBERING" & Str(Number)
                End If ' If (EqualPartObject.IsMainPart = True) Then
     
     
        Loop 'Do Until PositionMarkCreator.IsUniqueInTheModel(kBoth, EqualPartObject.SinglePartPrefix & Number)

        'Update the kernel by the number in order not to start the next time again
        'from original startAt
        PositionMarkCreator.UpdateStartAtForSinglePartsWithPrefix EqualPartObject.Type, EqualPartObject.SinglePartPrefix, StartAt + Delta
        
        
        
    Else
        'Calculate the main part number, it’s a main part
        StartAt = PositionMarkCreator.GetStartAtForMainPartsWithPrefix(EqualPartObject.Type, EqualPartObject.MainPartPrefix)
        Delta = PositionMarkCreator.GetDeltaForMainParts(EqualPartObject.Type)
          
        Number = PositionMarkCreator.GetAsInternalFormat(StartAt)
        Do Until PositionMarkCreator.IsUniqueInTheModel(kBoth, EqualPartObject.MainPartPrefix & Number)
                        StartAt = StartAt + Delta
                        Number = PositionMarkCreator.GetAsInternalFormat(StartAt)
                        
                        f.Write (vbCrLf & "getNumber   SOL INHOUSE SCRIPT for NON SINGLE PARTS (MAIN PARTS ALSO)      INTERNAL NUMBER = " & EqualPartObject.MainPartPrefix & Number)
                        
                 'we are here where we are looping with all objects inside the equal parts
                'this is the logic to read the systems lines data which we can set for other types of cases also
                If (EqualPartObject.IsMainPart = True) Then
                   EqualPartObject.note = "THE_NOTE_WE_WANT_TO_PLACE_WHILE_DOING_NUMBERING" & Str(Number)
                End If ' If (EqualPartObject.IsMainPart = True) Then
            
        Loop
        
        'Update the kernel by the number in order not to start the next time again
        'from original startAt
        PositionMarkCreator.UpdateStartAtForMainPartsWithPrefix EqualPartObject.Type, EqualPartObject.MainPartPrefix, StartAt + Delta
        
        
        
    End If
    
    f.Close
   
   
    getNumber = Number
End Function 'Function getNumber(EqualPartObject)

[SanjoyNath · Accepted solution]

Dear Experts,

We can try with first draft of the script (To Add inside AstorKernel      database for numbering scripts)

Function getNumber(EqualPartObject)
'these scripts are to write inside the Astorkernel numbering scripts with separate key   with same kinds of row formats



Dim fs, f, currentdwgfilespath

'tested ok MsgBox ("Crossed Dim fs, f ")
 

 
Set fs = CreateObject("Scripting.FileSystemObject")
Set acadcurrentdocument = GetObject("AutoCAD.AcadDocument")
'this gives error   Dim acadcurrentdocument As AutoCAD.AcadDocument
currentdwgfilespath = acadcurrentdocument.FullName
'TESTED OK   MsgBox ("Crossed    Set fs =CreateObject(      Scripting.FileSystemObject     ForAppending=8     ) ")
Set f = fs.OpenTextFile("d:\\SOL_SANJOY_NATH_GEOMETRIFYING_TRIGONOMETRY_TEST.txt", 8)
'TESTED OK   MsgBox ("CrossedSet f = fs.OpenTextFile  , 8")








    Number = -1
    If PositionMarkCreator.MarkProcessType = kSinglePart Then
        'Calculate the single part number
        StartAt = PositionMarkCreator.GetStartAtForSinglePartsWithPrefix(EqualPartObject.Type, EqualPartObject.SinglePartPrefix)
        Delta = PositionMarkCreator.GetDeltaForSingleParts(EqualPartObject.Type)
 Number = PositionMarkCreator.GetAsInternalFormat(StartAt)
        Do Until PositionMarkCreator.IsUniqueInTheModel(kBoth, EqualPartObject.SinglePartPrefix & Number)
                                   StartAt = StartAt + Delta
                            Number = PositionMarkCreator.GetAsInternalFormat(StartAt)
                            
                            f.Write (vbCrLf & "getNumber   SOL INHOUSE SCRIPT for kSinglePart      INTERNAL NUMBER = " & EqualPartObject.SinglePartPrefix & Number)
                            
                
                
                'we are here where we are looping with all objects inside the equal parts
                'this is the logic to read the systems lines data which we can set for other types of cases also
                If (EqualPartObject.IsMainPart = True) Then
                   EqualPartObject.note = "THE_NOTE_WE_WANT_TO_PLACE_WHILE_DOING_NUMBERING" & Str(Number)
                End If ' If (EqualPartObject.IsMainPart = True) Then
     
     
        Loop 'Do Until PositionMarkCreator.IsUniqueInTheModel(kBoth, EqualPartObject.SinglePartPrefix & Number)

        'Update the kernel by the number in order not to start the next time again
        'from original startAt
        PositionMarkCreator.UpdateStartAtForSinglePartsWithPrefix EqualPartObject.Type, EqualPartObject.SinglePartPrefix, StartAt + Delta
        
        
        
    Else
        'Calculate the main part number, it’s a main part
        StartAt = PositionMarkCreator.GetStartAtForMainPartsWithPrefix(EqualPartObject.Type, EqualPartObject.MainPartPrefix)
        Delta = PositionMarkCreator.GetDeltaForMainParts(EqualPartObject.Type)
          
        Number = PositionMarkCreator.GetAsInternalFormat(StartAt)
        Do Until PositionMarkCreator.IsUniqueInTheModel(kBoth, EqualPartObject.MainPartPrefix & Number)
                        StartAt = StartAt + Delta
                        Number = PositionMarkCreator.GetAsInternalFormat(StartAt)
                        
                        f.Write (vbCrLf & "getNumber   SOL INHOUSE SCRIPT for NON SINGLE PARTS (MAIN PARTS ALSO)      INTERNAL NUMBER = " & EqualPartObject.MainPartPrefix & Number)
                        
                 'we are here where we are looping with all objects inside the equal parts
                'this is the logic to read the systems lines data which we can set for other types of cases also
                If (EqualPartObject.IsMainPart = True) Then
                   EqualPartObject.note = "THE_NOTE_WE_WANT_TO_PLACE_WHILE_DOING_NUMBERING" & Str(Number)
                End If ' If (EqualPartObject.IsMainPart = True) Then
            
        Loop
        
        'Update the kernel by the number in order not to start the next time again
        'from original startAt
        PositionMarkCreator.UpdateStartAtForMainPartsWithPrefix EqualPartObject.Type, EqualPartObject.MainPartPrefix, StartAt + Delta
        
        
        
    End If
    
    f.Close
   
   
    getNumber = Number
End Function 'Function getNumber(EqualPartObject)

[acbsdesign]

@SanjoyNath 

Thank you. When you have a minute can you make a short screecast with the result.

Question: 

Is it possible numbering method to vary depending on model role? Example: roof frame main an secondary and all railings to be set to SP for standalone to be MP, or “none”, and all other model roles to be SP =MP

Thank you again

[acbsdesign]

@SanjoyNath 

Thank you. When you have a minute can you make a short screecast with the result.

Question: 

Is it possible numbering method to vary depending on model role? Example: roof frame main an secondary and all railings to be set to SP for standalone to be MP, or “none”, and all other model roles to be SP =MP

Thank you again

[acbsdesign]

Hi, 

This was part of another thread. Not a custom command, but it is a time saver.

I will post the screenshots here, it saves time when project settings are changed for some reason, and if we need to enter text that is not part of the std installation, such as Engineer, Architect, Drawn by and Checked by (this is usually not designer as it is in defaults):

Any other ideas are welcome:)

[acbsdesign]

Hi, 

This was part of another thread. Not a custom command, but it is a time saver.

I will post the screenshots here, it saves time when project settings are changed for some reason, and if we need to enter text that is not part of the std installation, such as Engineer, Architect, Drawn by and Checked by (this is usually not designer as it is in defaults):

Any other ideas are welcome:)

[bigcarl5000kg]

Hi @acbsdesign,

beautiful tuning  🤘

[bigcarl5000kg]

Hi @acbsdesign,

beautiful tuning  🤘

[acbsdesign]

I was going to say, @bigcarl5000kg , it is like adding more to a 300 hp German engineered twin turbo, but seeing what the global climate change is doing, it is probably a time to think electric. Not too many options though.

[acbsdesign]

I was going to say, @bigcarl5000kg , it is like adding more to a 300 hp German engineered twin turbo, but seeing what the global climate change is doing, it is probably a time to think electric. Not too many options though.

[markhubrich]

@acbsdesign , Hmm electric seems nice but... there's already problems when everyone has their pool pumps and air conditioners running. If everyone has to install car chargers too I'm pretty sure the problems will increase.

[markhubrich]

@acbsdesign , Hmm electric seems nice but... there's already problems when everyone has their pool pumps and air conditioners running. If everyone has to install car chargers too I'm pretty sure the problems will increase.

[acbsdesign]

@markhubrich 

Yes, unfortunately, it is true.

We will see. 

It is just gas is not an option anymore.

Bought an electric lawnmower after having some "PRO" gas-powered, this one is actually self-propelled, not only labeled as such. I had one electric 12 years ago, it wasn't that good, understandable.

So I tried it yesterday, ...Lol. At some moments the machine led the driver, not the opposite.

It took me a while to get used to it.

But this is the way to go. 

Same with cars, we have to look at them more often, imo.

[acbsdesign]

@markhubrich 

Yes, unfortunately, it is true.

We will see. 

It is just gas is not an option anymore.

Bought an electric lawnmower after having some "PRO" gas-powered, this one is actually self-propelled, not only labeled as such. I had one electric 12 years ago, it wasn't that good, understandable.

So I tried it yesterday, ...Lol. At some moments the machine led the driver, not the opposite.

It took me a while to get used to it.

But this is the way to go. 

Same with cars, we have to look at them more often, imo.

[bigcarl5000kg]

Hi @acbsdesign,

could you actually create these records?

[bigcarl5000kg]

Hi @acbsdesign,

could you actually create these records?

[acbsdesign]

@bigcarl5000kg 

I have modified the existing records. 

[acbsdesign]

@bigcarl5000kg 

I have modified the existing records. 

[bigcarl5000kg]

interesting, in my Management Tools DEU/INT/USA... I haven't these error numbers, maybe is my AS 2020 on another level 😉😃

[bigcarl5000kg]

interesting, in my Management Tools DEU/INT/USA... I haven't these error numbers, maybe is my AS 2020 on another level 😉😃

[Sebastian_Eiche]

The different error messages for the project user attributes were implemented in AS 21 or AS22 not 100% but I think it was 21. So you will not get this prompts in AS 2020

[Sebastian_Eiche]

The different error messages for the project user attributes were implemented in AS 21 or AS22 not 100% but I think it was 21. So you will not get this prompts in AS 2020