| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | CIDEON Whitepaper: Collaboration mit optimiertem Daten- und Projektmanagement, ein Whitepaper
|
|
Autor
|
Thema: Fehlermeldung "Kann Shell-Programm nicht finden" (326 mal gelesen)
|
markusG
Mitglied
   Beiträge: 124
Registriert: 09.04.2002
|
erstellt am: 08. Dez. 2002 20:33  <-- editieren / zitieren -->   Unities abgeben:          
Hallo Zusammen, ich möchte mir ein Icon Menü erzeugen. Dabei verwende ich ein LISP-Programm "makeicon.lsp". Leider kommt dabei eine Fehlermeldung: "Kann Shell-Programm nicht finden" Wer kann mir sagen, was ich falsch mache???
------------------
Gruß
...markusG Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel
Moderator
CAD4FM UG
    
Beiträge: 1989
Registriert: 05.09.2000 AutoCAD, Bricscad
Wir machen das Mögliche unmöglich
|
erstellt am: 09. Dez. 2002 08:05 <-- editieren / zitieren --> Unities abgeben: Nur für markusG 
|
Bernd Cuder
Mitglied
Selbständig
Beiträge: 692
Registriert: 10.07.2002 AutoCAD 2002/2004/2005
unter Windows 2000
Professional SP3
PIV 3.4GHz 1024MB
NVIDIA GeForce FX Go5700
|
erstellt am: 09. Dez. 2002 09:27 <-- editieren / zitieren --> Unities abgeben: Nur für markusG
|
markusG
Mitglied
Beiträge: 124
Registriert: 09.04.2002
|
erstellt am: 09. Dez. 2002 11:43 <-- editieren / zitieren --> Unities abgeben:
|
CADwiesel
Moderator
CAD4FM UG
Beiträge: 1989
Registriert: 05.09.2000 AutoCAD, Bricscad
Wir machen das Mögliche unmöglich
|
erstellt am: 09. Dez. 2002 16:28 <-- editieren / zitieren --> Unities abgeben: Nur für markusG
Ich hab's Dir mal umgeschrieben (defun C:makeicon (/)
(defun APURGE ()
(setvar "cmdecho" 0)
(command "_purge" "_all")
(while (= (getvar "cmdnames") "PURGE")
(command "*" "_n")
) (setvar "cmdecho" 1)
)
(defun SPCUT (FIL I)
(while (= (substr FIL I 1) " ")
(setq I (1- I))
)
(substr FIL 1 I)
)
(apply
'(lambda (/ NSL F1 F2 F3 F4 NAM MNU SLB
DNM LIN I FIL PTMIN PTMAX DST RD TXTSIZ)
(if (/= (findfile "Slidelib.exe") NIL)
(progn
(setvar "CMDECHO" 0)
(setvar "regenmode" 1)
(setvar "pdmode" 35)
(setq ACVER (substr (getvar "acadver") 1 2))
(cond
((= ACVER "14")
(setq ACVER "_")
)
((= ACVER "15")
(setq ACVER "_-")
)
(T
(setq ACVER "_")
)
)
(initget 1 "4 9 16 38")
(setq NSL
(1-
(atoi
(getkword
"Anzahl der Menü-Iconfenster (4, 9, 16 or 38): "))))
(setq NAM (strcase (getvar "DWGNAME"))
MNU (strcase
(getstring
(strcat
"Name der zu erzeugenden Menüdadei <"
NAM
">: ")))
MNU (cond ((= MNU "") (strcat NAM ".MNU"))
(t (strcat MNU ".MNU")))
F2 (open MNU "w")
SLB (strcase
(getstring
(strcat
"Name der zu erzeugenden Diabibliothek <"
NAM
">: ")))
SLB (cond ((= SLB "") NAM)
(t SLB))
F3 (open "$TMP$.LST" "w")
;;; DNM (getstring
;;; "zu verwendende Zeichnungen(*.dwg's) <*>: ")
;;; DNM (cond ((= DNM "") "*")
;;; (t DNM))
DNM (getstring
"Dateipfad eingeben, oder Return für Arbeitsverzeichniss : ")
DNM (cond ((= DNM "") (getvar "dwgprefix"))
(t DNM))
LIN (strcat "dir " DNM "*.DWG > " DNM "$TMP$")
I 0)
(command "shell" (strcat LIN " " (chr 47) "b"))
(setq F1 (open (strcat DNM "$TMP$") "r"))
(while (setq LIN (read-line F1))
(if (/= LIN "")
(progn
(if
(=
(strcase (substr LIN (- (strlen lin) 2) 3))
"DWG")
(progn
(if (= (rem I NSL) 0.0)
(progn
(write-line
(strcat
"**"
SLB
(itoa (1+ (fix (/ I NSL)))))
F2)
(write-line
"[Symbol auswählen]"
F2)
))
(setq FIL (strcat DNM LIN);(spcut (substr LIN 1 8) 8)
I (1+ I))
(grtext -2
(strcat "Bearbeitete Dateien # "
(itoa I)
"."
" "
"Markus G."))
(if
(/= (findfile FIL) nil)
(progn
(command "zoom"
"g")
(command (strcat ACVER "color")
"bylayer"
(strcat ACVER "insert")
FIL
"0,0"
"1"
"1"
"0"
"zoom"
"g")
(setq PTMIN (getvar "EXTMIN")
PTMAX (getvar "EXTMAX")
DST (distance PTMIN PTMAX)
RD (/ DST 30.0))
(command
(strcat ACVER "color")
"gelb"
"_point"
PTMIN
;;; RD
;;; "_line"
;;; (polar (list 0 0) 0 RD)
;;; (polar (list 0 0) PI RD)
;;; ""
;;; "_line"
;;; (polar (list 0 0) (* 0.5 PI) RD)
;;; (polar (list 0 0) (* 1.5 PI) RD)
""
)
(setq
TXTSIZ (cond ((= NSL 3)
(/ DST 15.0))
((= NSL 8)
(/ DST 10.0))
(t (/ DST 7.0))))
(command
"_text"
"mi"
(list (/ (+ (car PTMIN)
(car PTMAX))
2.0)
(- (cadr PTMIN) TXTSIZ))
TXTSIZ
"0"
FIL)
(command "zoom" "g")
(setq PTMIN (getvar "EXTMIN")
PTMAX (getvar "EXTMAX")
DST (distance PTMIN PTMAX))
(command "zoom"
"m"
(polar PTMIN
(angle PTMIN PTMAX)
(/ DST 2.0))
DST)
(command "_mslide" FIL
"_.erase"
"_all"
"")
(apurge)(apurge)
(command (strcat ACVER "color")
"bylayer")
(write-line
(strcat "["
SLB
"("
FIL
")]^C^C"
ACVER
"insert"
" "
(chr 34)
"!!Pfad"
(chr 34)
"/"
FIL
".dwg"
";")
F2)
(write-line FIL F3)
;---ADD AN EXIT OPTION TO THE MENU FILE IF NEEDED---
(if (= (rem I NSL) 0.0)
(write-line "[ Exit]^c^c\n" F2))
))))
)
)
)
(if (= I 0)
(princ (strcat "\n \nNo "
(strcase DNM)
".DWG"
" files found."))
(progn
(if (/= (rem I NSL) 0.0)
(write-line "[ Exit]^c^c" F2))
(write-line "" F2)
(write-line "***POP9" F2)
(write-line "[Symbole]" F2)
(setq I (1+ (fix (/ (1- I) NSL))))
(repeat I
(progn
(write-line
(strcat "["
SLB
" "
(itoa I)
"]^C^C$I="
SLB
(itoa I)
" $I=*")
F2)
(setq I (1- I))
))
(write-line
"Achtung: Richtigen Pfad für die *.dwg's eingeben!"
F2)
(write-line
"Diesen Menüdateiteil kopieren und in die zu verwendende Menüdatei einfügen!"
F2)
(setq F4 (open "$TMP$.SCR" "w"))
(write-line
(strcat "shell slidelib "
SLB
" <$TMP$.LST")
F4)
(write-line "del $TMP$.*" F1)
(close F4)
(command "script" "$TMP$")
))
(close F1)
(close F2)
(close F3)
(princ)
)
)
)
'() ; Finishing lambda
) ) ------------------
Gruß
 CADwiesel Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
markusG
Mitglied
Beiträge: 124
Registriert: 09.04.2002
|
erstellt am: 09. Dez. 2002 17:41 <-- editieren / zitieren --> Unities abgeben:
Hallo CADwiesel, danke für die schnelle Antwort. Leider funzt das ganze immer noch nicht! Die neue Fehlermeldung lautet: Kann das Shell-Programm nicht finden
; Fehler: Fehlerhafter Argumenttyp: FILE nil Eigentlich deutet das ja darauf hin, das die slidelib.exe nicht gefunden werden kann, oder?
Ich hab das Teil aber im Arbeitsvz (und im Support-Vz steht sie auch noch drinnen) ------------------
Gruß
...markusG Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel
Moderator
CAD4FM UG
Beiträge: 1989
Registriert: 05.09.2000 AutoCAD, Bricscad
Wir machen das Mögliche unmöglich
|
erstellt am: 10. Dez. 2002 08:09 <-- editieren / zitieren --> Unities abgeben: Nur für markusG
nee, wenn die slidelib nicht gefunden wird, beendet sich das prog ohne weiteres. Was hast Du für ein Betriebssystem? Hast Du noch Dos-Umgebung? Irgendwas mit der shell-ausführung scheint nicht zu klappen. Aber warte mal ich schreib's um. Ohne Shell. ------------------
Gruß
CADwiesel Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
markusG
Mitglied
Beiträge: 124
Registriert: 09.04.2002
|
erstellt am: 10. Dez. 2002 09:59 <-- editieren / zitieren --> Unities abgeben:
Guten Morgen CADwiesel, ich bin wirklich begeistert, daß Du Dir wieder für mich Zeit nimmst! Also ich arbeite mit NT4.0 SP6.
Ich habe das Lisp-Programm über R14 und auch über 2000 laufen lassen, --> kein erfolg. ------------------
Gruß
...markusG Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de (alle Foren)
| 
