---

Hallo Forum,

weiss einer hier, wo man CAD- oder Vektorvorlagen von Nationalflaggen herbekommt?

------------------

gruß
Stephan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Entweder aus irgend einer DXF-CD, aus einer anderen Anwendung (Corel, MS-Office Cliparts, OpenOffice etc) oder gelisplt

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

---

@usa.lsp
Unglaublich, womit manche Leute ihre Energie verschwenden.... 
Naja, wo soll's sonst herkommen.

Danke Proxy! :wink

------------------
www.cadditions.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP