Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de
  AutoCAD VBA
  Dehnen bzw. Stutzen mit VBA

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
  
PNY: der unverzichtbare Partner für umfassende KI-Lösungen von Workstations bis zu Edge Computing und KI-Cluster-Bereitstellung, eine Pressemitteilung
Autor Thema:  Dehnen bzw. Stutzen mit VBA (1574 mal gelesen)
ShakerPaker
Mitglied



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

Beiträge: 11
Registriert: 07.09.2003

erstellt am: 07. Sep. 2003 22:53    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 Forum,
ich habe eine kreisförmige, geschlossene Polylinie (PL) und eine andere offene, die innerhalb der geschlossenen liegt. Wie kann ich die innere PL an beiden Enden via VBA bis an die äußere Pl dehnen?
Oder weiß vielleicht jemand, wie man analog das Stutzen programmieren kann?

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

RoSiNiNo
Mitglied
Konstrukteur


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

Beiträge: 1126
Registriert: 09.10.2002

Acad 2011-deutsch, Express Tools
3ds Max 2010
Win 7-Professional
HP Workstation Z400, 6GB
GeForce GTX 470

erstellt am: 08. Sep. 2003 13:04    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 ShakerPaker 10 Unities + Antwort hilfreich

Geht nicht!
Suche vielleicht nach AcadX, damit kannst du stutzen und dehnen.

------------------
Roland

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

ShakerPaker
Mitglied



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

Beiträge: 11
Registriert: 07.09.2003

erstellt am: 08. Sep. 2003 14:19    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

schade, schade! trotzdem vielen dank für die antwort.

dann muss ich wahrscheinlich wieder meine vektoralgebra auspacken und die schnittpunkte quasi manuell berechnen.

oder kann ich ähnlich dem lisp befehl (command "_line" '(x1 y1 z1) '(x2 y2 z2) "") die befehlsleiste von autocad selbst verwenden?
dann könnte ich auf die verschiedenen polylines via vba selektieren und anschließend dehnen. gibt es da eine möglichkeit?

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

BerndE
Mitglied
Hochbautechniker


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

Beiträge: 557
Registriert: 05.07.2003

Revit 2013
ACA 2012 deutsch
BuildingOne 5.4.5
Win7
WindowsNetz

erstellt am: 08. Sep. 2003 14:39    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 ShakerPaker 10 Unities + Antwort hilfreich

hi,
algebra (die gute alte pq-formel o.ä.) könnte dir vermutlich weiterhelfen, aber auch nur, wenn es sich bei den zu verschneidenden elementen um per formel greifbare linien handelt. Und hast du dann das formelmäßig unter einen hut gebracht, ist ein umsetzen in zeichnen per VBA nur noch der kleinere teil.
aber dazu müßte man mal ein beispiel deiner zeichnung haben

------------------

Bernd

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

ShakerPaker
Mitglied



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

Beiträge: 11
Registriert: 07.09.2003

erstellt am: 08. Sep. 2003 15:22    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

die algebra für den schnittpunkt zweier vektoren ist schon machbar. man muss halt ein kleines lgs lösen oder am besten den cramer anwenden. die alte pq formel reicht da leider nicht aus. nur bedeutet das ganze einen ziemlichen mehraufwand als ein simpler "dehnen" befehl. das würde ich soweit schon hinbekommen, nur dachte ich eben, es sei viel einfacher, den autocad befehl selbst zu verwenden.

ich schick mal einen ausschnitt der datei mit: alle elemente darin sind programmiert und nummeriert in einer matrix gespeichert. daher sind auch alle elemente einzeln ansprechbar.
im prinzip geht es darum, die grünen inneren linien bis zur äußeren umschließenden, roten polyline zu dehnen.

nur zur beschreibung:
das ganze wird ein teil einer translationsnetzschale mit inneren ebenen, so ein blob a la "future systems" für die architekten und bauingenieure unter euch.

shaker


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

ShakerPaker
Mitglied



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

Beiträge: 11
Registriert: 07.09.2003

erstellt am: 08. Sep. 2003 15:29    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

RoSiNiNo
Mitglied
Konstrukteur


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

Beiträge: 1126
Registriert: 09.10.2002

Acad 2011-deutsch, Express Tools
3ds Max 2010
Win 7-Professional
HP Workstation Z400, 6GB
GeForce GTX 470

erstellt am: 09. Sep. 2003 09:44    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 ShakerPaker 10 Unities + Antwort hilfreich

Ich hab mir deine Zeichnung jetzt einmal angesehen.
Du möchtest also einfach die geraden Polylinien bis zu der Umhüllenden verlängern.
Warum suchst du nicht die Schnittpunkte mir intersectWith?
Da brauchst du nichts rechnen oder strecken.

------------------
Roland

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



Anzeige:Infos zum Werbeplatz >>

BksManager CAD APP für Allgemeine Werkzeuge

Mit dem Programm BKS-Manager können Benutzerkoordinatensysteme benannt, verwaltet, geändert werden. Es wird ein nicht modales Palettenfenster verwendet.

ShakerPaker
Mitglied



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

Beiträge: 11
Registriert: 07.09.2003

erstellt am: 09. Sep. 2003 09:51    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

klasse! genau so was habe ich gesucht. vielen dank!
ich werde es gleich mal ausprobieren. =)

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)2025 CAD.de | Impressum | Datenschutz