Topic: removing the Shell splash...

[Andrea]

Hi all...

Is it possible to remove the DOS spash screen when using

(command "_shell" .....) ?

[Kerry]

Yep, just read the .PGP file notes < the header in the ACAD.PGP file> 

Code: [Select]

;  External command format:
;  <Command name>,[<Shell request>],<Bit flag>,[*]<Prompt>,

;  The bits of the bit flag have the following meanings:
;  Bit 1: if set, don't wait for the application to finish
;  Bit 2: if set, run the application minimized
;  Bit 4: if set, run the application "hidden"
;  Bit 8: if set, put the argument string in quotes

[Andrea]

thanks alot Kerry,..

I will try tomorrow...

[Patrick_35]

Why use a (command "_shell" .....) ?
You have the function startapp and activex functions

@+

[Andrea]

Salut Pat.

using SHELL for this..

Code: [Select]

(command "SH" "IPCONFIG > c:\\IPCFG.txt")
(setq f1 (open "c:\\IPCFG.txt" "r"))
(setq l1 (read-line f1))
(while l1
  (setq IPyes (vl-string-search "IP." l1))
  (if IPyes
    (progn
    (setq sp (vl-string-position (ascii ":") l1))
    (setq IPA (substr l1 (+ sp 3)))
  ))
(setq l1 (read-line f1))
)
(close f1)

(alert (strcat "IP Adress is : " IPA))


[Patrick_35]

Salut Andrea
And why not

Code: [Select]

(defun ipaddress (/ item meth1 meth2 ml s wmi)
  (vl-load-com)
  (setq ml '()
WMI (vlax-create-object "WbemScripting.SWbemLocator")
meth1 (VLAX-INVOKE WMI 'ConnectServer nil nil nil nil nil nil nil nil)
meth2 (vlax-invoke meth1 'ExecQuery (strcat "Select IPAddress from Win32_NetworkAdapterConfiguration"))
S (vlax-for item meth2 (setq ml (append
  (vlax-get item 'IPAddress)
  ml
)
       )
  )
  )
  (vlax-release-object meth1)
  (vlax-release-object meth2)
  (vlax-release-object wmi)
  s
)
do (alert (strcat "IP Adress is : " (car (ipaddress))))

ps : i've find this lisp in this forum, but i don't know where

@+

[Andrea]

WoO !.

Merci. Pat.

but the only think that i understanf in this code...is (vl-load-com)..

euh,.....eaven that..

also,.....maybe you mean.......(caddr (ipaddress)) and not (car (ipaddress))

[Patrick_35]

Why not 
Not need to understand. They are functions in activex and one is able to find them ..............in vba  :kewl:

@+

[Andrea]

I have VMWARE on my PC...
this will create 2 mores IP adress..

so i need to modify the routine like that...

Code: [Select]

(if (eq (vl-list-length (ipaddress)) 1)
(setq IPbureau (read (substr (car (ipaddress)) 9 3)))
(setq IPbureau (read (substr (caddr (ipaddress)) 9 3))))
just let you know..