Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for
Show only
|
Search instead for
Did you mean:
This page has been translated for your convenience with an automatic translation service. This is not an official translation and may contain errors and inaccurate translations. Autodesk does not warrant, either expressly or implied, the accuracy, reliability or completeness of the information translated by the machine translation service and will not be liable for damages or losses caused by the trust placed in the translation service.Translate
Not quite what is being sought, but maybe it helps.
Sub LockRotation()
Dim oDoc As Document Set oDoc = ThisApplication.ActiveDocument
Dim oInsert As InsertConstraint
For Each oInsert In oDoc.SelectSet
Call oInsert.ConvertToInsertConstraint2( _ oInsert.EntityOne, _ oInsert.EntityTwo, _ oInsert.AxesOpposed, _ oInsert.distance.Value, _ True) Next End Sub
I have recently been through numerous older assemblies, created prior to the "lock rotation" being added to the Insert constraint. Having an option to select either a single or multiple Insert constraints and right click "lock rotation" would be a massive time saver. Rather than having to edit each Insert constraint and ticking the box. Especially where assemblies are using a lot of fasteners, where "lock rotation" is really helpful to quickly lock a component in one constraint.
I'm with @Mtimmis-Personal all the way. This feature just makes sense to have along with being able to sort multiple constraints at the same time too. For the time being I have been using this Ilogic code to speed up my workflow: oDoc = ThisDoc.Document oNamer = "Lock/Unlock Insert" Dim UNDO As Transaction UNDO = ThisApplication.TransactionManager.StartTransaction(oDoc, oNamer) 'Your iLogic code goes in here: '------------------------------------------------------------------------------------------------------------------------------------- qLock = InputRadioBox("Select one:", "Lock Rotation", "Un-Lock Rotation", True, "ilogic") oLock = ThisApplication.ActiveDocument Dim oInsert As InsertConstraint For Each oInsert In oLock.SelectSet Call oInsert.ConvertToInsertConstraint2( _ oInsert.EntityOne, _ oInsert.EntityTwo, _ oInsert.AxesOpposed, _ oInsert.Distance.Value, _ qLock) Next '------------------------------------------------------------------------------------------------------------------------------------- UNDO.End