| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY bietet das umfangreichste Ökosystem von B2B als auch B2C-Lösungen für IT-Akteure auf dem Markt, eine Pressemitteilung
|
Autor
|
Thema: Linien identifizieren (722 mal gelesen)
|
dschu Mitglied techn. angestellter
Beiträge: 18 Registriert: 03.09.2002
|
erstellt am: 13. Sep. 2002 13:41 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, vielleicht kann mir jemand helfen... Wie kann man in LISP Linien identifizieren? Der Befehl offset benötigt Objekte. Diese Funktionen habe ich erfolgreich eingesetzt. Nun möchte ich z.B. eine Linie bemassen . Es wird nach Bogen Kreis Linie gefragt....und nicht nach Objekten. Und dieses bekomme ich nicht hin. Kann ich so etwas nicht über die Entity Einträge herausfiltern? Schönen Tag noch Gruß dschu
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 16. Sep. 2002 09:48 <-- editieren / zitieren --> Unities abgeben: Nur für dschu
Hallo dschu, was meinst Du denn mit identifizieren? Du kannst einen Auswahlsatz erstellen und diesen dann filtern, oder du kannst gleich einen gefilterten Auswahlsatz erstellen, oder oder oder. Aber den Sinn Deiner Frage, solltest Du etwas erläutern, am besten beschreibst Du komplett was die Ausgangssituation ist und was das Ziel sein soll. Grüße Holger Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 16. Sep. 2002 10:00 <-- editieren / zitieren --> Unities abgeben: Nur für dschu
Hi, guck Dir mal diesen Versuchsaufbau an: Code:
;;; Unterfunktion gibt nil oder das Ergebnis von entsel zurück (defun TEST (/ OBJ X) (setq OBJ (entsel "\nBogen, Kreis oder Linie wählen: ")) (if OBJ (if (apply 'or (mapcar '(lambda (X) (= (cdr (assoc 0 (entget (car OBJ)))) X)) '( "CIRCLE" "ARC" "LINE" ) ) ;_ end of mapcar ) ;_ end of apply OBJ ) ;_ end of if ) ;_ end of if ) ;_ end of defun ;;; While-Schleife mit oben definierter Sub-Funktion ;;; Aufforderung solange, bis Test nicht nil zurückgibt (while (not (setq OBJ (TEST))) (princ "\nFalsches Objekt gewählt, versuch's noch einmal..." ) ;_ end of princ ) ;_ end of while
------------------ Ciao, Marc Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
dschu Mitglied techn. angestellter
Beiträge: 18 Registriert: 03.09.2002
|
erstellt am: 16. Sep. 2002 13:04 <-- editieren / zitieren --> Unities abgeben:
Hallo Holger, Ich versuch's mal zu beschreiben Das soll der ungefähre Aufbau sein Zuerst werden Linien gezeichnet (command "_.line" "0,0" "200,200" "") Dann möchte ich mir diese Linien merken (setq linie1 (entget(entlast))) --und hier hab ich's noch nicht begriffen weil ich mir damit ja nur das Objekt merke ! (command "_.line" "0,0" "200,0" "") (setq linie2 (entget(entlast)) );end setq ;; Und zum Schluß möchte ich einen Winkel damit bemaßen (command "_.dimangular" linie1 linie2 "") Bedenke - ich bin Neu im LISP-Geschäft. Danke für die Mühe Gruß dschu
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 16. Sep. 2002 14:07 <-- editieren / zitieren --> Unities abgeben: Nur für dschu
Hallo Dschu, (schau Dir mal an, in welchem Format die Funtion (entsel) ein Ergebnis liefert, in dieser Form mußt du die Werte übergeben. Bsp: (command "_.dimangular" (entsel) (entsel) "") oder für dein Bsp: (command "_.dimangular" (list (cdr (assoc -1 linie1)) (cdr (assoc 10 linie1))) (list (cdr (assoc -1 linie2)) (cdr (assoc 10 linie2))) (getpoint) ) Bei Fragen ... Grüße Holger
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
dschu Mitglied techn. angestellter
Beiträge: 18 Registriert: 03.09.2002
|
erstellt am: 17. Sep. 2002 07:58 <-- editieren / zitieren --> Unities abgeben:
|