CADsite forum

AutoCAD => Autolisp => Topic gestart door: Tom op wo 20 04 2005, 14:13:51

Titel: Splash screen
Bericht door: Tom op wo 20 04 2005, 14:13:51
Ik heb op http://www.afralisp.com/lispa/lisp59.htm iets gevonden van een splash screen.

wanneer ik deze lisp probeer geeft hij altijd volgende fout:
; error: no function definition: DOS_SPLASH

Weet iemand hoe zo een splash screen werkt ?

Alvast bedankt

Tom
Titel: Re: Splash screen
Bericht door: HofCAD op wo 20 04 2005, 16:14:53
Citaat van: TomIk heb op http://www.afralisp.com/lispa/lisp59.htm iets gevonden van een splash screen.

wanneer ik deze lisp probeer geeft hij altijd volgende fout:
; error: no function definition: DOS_SPLASH

Weet iemand hoe zo een splash screen werkt ?

Alvast bedankt

Tom

Beste Tom,

Beschik je ook over DOSLib.Arx, en heb je die ook geladen?

Groetjes HofCAD CSI
Titel: Splash screen
Bericht door: Tom op do 21 04 2005, 08:03:17
De ARX file is geladen. hij geeft wel een kader om een tekening te openen, maar een splash screen komt er niet op.
in onderstaand deel van die lisproutine van op die site staat doslib13.arx doslib14.arx en doslib2k.arx maar ik heb enkel doslib15.arx en doslib16.arx. Ik wil enkel bij het opstarten van AutoCAD zo een splash screen laten komen.

(cond
     ((= (atoi (substr (getvar "acadver") 1 2)) 13)
       (if (not (member "doslib13.arx" (arx)))
         (arxload (findfile "doslib13.arx"))))
     ((= (atoi (substr (getvar "acadver") 1 2)) 14)
       (if (not (member "doslib14.arx" (arx)))
         (arxload (findfile "doslib14.arx"))))
     ((= (atoi (substr (getvar "acadver") 1 2)) 15)
       (if (not (member "doslib2k.arx" (arx)))
         (arxload (findfile "doslib2k.arx"))))
   );cond
Titel: Splash screen
Bericht door: Joop op do 21 04 2005, 09:26:11
Op de volgende site kun je de juiste doslib downloaden: DOSLIB6.1
http://download.mcneel.com/download.asp?id=doslib

Wijzif de code in:

(cond
((= (atoi (substr (getvar "acadver") 1 2)) 13)
(if (not (member "doslib13.arx" (arx)))
(arxload (findfile "doslib13.arx"))))
((= (atoi (substr (getvar "acadver") 1 2)) 14)
(if (not (member "doslib14.arx" (arx)))
(arxload (findfile "doslib14.arx"))))
((= (atoi (substr (getvar "acadver") 1 2)) 15)
(if (not (member "doslib61.arx" (arx)))
(arxload (findfile "doslib61.arx"))))
);cond
Titel: Splash screen
Bericht door: Tom op do 21 04 2005, 09:37:14
ik laad de arx bestanden en als ik dan zo een splashscreen op het scherm wil latenkomen dan komt er niets op het scherm

(dos_splash "afralisp.bmp" 5)

bij dit commando komt er gewoon een nil terug.
Titel: Splash screen
Bericht door: Joop op do 21 04 2005, 10:13:16
Eerst een correctie: :oops:  :oops:
De wijziging die ik eerder heb opgegeven moet zijn doslib15.arx.


Staat de afralisp,bmp in het zoekpad?
De bmp die je wilt tonen moet namelijk in het zoekpad staan OF je moet het hele pad opgeven.
b.v.:
(dos_splash "c://Program Files//AutoCAD2002//bmp//afralisp.bmp" 5)

:!: Zowel bij succes als bij fout krijg je melding nil. :!:
(zie help van doslib)
Titel: Splash screen
Bericht door: Tom op do 21 04 2005, 15:29:21
bedankt voor jullie hulp. het werkt zeer goed

Tom