Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  AutoCAD VBA
  Dynamische Blöcke strecken??

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
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



Sehen Sie sich das Profil von c.schojer an!   Senden Sie eine Private Message an c.schojer  Schreiben Sie einen Gästebucheintrag für c.schojer

Beiträge: 299
Registriert: 23.05.2007

Autocad 2018

erstellt am: 18. Nov. 2009 09:31    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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.
良い精神



Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 21533
Registriert: 03.06.2002

System: F1
und Google

erstellt am: 18. Nov. 2009 09:50    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für c.schojer 10 Unities + Antwort hilfreich

Auf die Gefahr hin das ich auf veraltetes Wissen zurückgreife  -
mit dem Befehl Strecken wirst du eine Blockreferenz nicht verändern können,
auch von einen dynamischen Block nicht..

Einzig über die dynamischen Funktionen geht das.

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP


Ex-Mitglied

erstellt am: 18. Nov. 2009 10:28    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat

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



Sehen Sie sich das Profil von c.schojer an!   Senden Sie eine Private Message an c.schojer  Schreiben Sie einen Gästebucheintrag für c.schojer

Beiträge: 299
Registriert: 23.05.2007

Autocad 2018

erstellt am: 18. Nov. 2009 10:42    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


Fenster.zip

 
Bitte schön!
Mfg Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP


Ex-Mitglied

erstellt am: 18. Nov. 2009 11:03    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat

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



Sehen Sie sich das Profil von c.schojer an!   Senden Sie eine Private Message an c.schojer  Schreiben Sie einen Gästebucheintrag für c.schojer

Beiträge: 299
Registriert: 23.05.2007

Autocad 2018

erstellt am: 18. Nov. 2009 12:02    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Vielen Dank!
Dh ich müßte mir nen eigenen Strecken Befehl zusammenbasteln!
Danke!
Mfg Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz