(DEFUN GET-MACIP( / I MAC RETURN S STR SVR WMI ) (VL-LOAD-COM ) (if (NULL (setq RETURN (VL-REGISTRY-READ "HKEY_CURRENT_USER\\HTSQ" "MacIP" )) ) (PROGN (setq WMI (vlax-create-object "WbemScripting.SWbemLocator" )) (setq SVR (vlax-invoke WMI 'CONNECTSERVER )) (setq STR "Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE") (setq MAC (vlax-invoke SVR 'EXECQUERY STR )) (VLAX-FOR I MAC (setq S (CONS (vlax-get I 'MACADDRESS ) S )) ) (vlax-release-object MAC ) (vlax-release-object SVR ) (vlax-release-object WMI ) (if (NULL (setq RETURN (CAR S )) ) (PROGN (setq RETURN (RTOS (* (GETVAR "CDATE" ) 100000000.0 ) 2 8 )) )) (VL-REGISTRY-WRITE "HKEY_CURRENT_USER\\HTSQ" "MacIP" RETURN ) )) RETURN ) (DEFUN TRANS_MAC( 16STR / MSG 10NUM I STR N16STR ADRESS YSU ) (DEFUN *ERROR*( MSG ) (PRINC MSG ) ) (setq 10NUM 0) (setq I 1) (setq STR "") (setq N16STR "") (setq ADRESS "") (REPEAT (STRLEN 16STR ) (if (/= ":" (setq YSU (SUBSTR 16STR I 1 )) ) (PROGN (setq N16STR (STRCAT N16STR YSU )) )) (setq I (1+ I )) ) (setq I 1) (REPEAT (/ (STRLEN N16STR ) 2 ) (setq STR2 (SUBSTR N16STR I 2 )) (setq ADRESS (STRCAT ADRESS (RTOS (16T10 STR2 ) 2 0 ) )) (setq I (+ 2 I )) ) (setq ADRESS ADRESS) ) (DEFUN MAC_CALCU( STR4 STRNOW BW / TIMES I JISUAN 16STR5 JISUAN2 ) (if (< (STRLEN STR4 ) 17 ) (PROGN (REPEAT (- 17 (STRLEN STR4 ) ) (setq STR4 (STRCAT BW STR4 )) ) )) (setq TIMES (+ (/ (STRLEN STR4 ) 3 ) 1 )) (setq I 1) (setq 16STR5 "") (REPEAT TIMES (if (AND (/= "" (setq JISUAN (SUBSTR STR4 I (+ 2 I ) )) ) (/= "" (setq JISUAN2 (SUBSTR STRNOW I (+ 2 I ) )) ) ) (PROGN (setq JISUAN (+ (ATOI JISUAN ) (ATOI JISUAN2 ) )) (setq 16STR5 (STRCAT 16STR5 (10T16 JISUAN ) )) )) (setq I (+ 3 I )) ) (setq 16STR5 16STR5) ) (DEFUN ZRJC( STRNOW BW / SQM ZM ) (setq SQM (TRANS_MAC (GET-MACIP ) )) (setq ZM (MAC_CALCU SQM STRNOW BW )) (vlax-ldata-put "CZL" "Key" ZM ) (vlax-ldata-put "CZL" "SQM" SQM ) (setq ZM nil) (PRINC ) (if (= (GETVAR "cmdecho" ) 0 ) (PROGN (SETVAR "cmdecho" 1 ) )) (PRINC ) )
时间: 2023-10-30 09:04:55 浏览: 148
这段代码定义了几个LISP函数。
第一个函数是GET-MACIP,它没有输入参数。该函数的主要功能是获取计算机的MAC地址和IP地址,并将MAC地址存储到注册表中的"HKEY_CURRENT_USER\\HTSQ"键中的"MacIP"值中。如果注册表中已经存在"MacIP"值,则直接返回该值。
第二个函数是TRANS_MAC,它接受一个参数16STR,表示一个16进制的MAC地址字符串。该函数的主要功能是将16进制的MAC地址转换为标准的MAC地址格式(带有冒号分隔符)。
第三个函数是MAC_CALCU,它接受两个参数STR4和STRNOW,分别表示两个MAC地址字符串。该函数的主要功能是计算两个MAC地址的和,并将结果转换为标准的MAC地址格式。
最后一个函数是ZRJC,它接受两个参数STRNOW和BW,分别表示当前的MAC地址字符串和一个字符串。该函数的主要功能是调用GET-MACIP函数获取MAC地址,并使用MAC_CALCU函数计算得到最终的MAC地址结果。然后,将计算结果存储到LISP数据区中的"CZL"变量的"Key"和"SQM"键中。
以上就是这些函数的主要功能和流程。
阅读全文