Search the Community

Hi, I have a problem with the creation of a crosshatch in a dinamic block. In particular, I have to make a crosshatch between two circles that change radius with a non linear function, but I'm not able to do it. Can someone help me?

Hello, I am trying to get two lines to rotate about two opposing circles whilst being able to stretch and also being joined together at opposite ends to the circles , so they can be controlled with one grip at the apex. I have been able to have the one set to work as i wish, but I can not get it to work for both at he same time. I can move the two lines as I wish that are not in a block, but can not get the lines to rotate about a circle, only at the start point. Any ideas or solutions would be greatly appreciated I feel like I have tried everything. Thanks. a.dwg

Hi, I created an dynamic block few weeks ago and forgot to make it annotative. I try the ddchprop command, switch annotative to yes but it automatically immediately switch back to no. Could anyone help me with this please?

Hello, Simple question. Is it possible to get dynamic properties from AcadBlock not AcadBlockRefference? As I didn't find any solution, I implemented this function: Private Function ExistsDynPr(bb As AcadBlock, PropName As String) As Boolean Dim oProps As Variant Dim oDblkProp As AcadDynamicBlockReferenceProperty ', ap As AcadDynamicBlockReferenceProperty Dim I As Integer, pp(0 To 2) As Double, abr As AcadBlockReference Set abr = ThisDrawing.ModelSpace.InsertBlock(pp, bb.Name, 1, 1, 1, 0) 'bandom iterpti [laikinai] ExistsDynPr = False If abr.IsDynamicBlock Then oProps = abr.GetDynamicBlockProperties For I = 0 To UBound(oProps) Set oDblkProp = oProps(I) If oDblkProp.PropertyName = PropName Then ExistsDynPr = True abr.Delete Exit Function End If Next End If abr.Delete End Function Is there any side effects or risks of inserting block? If no I'll stick to this function, though I think it's not very nice solution.