Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Blöcke auf Stützpunkte

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:  Blöcke auf Stützpunkte (312 mal gelesen)
marwin79
Mitglied
Projektsupporter


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

Beiträge: 14
Registriert: 05.07.2004

Es gibt 10 Typen von Menschen. 1. die Binär verstehen 2. die es nicht verstehen

erstellt am: 13. Okt. 2004 14:17    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!

Gibt es eine Möglichkeit einen Block auf jeden Stützpunkt einer Polylinie zu setzen?

Vielleicht hat ja jemand eine Idee.
Danke schon mal im voraus

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

TLieske
Mitglied
Bauingenieur


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

Beiträge: 247
Registriert: 12.07.2002

18xAutoCAD, SofiCAD, Vestra, AutoTURN, WinXP_Prof(SP3), PIV-3, 4GBRAM, 2xHP1050C, CARD1, Microstation, AutoVUE ...

erstellt am: 13. Okt. 2004 14:54    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 marwin79 10 Unities + Antwort hilfreich

Hallo,

ganz einfach (wohl nich so einfach, siehe unten): Befehl
MESSEN (Abstände eingeben)
oder
TEILEN (Einteilung in X Teile)
Zwischendurch kann man Blocknamen mit der Option "b" angeben, die verteilt werden.

hm, wenn allerdings die Stützpunkte in unregelmäßigen Abständen sind, oha. Hat da wer ne andere Idee (außer LISP)?

------------------
Thomas Lieske
Schüßler-Plan Ing.-GmbH
Frankfurt-Sachsenhausen

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

marwin79
Mitglied
Projektsupporter


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

Beiträge: 14
Registriert: 05.07.2004

Es gibt 10 Typen von Menschen. 1. die Binär verstehen 2. die es nicht verstehen

erstellt am: 13. Okt. 2004 14:58    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

Hi

Ganz so einfach  ist es leider nicht
1. Habe ich nur unregelmäßige Abstände und
2. ist die Anzahl der zu ändernden Objekte "etwas" größer (ca. 62000).

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

Bernd P
Ehrenmitglied V.I.P. h.c.
cook-general



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

Beiträge: 3358
Registriert: 07.06.2001

W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365

erstellt am: 13. Okt. 2004 15:01    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 marwin79 10 Unities + Antwort hilfreich

Servus

Würde auch mit einem Script gehen.

-Plinepunkte auslesen
-Formatieren 
  so in etwa
10,15,0
13,12,0
usw
-block picken (griff)
-verschieben u. kopieren wählen
-und script starten

oder lisp was einfacher gehen würde

------------------
schöne Grüsse aus der Steiermark  Bernd P.    Warum Einfach es geht auch kompliziert

Bitte Supportangaben eintragen, warum siehst du hier

[Diese Nachricht wurde von Bernd P am 13. Okt. 2004 editiert.]

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

marwin79
Mitglied
Projektsupporter


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

Beiträge: 14
Registriert: 05.07.2004

Es gibt 10 Typen von Menschen. 1. die Binär verstehen 2. die es nicht verstehen

erstellt am: 13. Okt. 2004 16:49    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

Naja

Nachdem ich über 62000 Polylinien habe mit weiß ich wievielen Stützpunkten währe mir eine andere Lösung lieber, falls es die überhaupt gibt.

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

IBS BOH
Mitglied



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

Beiträge: 212
Registriert: 22.09.2004

Windows 2000
AutoCAD 2004 SP 1a
Expresstools 2004 Deutsch
HP DesignJet 800

erstellt am: 13. Okt. 2004 17:03    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 marwin79 10 Unities + Antwort hilfreich

Hallo,

probiere es mal mit der bpk.lsp von www.defun.de, ich denke das dürfte dir helfen.

IBS BOH

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

marwin79
Mitglied
Projektsupporter


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

Beiträge: 14
Registriert: 05.07.2004

Es gibt 10 Typen von Menschen. 1. die Binär verstehen 2. die es nicht verstehen

erstellt am: 13. Okt. 2004 17:16    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

Habe das Bpk.lsp mal ausprobiert, funktioniert auch wunderbar.
Ich hab nur noch ein kleines Problem. Ich muss anscheinend jede Polylinie einzeln anklicken und dann wird das schon ziemlich anstrengend. Hast du dazu auch noch eine Lösung??

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

IBS BOH
Mitglied



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

Beiträge: 212
Registriert: 22.09.2004

Windows 2000
AutoCAD 2004 SP 1a
Expresstools 2004 Deutsch
HP DesignJet 800

erstellt am: 13. Okt. 2004 17:27    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 marwin79 10 Unities + Antwort hilfreich

Nur so ne Idee, könntest du die Polylinien nicht einfach verbinden? Damit es zu einer wird? Bin im Feierabend, kann es deshalb nicht selber probieren. Oder funktioniert es wenn man vorher mehrere Ausgewählt hat?

Gruß aus dem Feierabend!

IBS BOH

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

marwin79
Mitglied
Projektsupporter


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

Beiträge: 14
Registriert: 05.07.2004

Es gibt 10 Typen von Menschen. 1. die Binär verstehen 2. die es nicht verstehen

erstellt am: 13. Okt. 2004 17:34    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

Ne Kann die Polylinien nicht verbinden und das mit voher auswählen funkt auch nicht.
Aber jetzt wünsch ich dir erst mal einen schönen Feierabend.

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

CADmium
Moderator
Maschinenbaukonstrukteur




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

Beiträge: 13508
Registriert: 30.11.2003

Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.

erstellt am: 13. Okt. 2004 19:41    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 marwin79 10 Unities + Antwort hilfreich

guckst du hier :

(defun c:bpk ( / auswahl index  attreq bnam)
  (if(or(setq Auswahl(ssget "_I" '((0 . "LWPOLYLINE"))))
        (setq Auswahl(ssget      '((0 . "LWPOLYLINE"))))
    )
    (progn
      (setq attreq (getvar "ATTREQ"))
      (setq bnam "")                       
      (setvar "ATTREQ" 0)
      (while (not (tblobjname "BLOCK" bnam))
        (initget 1)
        (setq bnam (getstring "\nBlockname: "))
      )
      (setq Index -1)
      (repeat (sslength Auswahl)       
        (bpk (entget(ssname Auswahl (setq Index (1+ Index)))) bnam)
      ) 
      (setvar "ATTREQ" attreq)
    )
    (princ "\nKeine Polylinien gewählt!")
  )
  (princ)
)   
(defun bpk (pldata bname /)
  (mapcar '(lambda (D)
              (if (= 10 (car D))
                (command "_.INSERT" bname (cdr D) "" "" "")
              )
          )
          pldata
  )
)

------------------
- Thomas -
"Bei 99% aller Problemen ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

marwin79
Mitglied
Projektsupporter


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

Beiträge: 14
Registriert: 05.07.2004

Es gibt 10 Typen von Menschen. 1. die Binär verstehen 2. die es nicht verstehen

erstellt am: 14. Okt. 2004 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

Das hat einwandfrei funktioniert.

Danke

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