---

Hallo,

hat jemand PRG-Beispiele die mir zeigen, wie man mit Visual Lisp eine 2. Zeichnung öffnet, z.B. einen Kreis zeichnet und dann wieder schliest?

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

---

Bitte:

(defun Test (DWGNAME / DWG) 
  (if;vorhandene Datei
    (or(not(vl-catch-all-error-p
                (setq DWG(vl-catch-all-apply
                          'vla-open
                            (if (=(getvar "SDI")1)
                              (list
                                (vla-get-Activedocument(vlax-get-acad-object))
                                DWGNAME                             
                              )
                              (list
                                (vla-get-documents(vlax-get-acad-object))
                                DWGNAME
                                :vlax-false
                                nil
                              )
                            )
                        )
                )
            )
        )
        ; neue Datei
        (not(vl-catch-all-error-p
              (setq DWG(vl-catch-all-apply
                        'vla-add
                        (list
                          (vla-get-documents
                            (vlax-get-acad-object)
                          )
                        ) 
                      )
              )
            )       
        )
      ) 
    (progn     
      (vla-addCircle (vla-get-modelspace DWG)(vlax-3D-Point '(50 100 0)) 123)
      (vla-close DWG :vlax-true DWGNAME)
      (vlax-release-object DWG)
    ) 
  )
)

Aufruf
(test "D:\\aa.dwg")

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo CADmium,

vielen Dank für die Info!!!

Werde es gleich testen.

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