;; --------------------------------------------------------------------------------------------------- ;;
;; -- SUB_LEADER : Erstellt Führung "ohne alles"  entsprechend den Vorgaben...                      -- ;;
;; --              PKT           : Startpunkt der Führung                                           -- ;;
;; --              PFEIL         : Aussehehen des Anfangspunktes                                    -- ;;
;; --              PPFEILGROESSE : Größe der Anfangspunktdefinition                                 -- ;;
;; --              Aufruf z.B.   (sub_leader (getpoint "STARTPUNKT : ") "_DOT" 10 )                 -- ;;
;; --------------------------------------------------------------------------------------------------- ;;
(defun Sub_Leader (PKT PFEIL PFEILGROESSE / SYSVARS ABBRUCH)
  (if (and(IS_POINT PKT)
          (or (=(type PFEILGROESSE) 'REAL)(=(type PFEILGROESSE) 'INT))
          (=(type PFEIL) 'STR)
      )
    (progn
      (if (not (member (strcase PFEIL) '("_ARCHTICK"   "_BOXBLANK"    "_BOXFILLED" "_CLOSEDBLANK"
                                         "_DATUMBLANK" "_DATUMFILLED" "_DOT"       "_DOTBLANK"
                                         "_DOTSMALL"   "_INTEGRAL"    "_NONE"      "_OBLIQUE"
                                         "_OPEN"       "_OPEN30"      "_OPEN90"    "_ORIGIN"
                                         "_ORIGIN2"    ".")))
        (setq PFEIL ".")
      )  
      
  ;;    (setq SYSVARS (SET_SYSVARS (list '("CMDECHO" 0)             ; Bildschirmausgabe bei "COMMAND" aus
  ;;                                     '("OSMODE" 553 )                                    ; Objektfang
  ;;                                     (list "DIMASZ" PFEILGROESSE)
  ;;                                     (list "DIMLDRBLK"     PFEIL)
  ;;                               )
  ;;                  )  
  ;;    )                                                                            ; end [SETQ SYSVARS]
      (command ".leader" PKT)
      (while (not ABBRUCH) 
        (princ "\nNächster Punkt <Ende>: ")
        (command pause)
        (if (equal PKT (getvar "LASTPOINT"))
          (setq ABBRUCH 'T)
          (setq PKT (getvar "LASTPOINT")) 
        )		 
      )
      (command "" "KE")                                                           ; Führung abgeschlossen
  ;;    (SET_SYSVARS SYSVARS)                                          ; Systemvariablen wiederherstellen
    )
    (princ "\nFehler bei SUB_LEADER")
  )  
  (princ)
)
;; --------------------------------------------------------------------------------------------------- ;;