(defun Init ()
   (setq
    Err *error*
    *error* Fehler
   ) 
)

(defun ReInit ()
   (redraw OBJEKT 4)
   (setq *error* Err)
   (princ)
   )

(defun Fehler (s)
   ;(print (strcat "Fehler: "s))
   (ReInit)
)
    
(defun Lesen ()
    (progn
      (setq OBJEKT Ax)
      (redraw OBJEKT 3)      
      (if(and (not(vl-catch-all-error-p
                    (setq GB (vl-catch-all-apply
                              'vlax-get-property
                                (list (vlax-ename->vla-object OBJEKT)
                                      'ConstantWidth
                                )
                            )      
                    )                    
                  )
              )
              (not(vl-catch-all-error-p
                    (setq LTG (vl-catch-all-apply
                              'vlax-get-property
                                (list (vlax-ename->vla-object OBJEKT)
                                      'color
                                )
                            )      
                    )              
                  )
              )
              (not(vl-catch-all-error-p
                    (setq LAY (vl-catch-all-apply
                              'vlax-get-property
                                (list (vlax-ename->vla-object OBJEKT)
                                      'layer
                                )
                            )      
                    )              
                  )
              )
              (not(vl-catch-all-error-p
                    (setq LTYPE (vl-catch-all-apply
                              'vlax-get-property
                                (list (vlax-ename->vla-object OBJEKT)
                                      'linetype
                                )
                            )      
                    )              
                  )
              )
        )

        (Schreiben) ;Unterprogamm          
      )
   )
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun Schreiben ()
    (while
        (princ "\n Die zu ändernde Leitung wählen!")
        (setq AUSWAHL(ssget "_:S" ))
        (setq Ax (ssname AUSWAHL 0))
        (setq Aw (entget Ax))
        (if
           (= (cdr (assoc 0 Aw)) "POLYLINE")
            
              (progn ;Polylinie
                (vl-catch-all-error-p
                (vl-catch-all-apply
                  'vlax-put-property
                      (list (vlax-ename->vla-object Ax)
                            'ConstantWidth
                            GB
                      )      
                )              
              )
              (vl-catch-all-error-p
                (vl-catch-all-apply
                  'vlax-put-property
                      (list (vlax-ename->vla-object Ax)
                            'color
                            LTG
                      )      
                )              
              )                        
              (vl-catch-all-error-p
                (vl-catch-all-apply
                  'vlax-put-property
                      (list (vlax-ename->vla-object Ax)
                            'layer
                            LAY
                      )      
                )              
              )         
              (vl-catch-all-error-p
                (vl-catch-all-apply
                  'vlax-put-property
                      (list (vlax-ename->vla-object Ax)
                            'linetype
                            LTYPE
                      )      
                )
              )              
            )                                           
         (progn ;wenn Linie dann zur Polylinie!
            (command "_pedit" Ax "_y" "")        
         ))
     )        
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun C:POLYEIG (/ OBJEKT GB LTG Auswahl Aw Ax)  ;Polylinienwerte übertragen!
   (Init)
   (princ "\n Musterleitung auswählen!") 
   (setq AUSWAHL(ssget "_:S" ))
   (setq Ax (ssname AUSWAHL 0))
   (setq Aw (entget Ax))
   (vl-load-com)
   (if (= (cdr (assoc 0 Aw)) "POLYLINE")(Lesen) ;Unterprogramme
      (progn
         (princ "\n Abbruch: Keine Leitung (Polylinie) ausgewählt!")
         (princ)
       ) 
   )
)