| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | | | PLM und ERP fest zusammengeschweißt - IDEAL-Werk , ein Anwenderbericht
|
Autor
|
Thema: Nationalflaggen (461 mal gelesen)
|
StephanJP Mitglied CAD-Admin
Beiträge: 834 Registriert: 09.11.2000 AutoCAD ,MAP 3D, Civil 3D, Recap Pro, InfraWorks, VehicleTracking alles bis 2024, BBSoft, Win 10 Enterprise, Canon PlotClient Canon TX2000, TX3000
|
erstellt am: 29. Mai. 2004 13:23 <-- editieren / zitieren --> Unities abgeben:
|
Proxy Ehrenmitglied Stateless-DHCP v6-Paketfragmentierer
Beiträge: 1629 Registriert: 13.11.2003 Tastaturen, Mäuse, Pladden, Monitore, ...
|
erstellt am: 29. Mai. 2004 18:44 <-- editieren / zitieren --> Unities abgeben: Nur für StephanJP
Entweder aus irgend einer DXF-CD, aus einer anderen Anwendung (Corel, MS-Office Cliparts, Open Office etc) oder ge lisplt Code:
;; ***** USA.LSP ***** ;; ;; Creates the United States of America banner. ;; Use black screen background for best results. ;; ;; W. Kilbourne, CompugraphX, Revised October 1, 2001 ;; (defun c:USA (/ CE BM OS OE SP HT XD XA EP YA D1 D2 D3 D4 RP RH XZ YZ P1 P2 P3 P4 P5 P6 P7 P8 P9 PX PY PZ S1 S2 S3 S4 S5 S6) (setq CE (getvar "CMDECHO") BM (getvar "BLIPMODE") OM (getvar "OSMODE")) (defun NE (NE) (setvar "CMDECHO" CE) (setvar "BLIPMODE" BM) (setvar "OSMODE" OM) (princ "Function cancelled ") (princ) ) (setq OE *error* *error* NE) (setvar "CMDECHO" 0) (setvar "OSMODE" 0) (while (= SP nil) (setq SP (getpoint "\nPick lower left corner of flag: ")) ) (while (= HT nil) (setq HT (getcorner SP "\nPick upper right corner of flag <height>: ")) ) (if (>= (angle SP HT)(/ pi 2)) (setq HT (polar SP (/ pi 4) (distance SP HT))) ) (setq XD (distance SP HT) XA (angle SP HT) EP (polar SP (/ pi 2) (* XD (sin XA))) YA (angle SP EP) D1 (distance SP EP) D2 (/ D1 13) D3 (* D2 0.8) D4 (* D2 1.4) RP (polar SP 0.0 (* D1 1.5)) RH (polar EP 0.0 (* D1 1.5)) XZ (polar SP (* pi 1.25) D2) YZ (polar RH (* pi 0.25) D2) P1 (polar SP (/ pi 2) (* D2 6)) P2 (polar P1 0.0 (* D2 8.5)) P3 (polar EP 0.0 (* D2 8.5)) P4 (polar SP YA D2) P5 (polar RP YA D2) P6 (polar P4 YA D2) P7 (polar P5 YA D2) P8 (polar RP YA (* D2 6)) P9 (polar P2 YA D2) PX (polar P8 YA D2) PY (polar P9 YA D2) PZ (polar PX YA D2) S1 (polar P1 (* pi 0.25) D2) S2 (polar S1 (* pi 0.3) (* D3 0.172)) S3 (polar S1 (* pi 0.7) (* D3 0.172)) S4 (polar S1 YA (* D3 0.43952)) S5 (polar S1 (* pi 0.25) D2) S6 (polar P3 (* pi 1.25) D4) ) (command "._BLIPMODE" "_OFF" "._FILL" "_ON" "._ZOOM" "_W" XZ YZ "._LAYER" "_New" "BLUE" "_Color" "5" "BLUE" "_S" "BLUE" "" "._SOLID" P1 P2 EP P3 "" "._LAYER" "_N" "RED" "_C" "1" "RED" "_S" "RED" "" "._SOLID" SP P4 RP P5 "" "._ARRAY" "_L" "" "_R" "3" "1" (* D2 2) "._SOLID" P2 P9 P8 PX "" "._ARRAY" "_L" "" "_R" "4" "1" (* D2 2) "._LAYER" "_N" "WHITE" "_C" "7" "WHITE" "_S" "WHITE" "" "._SOLID" P4 P6 P5 P7 "" "._ARRAY" "_L" "" "_R" "3" "1" (* D2 2) "._SOLID" P9 PY PX PZ "" "._ARRAY" "_L" "" "_R" "3" "1" (* D2 2) "._SOLID" S1 S2 S3 S4 "" "._ARRAY" "_L" "" "_P" S1 "5" "360" "_Y" "._ARRAY" "_W" P1 S5 "" "_R" "5" "6" D4 D4 "._COPY" "_W" P1 S6 "" S1 S5 ) (setvar "CMDECHO" CE) (setvar "BLIPMODE" BM) (setvar "OSMODE" OM) (setq *error* OE OE nil) (princ) )
Ich würde mal google|image befragen und dann entsprechend die Flagen als Bilder einfügen. Tipp: World Flag Database
------------------ "Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?" Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3336 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 01. Jun. 2004 12:39 <-- editieren / zitieren --> Unities abgeben: Nur für StephanJP
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|