Schraffur - Mehrere Punkte eingeben (Autodesk/Lisp)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

	PNY: der unverzichtbare Partner für umfassende KI-Lösungen von Workstations bis zu Edge Computing und KI-Cluster-Bereitstellung, eine Pressemitteilung Meldungen abonnieren
Autor	Thema: Schraffur - Mehrere Punkte eingeben (1514 mal gelesen)
nring Mitglied Beiträge: 10 Registriert: 03.07.2002	erstellt am: 19. Mai. 2004 15:00 <-- editieren / zitieren --> Unities abgeben: Hallo, ich versuche mich ein wenig in der Lisp Programmierung und habe eine kleine Routine erstellt mit der eine Schraffur erzeugt wird. Es funktioniert soweit solange nur ein Punkt zur Eingabe der Schraffurfläche benötigt wird. Wie kann das Programm umgestaltet werden damit die Eingabe mehrerer Punkte möglich ist? (defun C:schra () (setq aktueller_layer(getvar "CLAYER")) (setq bksakt (getvar "ucsname"));; Speichern des aktuellen BKS (setq bkstemp (getpoint "Neues BKS eingeben")) (command "BKS" "u" bkstemp) (command "-Layer" "MA" "8" "fa" "1" "" "") (setq ms (getreal "\nMaßstab eingeben")) (command "-gschraff" "e" "hc-10" ms "0" pause "" ) (command "bks" "VO") (command "layer" "se" aktueller_layer "" ) ) Dank im Voraus und viele Grüße Nring Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
cadffm Moderator 良い精神 Beiträge: 22675 Registriert: 03.06.2002 Alles	erstellt am: 19. Mai. 2004 15:15 <-- editieren / zitieren --> Unities abgeben: Nur für nring willst du eine oder mehrere Schraffuren als Ergebnis haben ? Mehrere = HIER! ------------------ - Sebastian - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
nring Mitglied Beiträge: 10 Registriert: 03.07.2002	erstellt am: 19. Mai. 2004 15:21 <-- editieren / zitieren --> Unities abgeben: Wenn es geht sollte es eine Schraffur sein. Gruß Nring Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Brischke Moderator CAD on demand GmbH Beiträge: 4201 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)	erstellt am: 19. Mai. 2004 15:42 <-- editieren / zitieren --> Unities abgeben: Nur für nring Hallo nring, ich habe dein Tool mal etwas korrigiert und das Klicken mehrerer interner Punkte eingebaut. Code: (defun C:schra (/ aktueller_layer bkstemp pt) (setq aktueller_layer(getvar "CLAYER") bkstemp (getpoint "Neues BKS eingeben: ") ) (command "_UCS" "_n" bkstemp) (command "_-Layer" "MA" "8" "fa" "1" "" "") (setq ms (getreal "\nMaßstab eingeben: ")) (command "-gschraff" "e" "hc-10" ms "0") (while(setq pt (getpoint))(command pt));pause (command "") (command "_UCS" "_P") (command "_-LAYER" "_SE" aktueller_layer "" ) ) Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann* man's hat!* Treffen Sie (defun auf dem Autodesk Anwendertreffen am 15.06. in Steyr/Österreich! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
nring Mitglied Beiträge: 10 Registriert: 03.07.2002	erstellt am: 19. Mai. 2004 16:00 <-- editieren / zitieren --> Unities abgeben: Hallo Holger, genauso hatte ich mir das vorgestellt. Danke und viele Grüße Nring Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)