---

Hallo,

ich habe mir gerade die Datei "schwpkt.lsp" von cadwiesel gezogen. Wenn ich sie nun ausführe, sehe ich kurz eine Umgrenzung (Region), es werden die daten dafür angezeigt und das Lisp verabschiedet sich mit den Worten:
"M:fehler Fehlerhafter Argumenttyp: FILE nil" ; Fehler: Es ist ein Fehler
innerhalb der *error*-Funktion aufgetreten.Fehlerhafter Argumenttyp: streamp nil
Danach ist keine Region mehr zu sehen und ein Flächeninhalt steht auch nicht drin. Hat jemand eine Ahnung, woran das liegen kann?

Grüße Lutz

------------------
May the force be with you!

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

---

Ich vermute dass FILE nil die Ursache ist  . Er kann die mpr-Datei nicht öffnen. Versuche die Pfadangabe entspechen zu ändern.

------------------
"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

---

das hier sollte gehen

(defun REGKEY_R (/ KEY)
  (setq key (vl-registry-read
              (strcat
                "HKEY_CURRENT_USER\\"
                (vlax-product-key)
                "\\Profiles\\"
                (getvar "CProfile")
                "\\"
                "General Configuration"
                ) ;_ end of strcat
              "TempDirectory"
              ) ;_ end of vl-registry-read
        ) ;_ end of setq
  (eval key)
  ) ;_ end of defun

(defun sichvar ()
  (setq cmdakt (getvar "cmdecho"))
  (setq osmakt (getvar "osmode"))
  (setq filedakt (getvar "filedia"))
  (setq layakt (getvar "clayer"))
  (setq alterr *error*)
  (setq blipakt (getvar "blipmode"))
  (setq delakt (getvar "delobj"))
  (setq lupakt (getvar "luprec"))
  (setq pdakt (getvar "pdmode"))
);ende defun

(defun restvar ()
  (setvar "cmdecho" cmdakt)
  (setvar "osmode" osmakt)
  (setvar "filedia" filedakt)
  (setvar "clayer" layakt)
  (setq *error* alterr)
  (setvar "blipmode" blipakt)
  (setvar "delobj" delakt)
  (setvar "luprec" lupakt)
  (setvar "pdmode" pdakt)
);ende defun

(defun neuerr (s)
  (if (/= s "Funktion abgebrochen")
    (princ (strcat "\nFehler: " s))
    )
  (if mprdat(close mprdat))
  (command "_undo" "_BACK")
  (restvar)
  (princ)
);ende defun

(DEFUN koord (item arg / len pos zeich str)
  (if (setq posi(vl-string-position (ascii arg)item))
      (atof(substr item (+ 4 posi)))
    )
);ende defun

(defun c:schwpk (/ mprdat p1 x y datei p2 alterr cmdakt osmakt filedakt layakt
as el kont e1)
  (vl-load-com)
  (command "_undo" "_MARK")
  (sichvar)
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  (setvar "luprec" 8)
  (setvar "pdmode" 3)
  (setq *error* neuerr)
  (setq el (entlast))
  (setq as (ssadd))
  (setq p1 (getpoint "\nin die zu berechnende Fläche klicken"))
  (command "-umgrenzung" "o" "i" "j" "o" "r" "x" p1 "")
  (setq e1 (entnext el))
  (setq datei (strcat (REGKEY_R) "test.mpr"))
  (while e1
    (ssadd e1 as)
    (setq e1 (entnext e1))
    )
  (setq kont (ssname as 0))
  (ssdel kont as)
  (command "_massprop" "_l" "" "_Y" datei)
  (command "_.erase" "_l" "")
  (setq mprdat (open datei "r"))
  (repeat 7
    (read-line mprdat)
    (princ)
    )
  (setq x (koord (strcase (read-line mprdat))"X:"))
  (setq y (koord (strcase (read-line mprdat))"Y:"))
  (close mprdat)
  (setq p2 (list x y))
  (vl-file-delete datei)
  (command "_point" p2)
  (restvar)
  (princ)
  )
(prompt "\n < SCHWPK > eingeben zum Starten")

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Danke, klappt!

Grüße Lutz

------------------
May the force be with you!

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