| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Linie ohne command erzeugen (872 mal gelesen)
|
Barbara33 Mitglied
Beiträge: 91 Registriert: 18.04.2007 Windows 7, AutoCAD 2000 (englisch)
|
erstellt am: 21. Nov. 2011 21:20 <-- editieren / zitieren --> Unities abgeben:
Hallo Kann mir bitte jemand schnell ein Programm aus dem Ärmel schütteln, das Folgendes tut: Eine Linie von (0,0) bis (2,0) erzeugen, und zwar ohne command, sondern mit Lisp, (vielleicht mit ssadd?) Denn auch das krieg ich nicht hin. Und dann soll das Programm eine weitere Linie von (1,0) bis (1,1) zeichnen. Ohne Rücksicht auf die Einstellungen von OSMODE und OSNAPCOORD, denn ich will dann das Programm mit verschiedenen Einstellungen testen. Das ist alles. Danke im Voraus. LG, Barbara Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Theodor Schoenwald Ehrenmitglied
Beiträge: 1672 Registriert: 16.04.2002
|
erstellt am: 21. Nov. 2011 21:29 <-- editieren / zitieren --> Unities abgeben: Nur für Barbara33
Hallo Barbara, soll es so sein? (entmake (list (cons 0 "LINE") ;*** (cons 6 "BYLAYER") (cons 8 "0") (cons 10 (list 0.0 0.0 0.0)) ;Punkt 1 (cons 11 (list 0.0 2.0 0.0)) ;Punkt 2 (cons 39 0.0) (cons 62 256) (cons 210 (list 0.0 0.0 1.0))) ) Wenn Ja, kannst Du eine Funktion machen, bei Du nur 10 und 11 einzugeben ist. Gruß Theodor Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 21. Nov. 2011 21:33 <-- editieren / zitieren --> Unities abgeben: Nur für Barbara33
|
Theodor Schoenwald Ehrenmitglied
Beiträge: 1672 Registriert: 16.04.2002
|
erstellt am: 21. Nov. 2011 21:57 <-- editieren / zitieren --> Unities abgeben: Nur für Barbara33
Hallo Barbara, Strickmuster ohne Farbe und Layerangaben: ;;----------------------------------------------------- (defun C:M_L (/) (MAKE_LIN '(0 0 0) '(0 2.0 0)) (MAKE_LIN '(1.0 0 0) '(1.0 1.0 0)) ) (defun MAKE_LIN (P1 P2) (entmake (list (cons 0 "LINE") (cons 10 P1) (cons 11 P2))) ) (princ) ;;---------------------------------------------------- Mit Layer und Farbangaben: ;;---------------------------------------------------- (defun C:M_L (/) (MAKE_LIN '(0 0 0) '(0 2.0 0)) (MAKE_LIN '(1.0 0 0) '(1.0 1.0 0)) ) ;;--------------------------------- (defun MAKE_LIN (P1 P2) (entmake (list (cons 0 "LINE") (cons 6 "BYLAYER") (cons 8 "0") (cons 10 P1) (cons 11 P2) (cons 39 0.0) (cons 62 256) (cons 210 (list 0.0 0.0 1.0)) ) ) ) (princ) Thomas, hat sein Vorschlag schneller abgeschickt. Gruß Theodor [Diese Nachricht wurde von Theodor Schoenwald am 21. Nov. 2011 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Barbara33 Mitglied
Beiträge: 91 Registriert: 18.04.2007 Windows 7, AutoCAD 2000 (englisch)
|
erstellt am: 21. Nov. 2011 22:01 <-- editieren / zitieren --> Unities abgeben:
Danke. Die Linie soll weiters keine Eigenschaften haben. Eine Nebenfrage: Die drei Sterne am Ende der Zeile gehören wohl zum "guten Stil". Aber was sollen sie signalisieren? entmake (list (cons 0 "LINE") ;*** Noch eine Nebenfrage: Warum die Koordinaten mit Komma Null? Was, wenn nicht? Und nun zur Hauptfrage: Die zweite Linie (CADmium) wird bei osmode=33 (Endpunkt, Schnittpunkt) immer richtig gezeichnet, von (1,0) bis (1,1). Bei jeder Einstellung von OSNAPCOORD (0,1 oder 2)! Sollte bei 2 nicht der Endpunkt wirken? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 One AutoCAD 2.5 - 2024, AutoCAD, Civil 3D, Win10/Win11
|
erstellt am: 21. Nov. 2011 23:03 <-- editieren / zitieren --> Unities abgeben: Nur für Barbara33
|
Theodor Schoenwald Ehrenmitglied
Beiträge: 1672 Registriert: 16.04.2002
|
erstellt am: 21. Nov. 2011 23:59 <-- editieren / zitieren --> Unities abgeben: Nur für Barbara33
Hallo Barbara, ;*** hat nichts zu bedeuten. Ich wollte damit die Zeilen markieren, die Du unbedingt benötigtst, habe es dann verworfen und vergessen zu entfernen. Warum habe ich 1.0 an Stelle von 1 geschrieben? Ist Gewohnheit von mir. Wenn mit den Zahlen weiter gerechnet wird - was in dem Fall nicht zutrifft - ist es für mich übersichtlicher. Gruß Theodor Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Barbara33 Mitglied
Beiträge: 91 Registriert: 18.04.2007 Windows 7, AutoCAD 2000 (englisch)
|
erstellt am: 22. Nov. 2011 00:14 <-- editieren / zitieren --> Unities abgeben:
|
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 22. Nov. 2011 08:57 <-- editieren / zitieren --> Unities abgeben: Nur für Barbara33
(nur damit nicht jemand über die Aussage stolpert - zu Ergänzung) Zitat: Original erstellt von CAD-Huebner: OSNAPCOORD beeinflußt das Verhalten von Programmierung nicht, nur das Verhalten von Tastatureingaben (oder auch Eingaben über Scripte)
Da man in einem 'Programm' aber command/sendCommand nutzen kann (und gerne auch soll) muß es weiterhin berücksichtigt werden denn das ist ja als Tastatureingabe zu werten. ------------------ CAD.de System-Angaben - CAD on demand - User:FAQ(Acad) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |