| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Dynamische Blöcke strecken?? (3500 mal gelesen)
|
c.schojer Mitglied
Beiträge: 299 Registriert: 23.05.2007 Autocad 2018
|
erstellt am: 18. Nov. 2009 09:31 <-- editieren / zitieren --> Unities abgeben:
Hallo liebe Kollegen hab wieder mal eine kniffelige Frage Kann man dynamische Blöcke irgendwie strecken?? VBA ?? Oder ist dies nur eine Einstellungssache in Autocad?? Mir geht es darum wenn ich Fenster mit dynamischen Blöcken erzeuge und diese dann z.B. mit Strecken dann höher mache sollen nicht nur die Linien und Polylinien gestreckt werden sondern auch die Blöcke mit den dynamischen Griffen! Mfg Chris Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Ehrenmitglied V.I.P. h.c. 良い精神
Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 18. Nov. 2009 09:50 <-- editieren / zitieren --> Unities abgeben: Nur für c.schojer
|
Ex-Mitglied
|
erstellt am: 18. Nov. 2009 10:28 <-- editieren / zitieren -->
Hi, Zeichnung bitte, in der ein socher Block enthalten ist. Dann können wir nachsehen ob es einen linearen Parameter gibt, der per Aktion ein dynamisches Strecken auslöst. Gibt es einen solchen Parameter, dann ist auch diese Aktion per VBA auszulösen. Ist der Befehl 'strecken' gemeint, dann ist leider nicht, denn der Befehl hat maximal eine schiebende Wirkung, aber auf Blockreferenzen keine streckende Wirkung. - alfred - ------------------ www.hollaus.at |
c.schojer Mitglied
Beiträge: 299 Registriert: 23.05.2007 Autocad 2018
|
erstellt am: 18. Nov. 2009 10:42 <-- editieren / zitieren --> Unities abgeben:
|
Ex-Mitglied
|
erstellt am: 18. Nov. 2009 11:03 <-- editieren / zitieren -->
Hi, Code ist hoffentlich selbsterklärend. Es wird der Parameter 'Abstand' auf 2 gesetzt (für den Block, der bei der Abfrage gezeigt wird. Code: Dim tBlRef As AcadBlockReference Dim tBlRef_DynProps As Variant Dim tBlRef_DynProp As IAcadDynamicBlockReferenceProperty Dim tPnt As Variant Dim i As Integer On Error Resume Next Call ThisDrawing.Utility.GetEntity(tBlRef, tPnt) If (tBlRef Is Nothing) Then 'kein Block selektiert Else tBlRef_DynProps = tBlRef.GetDynamicBlockProperties For i = 0 To ubound(tBlRef_DynProps) Set tBlRef_DynProp = tBlRef_DynProps(i) If UCase(tBlRef_DynProp.PropertyName) = "ABSTAND" Then tBlRef_DynProp.Value = 2# End If Next End If On Error GoTo 0
- alfred - ------------------ www.hollaus.at [Diese Nachricht wurde von a.n. am 18. Nov. 2009 editiert.] |
c.schojer Mitglied
Beiträge: 299 Registriert: 23.05.2007 Autocad 2018
|
erstellt am: 18. Nov. 2009 12:02 <-- editieren / zitieren --> Unities abgeben:
|