| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: Auswahlsatz erstellen (KP) (2227 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: 13527 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: 6052 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: 13527 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: 13527 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: 13527 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: 6052 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: 13527 Registriert: 30.11.2003 .
|
erstellt am: 05. Nov. 2012 12:24 <-- editieren / zitieren --> Unities abgeben: Nur für Björn Möller
|
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 |