| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Geschlossene Polylinie (291 mal gelesen)
|
Constantin D.
Mitglied
Architekt
   Beiträge: 3
Registriert: 08.03.2004
|
erstellt am: 08. Mrz. 2004 18:00  <-- editieren / zitieren -->   Unities abgeben:          
Hallo! Ich habe in meinen Zeichnungen sehr häufig nicht geschlossene Polylinien, die ich zum Weiterbearbeiten schliessen muss. Das mache ich bisher immer sehr umständlich über die Eigenschaften (Ctrl+1) und dann eben von Hand auf geschlossen umstellen...
Kennt vielleicht jemand einen Befehl mit dem das etwas schnelle geht? (z.B. Polylinie wählen, Kürzel des Befhls tippen, Enter - und schon ist sie geschlossen...)
Gruss,
Constantin
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Proxy
Ehrenmitglied
Stateless-DHCP v6-Paketfragmentierer
Beiträge: 1629
Registriert: 13.11.2003 Tastaturen, Mäuse,
Pladden, Monitore, ...
|
erstellt am: 08. Mrz. 2004 18:14 <-- editieren / zitieren --> Unities abgeben: Nur für Constantin D. 
^C^C_pedit _close ? als Button oder innerhalb des Object-Pop-Menüs ------------------
 "Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?" Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Constantin D.
Mitglied
Architekt
Beiträge: 3
Registriert: 08.03.2004
|
erstellt am: 08. Mrz. 2004 18:33 <-- editieren / zitieren --> Unities abgeben:
|
Proxy
Ehrenmitglied
Stateless-DHCP v6-Paketfragmentierer
Beiträge: 1629
Registriert: 13.11.2003 Tastaturen, Mäuse,
Pladden, Monitore, ...
|
erstellt am: 08. Mrz. 2004 18:47 <-- editieren / zitieren --> Unities abgeben: Nur für Constantin D.
suche mal bei dir in der aktuellen mnu-Datei und ergänze sie durch ***POP510
**OBJECT_LWPOLYLINE
[Kontextmenü für PLINIEN-Objekt]
ID_Pedit [&Polylinie bearbeiten]^C^C_pedit
ID_PClose [Polylinie &schließen]^C^C^P_pedit _c ^C^P
ID_POpen [Polylinie &öffnen]^C^C^P_pedit _o ^C^P
für die "Funktion" muss du ein (defun c:XXXXXXXX(/) deklarieren. kann aber dies auch in der mnu machen da es sich IMHO kaum lohnt diese befehlsmakro als lisp-datei abzuspeichern.
------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?" Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium
Moderator
Maschinenbaukonstrukteur
    
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: 08. Mrz. 2004 18:57 <-- editieren / zitieren --> Unities abgeben: Nur für Constantin D.
Wie wäre es damit... erlaubt eine Objektauswahl von Polylinien, die dann alle in einem Rutsch geschlossen werden.... (defun C:CPL ( / AUSWAHL OBJEKT OBJEKTDATEN )
(if (setq AUSWAHL (ssget '(( 0 . "POLYLINE,LWPOLYLINE" ))))
(progn
(princ "\nGewählte Polylinien werden geschlossen\n")
(repeat (sslength AUSWAHL)
(setq OBJEKT (ssname AUSWAHL 0))
(setq OBJEKTDATEN (entget OBJEKT))
(logior 1 (cdr(assoc 70 OBJEKTDATEN)))
(setq OBJEKTDATEN(subst(cons 70 (logior 1 (cdr(assoc 70 OBJEKTDATEN))))
(assoc 70 OBJEKTDATEN)
OBJEKTDATEN))
(entmod OBJEKTDATEN)
(ssdel OBJEKT AUSWAHL)
)
)
)
)
(princ"\nAufruf mit CPL") Kannst dir ja dann die Funktion auf einen Button legen.:: ------------------
 - Thomas - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| | Duales Studium Elektrotechnik ab Oktober 2024 Schwerpunkt: Elektrische Energietechnik | | Als führendes europäisches Beratungs-, Planungs- und Projektmanagementunternehmen bietet Drees & Sommer Lösungen für erfolgreiche Gebäude, renditestarke Portfolios, leistungsfähige Infrastruktur und lebenswerte Städte. In interdisziplinären Teams unterstützen unsere über 5.100 Mitarbeiterinnen und Mitarbeiter an 59 internationalen Standorten Auftraggeber unterschiedlichster Branchen. Bei uns gestalten Sie Ihren individuellen Karriereweg aktiv mit.... | | Anzeige ansehen | Elektrotechnik, Elektronik |
|
Constantin D.
Mitglied
Architekt
Beiträge: 3
Registriert: 08.03.2004
|
erstellt am: 08. Mrz. 2004 19:13 <-- editieren / zitieren --> Unities abgeben:
|
Foren auf CAD.de (alle Foren)
| 
