vlax-safearray-get-element

`vlax-safearray-get-element` 是 AutoLISP 中的一个函数，用于从 COM 对象中的 SAFEARRAY 中获取指定元素的值。SAFEARRAY 是一种特殊的数组类型，用于在 COM 互操作中传递数组数据。

在 AutoLISP 中，使用 `vlax-safearray-get-element` 函数，需要传递以下参数：

- `array`：要获取元素的 SAFEARRAY 对象。
- `indices`：一个数组，用于指定要获取的元素的索引。

例如，要从名为 `mySafeArray` 的 COM 对象的第二行第三列中获取一个元素，可以使用以下代码：

(setq obj (vlax-get-object "myComObject"))
(setq mySafeArray (vlax-variant-value (vlax-invoke obj "GetSafeArray")))
(setq indices (list 1 2))
(setq element (vlax-safearray-get-element mySafeArray indices))

注意，`vlax-safearray-get-element` 只适用于 COM 对象中的 SAFEARRAY，而不适用于普通的 AutoLISP 数组。

相关问题

vlax-safearray-set-element

`Vlax-safearray-set-element` 是 AutoCAD Lisp 编程中的一个函数，它用于将给定的值设置到指定的 SafeArray 对象中的指定位置上。

SafeArray 是一种特殊的数组对象，它可以在 COM（Component Object Model） 编程中使用。在 AutoCAD 中，SafeArray 常常用于存储和操作 AutoCAD 绘图中的实体对象、坐标点、颜色等数据。

`Vlax-safearray-set-element` 函数的语法如下：

`(vlax-safearray-set-element SafeArray Index Value)`

其中，`SafeArray` 是要进行设置的 SafeArray 对象；`Index` 是要设置的元素的位置；`Value` 是要设置的值。

例如，下面的代码演示了如何使用 `Vlax-safearray-set-element` 函数向 SafeArray 对象中添加一些点坐标数据：

(setq ptArray (vlax-make-safearray vlax-vbDouble 0 (length points)))
(setq i 0)
(foreach pt points
    (vlax-safearray-set-element ptArray i pt)
    (setq i (1+ i))
)

在上面的代码中，`vlax-make-safearray` 函数用于创建一个双精度浮点型的 SafeArray 对象，`foreach` 循环用于遍历点坐标数据，`vlax-safearray-set-element` 函数用于将每个点的坐标值设置到 SafeArray 对象中的指定位置上。

(VL-LOAD-COM ) (DEFUN GET-MACIP222( / WMI SVR STR MAC S I ) (VL-LOAD-COM ) (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 (if (NULL (setq RETURN (VL-REGISTRY-READ "HKEY_CURRENT_USER\\HTSQ" "MacIP" )) ) (PROGN (setq RETURN (VL-REGISTRY-WRITE "HKEY_CURRENT_USER\\HTSQ" "MacIP" (RTOS (* (GETVAR "CDATE" ) 100000000.0 ) 2 8 ) )) )) )) RETURN ) (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 ) )

这段代码是一些LISP函数，用于获取MAC地址和IP地址，并进行相关计算。以下是对每个函数的解释：

1. GET-MACIP222函数：该函数使用WMI (Windows Management Instrumentation) 获取本机的MAC地址。它首先创建一个WbemScripting.SWbemLocator对象，然后连接到WMI服务器。接下来，它构造一个查询字符串来获取启用了IP的网络适配器的配置信息，并执行查询。然后，它使用VLAX-FOR循环遍历查询结果，并将每个结果对象的MAC地址添加到列表S中。最后，它释放所使用的COM对象，并返回列表S中的第一个MAC地址。

2. GET-MACIP函数：该函数与GET-MACIP222函数类似，但它首先尝试从注册表中读取之前存储的MAC地址。如果找不到存储的MAC地址，则执行与GET-MACIP222函数相同的操作，并将获取到的MAC地址存储到注册表中。

3. TRANS_MAC函数：该函数将一个十六进制的MAC地址字符串转换为标准格式的MAC地址。它遍历输入字符串，将非冒号字符添加到新的字符串N16STR中。然后，它将N16STR分割成两个字符为一组的子字符串，并将其转换为十进制值。最后，它将所有子字符串的十进制值按顺序连接起来，形成标准格式的MAC地址。

4. MAC_CALCU函数：该函数接受两个参数STR4和STRNOW，分别表示之前获取的MAC地址和当前的MAC地址。它首先将STR4补全为17个字符的长度（补全的字符由参数BW指定）。然后，它计算STR4和STRNOW中每两个字符一组的子字符串的十进制值，并将它们相加。最后，它将相加后的结果转换为十六进制字符串。

5. ZRJC函数：该函数执行一系列操作来计算一个键（ZM）和一个值（SQM）。它首先调用GET-MACIP函数获取MAC地址，并将其转换为标准格式。然后，它调用MAC_CALCU函数计算ZM键的值。接下来，它使用VLAX-LDATA-PUT函数将ZM和SQM存储到名为"CZL"的VLAX数据存储中。最后，它将"cmdecho"变量设置为1，以确保命令行窗口显示输出。

以上就是这些函数的功能描述。如果你有任何问题，请随时提问。