TheSwamp
Code Red => AutoLISP (Vanilla / Visual) => Topic started by: baitang36 on August 08, 2021, 07:44:05 AM
-
Using this function, you can get all drive letters.
However, this function is a reserved function of AutoCAD and is not written to public documents. It can only be invoked in Fas and can not be used in LSP.
An example is attached
-
should be able to do this via COM and WMI service
see https://docs.microsoft.com/en-us/windows/win32/wmisdk/wmi-tasks--disks-and-file-systems
edit "Scripting.FileSystemObject" Drives collection maybe
-
谢谢分享Thank you for sharing!
-
Cool baitang36
If anyone is looking for an uncompiled alternative HighFlyingBird has created sometheing
http://www.theswamp.org/index.php?topic=38102.msg431146#msg431146 (http://www.theswamp.org/index.php?topic=38102.msg431146#msg431146)
Cheers, Rod.
-
You can find drives
; drive type 1 is a usb 2 hard disk
(defun UsbDriveSerialNumber ( / fso dr)
(setq fso (vlax-create-object "Scripting.FileSystemObject"))
(vlax-for d (vlax-get fso 'Drives)
(if
(= (Vlax-get d 'DriveType) 2)
(setq dr (cons (list (vla-get-path d) (vla-get-SerialNumber d)) dr)
)
)
)
(vlax-release-object fso)
(reverse dr)
)
(UsbDriveSerialNumber)
-
You can find drives
; drive type 1 is a usb 2 hard disk
(defun UsbDriveSerialNumber ( / fso dr)
(setq fso (vlax-create-object "Scripting.FileSystemObject"))
(vlax-for d (vlax-get fso 'Drives)
(if
(= (Vlax-get d 'DriveType) 2)
(setq dr (cons (list (vla-get-path d) (vla-get-SerialNumber d)) dr)
)
)
)
(vlax-release-object fso)
(reverse dr)
)
(UsbDriveSerialNumber)
thank you
-
How to inject userCPU-ID-codes directly to programe_jc_aro10.Lsp.Txt?? (https://forums.autodesk.com/autodesk/attachments/autodesk/130/418520/1/cl_aclayer_entdimen_2020_pp_dcmwa_mtexttoleader-vlxc.zip)
Eu am nevoie de ajutor, sa compilam sursa LISP blochata pe seriaL CPU-id
Daca sursa este compilata pe serial CPU-ID, atunci chair Tu nu poti executa
programe.LSP.txt chiar in calculatorul baitang36Win10.
How to encrypt programe.Lsp.Txt with only, once CPU-ID-code,before FAs or before.Vlx ?? (https://forums.autodesk.com/autodesk/attachments/autodesk/130/418520/1/cl_aclayer_entdimen_2020_pp_dcmwa_mtexttoleader-vlxc.zip)
Please
help me, I cannot make only
-Alone?
>
:whistling:
:whistling:
[quote author=baitang36 link=topic=56936.msg605882#msg605882 date=1628579969]
You can find drives
(defun UsbDriveSerialNumber ( / fso dr)
(setq fso (vlax-create-object "Scripting.FileSystemObject"))
(vlax-for d (vlax-get fso 'Drives)
(if
(= (Vlax-get d 'DriveType) 2)
(setq dr (cons (list (vla-get-path d) (vla-get-SerialNumber d)) dr)
)
)
)
(vlax-release-object fso)
(reverse dr)
)
(UsbDriveSerialNumber)
[/quote]
Tu nu nevoie de extragerea de informatii Hard (CPU-serial, Usb-Serial)
deoarece tu downgrade programul.Vlx, si in acest mod, cerintele soft
programului VLX creste dificulatatile de functionare a programului.VLX
si apar multe incompatibilitatii software , atunci cand Tu compilezi LSP to VLX,
LSP to DES, LSP to ELC(NanoCad)...