| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Auswahlsatz erstellen (KP) (2131 mal gelesen)
|
Björn Möller Mitglied
Beiträge: 96 Registriert: 22.03.2004 AutoCad Map 2012,Topobase 2,Rasterdesign
|
erstellt am: 05. Nov. 2012 08:15 <-- editieren / zitieren --> Unities abgeben:
Hallo Forum, ich suchte, aber fand nicht. Ich möchte einen Auswahlsatz erstellen, ähnlich dem "KP" von kreuzen Polygon, aber dabei möchte ich auf eine bestehende Polylinie zurück greifen und nicht wie in dem KP-Befehl "live" digitalisieren. Habt Ihr einen Tipp, wie ich eine Lösung im Forum finde oder gibt es vielleicht sogar eine direkte Autocad-Lösung. Gruß Björn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 .
|
erstellt am: 05. Nov. 2012 08:26 <-- editieren / zitieren --> Unities abgeben: Nur für Björn Möller
|
Björn Möller Mitglied
Beiträge: 96 Registriert: 22.03.2004 AutoCad Map 2012,Topobase 2,Rasterdesign
|
erstellt am: 05. Nov. 2012 10:35 <-- editieren / zitieren --> Unities abgeben:
|
jupa Ehrenmitglied V.I.P. h.c. Ruheständler
Beiträge: 6050 Registriert: 16.09.2004 WINDOWS Vista Ultimate SP2 (64bit), NVIDIA Geforce 9600M GT, AutoCAD 2013.
|
erstellt am: 05. Nov. 2012 10:59 <-- editieren / zitieren --> Unities abgeben: Nur für Björn Möller
Zitat: Original erstellt von CADmium:
... einer vlx-lösung für alle möglichen Kurven
Hallo Thomas, die "curvessget.vlx" funktioniert wie ein F-Fenster. Läßt sich da noch eine Abfrage einbauen, daß der User zwischen einer F- und einer K-(Kreuzen-)Umgrenzung wählen kann? (Ich weiß nicht ob Du selbst der Autor warst). Jürgen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 .
|
erstellt am: 05. Nov. 2012 11:07 <-- editieren / zitieren --> Unities abgeben: Nur für Björn Möller
|
Björn Möller Mitglied
Beiträge: 96 Registriert: 22.03.2004 AutoCad Map 2012,Topobase 2,Rasterdesign
|
erstellt am: 05. Nov. 2012 11:27 <-- editieren / zitieren --> Unities abgeben:
Hallo Jupa, ich hab gerade für meine Zwecke Deine Abfrage umgesetzt. Und hoffe das dies auch für Thomas i.O. ist. Gruß Björn Code: (defun c:vox-sel-obj-in-poly ( / ) (INITGET "KP FP") (SETQ BJ:ART (GETKWORD "\nAuswahl über Kreuzen-Polygon [KP] oder Fenster-Polygon [FP] <KP>: ")) (IF (= BJ:ART "FP") (sssetfirst nil (ssget "_WP" (vox-get-lwp-points (car (entsel "\nLWPOLYLINE wählen:"))))) (sssetfirst nil (ssget "_CP" (vox-get-lwp-points (car (entsel "\nLWPOLYLINE wählen:"))))) );END IF ) (defun vox-get-lwp-points (ele) (mapcar 'cdr (vl-remove-if '(lambda(x) (/= (car x) 10)) (entget ele))) )
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 .
|
erstellt am: 05. Nov. 2012 11:32 <-- editieren / zitieren --> Unities abgeben: Nur für Björn Möller
|
fuchsi Mitglied Programmierer c#.net Datawarehouse
Beiträge: 1201 Registriert: 14.10.2003 AutoCad Version 2012 deu/enu <P>Windows 7 64bit
|
erstellt am: 05. Nov. 2012 11:35 <-- editieren / zitieren --> Unities abgeben: Nur für Björn Möller
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 .
|
erstellt am: 05. Nov. 2012 11:38 <-- editieren / zitieren --> Unities abgeben: Nur für Björn Möller
|
jupa Ehrenmitglied V.I.P. h.c. Ruheständler
Beiträge: 6050 Registriert: 16.09.2004 WINDOWS Vista Ultimate SP2 (64bit), NVIDIA Geforce 9600M GT, AutoCAD 2013.
|
erstellt am: 05. Nov. 2012 11:56 <-- editieren / zitieren --> Unities abgeben: Nur für Björn Möller
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 .
|
erstellt am: 05. Nov. 2012 12:24 <-- editieren / zitieren --> Unities abgeben: Nur für Björn Möller
|
| Projektleiter Facility Planning (m/w/x) | Sich etwas Neues trauen, über sich hinauswachsen und dabei die Grenzen des Machbaren neu de?nieren. Genau das ist es, was unsere Mitarbeitenden täglich leben dürfen und sollen. Um mit unseren Innovationen das Tempo vorzugeben und Großartiges zu ermöglichen. Denn hinter jedem erfolgreichen Unternehmen stehen eine ganze Menge faszinierender Menschen. Die Mitarbeitenden von ZEISS arbeiten in einem offenen und modernen Umfeld mit zahlreichen Entwicklungs- und Weiterbildungsmöglichkeiten.... | Anzeige ansehen | Projektmanagement |
|
Eryk Mitglied Bautechniker
Beiträge: 42 Registriert: 16.05.2003 Infrastructure Design Suite 20xx, Win10 Pro, 64 Bit
|
erstellt am: 12. Mrz. 2020 16:08 <-- editieren / zitieren --> Unities abgeben: Nur für Björn Möller
Hallo @all, ich bin mir bewußt, dass es ein alter Beitrag ist, jedoch interessiere ich mich sehr für diese LISP. Habe eine "kleine" Störung im C3D 2020: Der Befehl funktioniert nur ein mal in der Zeichnung, führe ich den Befehl erneut - in der selben Zeichnung - aus erhalte ich keine Auswahl. Diese VLX funktioniert einwandfrei: http://ww3.cad.de/foren/ubb/uploads/CADmium/CURVESSGET.VLX.txt Vielleicht liegt es auch - bei mir - am CORONA-VIRUS Für Hilfe bin ich dankbar. VG Eryk
Zitat: Original erstellt von Björn Möller: Hallo Jupa,ich hab gerade für meine Zwecke Deine Abfrage umgesetzt. Und hoffe das dies auch für Thomas i.O. ist. Gruß Björn Code: (defun c:vox-sel-obj-in-poly ( / ) (INITGET "KP FP") (SETQ BJ:ART (GETKWORD "\nAuswahl über Kreuzen-Polygon [KP] oder Fenster-Polygon [FP] <KP>: ")) (IF (= BJ:ART "FP") (sssetfirst nil (ssget "_WP" (vox-get-lwp-points (car (entsel "\nLWPOLYLINE wählen:"))))) (sssetfirst nil (ssget "_CP" (vox-get-lwp-points (car (entsel "\nLWPOLYLINE wählen:"))))) );END IF ) (defun vox-get-lwp-points (ele) (mapcar 'cdr (vl-remove-if '(lambda(x) (/= (car x) 10)) (entget ele))) )
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |