CADsite forum

Ik heb je code een klein beetje aangpast. Zoasl eerder gemeld progn gebruiken is aan te bevelen. Check ook even of je selectie sets gevuld zijn voordat je allerlei acties gaat doen. Is wel zo netjes. En declareer je variabelen globale variabelen kunnen nogal eens vervelende neven effecten hebben.

(defun c:def (/ DELTEXT UITG UITGREAL )
   (setq uitg (getstring "geef het uitgavenummer op:     "))
   (setq uitgreal (atof uitg))
   (if (= (- uitgreal (fix uitgreal)) 0)
      ;ALS: uitg = heel getal
      (progn
         ;DAN: geen actie
         (alert "uitgave is een heel getal; geen actie")
      );end progn
      (progn
         (setq deltext
            (ssget "c"
               (list 0 0)
               (list 210 297)
               (list
                  (cons -4 "<and")
                   (cons 0  "MTEXT")
                   (cons 1 "Concept")
                  (cons -4 "and>")
                 
               )
            )
         )

         (if (/= deltext nil)
            (progn
               (command "erase" deltext "")
               (command "-plot"  "y"      ""       "adobe PDF"
                    "A3"     ""       "L"      ""       "w"
                    "-420,0" "0,297"  "1:1"    "0,0"    ""
                    "BWO-kleur.ctb"   ""       ""       ""
                    ""       ""       "No"     "Y"
                )
            );end prong
         );end if
          ;plot een pdf
     ) ;end progn
   ) ;einde als1
)



greetz stephan

Deze kun via vba niet achterhalen. Je kunt alleen de methodes Load, Unload en Detach toepassen. Overigens zijn dit de methodes voor acadBlock.

greetz

stephan

Ik heb net even gegoogled en error 53 geeft aan dat hij een file niet kan vinden. Dus kijk eens of je readxls.exe wel hebt of dat draw.csv wel bestaat. Ik denk dat dat de boosdoeners zijn.

greetz

stephan