vlax-safearray-get-element

时间: 2023-10-06 18:10:23 浏览: 48
vlax-safearray-get-element 是一种 AutoLISP 函数,它用于从 Visual LISP 中的 SafeArray 对象中获取元素。 SafeArray 是一种用于在 Visual Basic、Visual C++ 和 Visual Basic for Applications (VBA) 中存储和传输数组的数据类型。在 AutoLISP 中,可以使用 vlax-make-safearray 函数来创建 SafeArray 对象。一旦创建了 SafeArray 对象,可以使用 vlax-safearray-get-element 函数来获取其中的元素。 函数的语法如下: (vlax-safearray-get-element safe-array indices) 其中,safe-array 是 SafeArray 对象,indices 是包含要获取元素的索引的列表。对于一维数组,indices 是一个整数,对于二维数组,indices 是一个包含两个整数的列表,以此类推。 下面是一个示例,演示如何使用 vlax-safearray-get-element 函数从 SafeArray 对象中获取元素: ``` (setq sa (vlax-make-safearray vlax-vbDouble '(0 3) '((1.0 2.0 3.0 4.0)))) ; 创建一个包含四个元素的一维数组 (setq elem (vlax-safearray-get-element sa 2)) ; 获取第三个元素,即 3.0 (setq sa2 (vlax-make-safearray vlax-vbDouble '(0 1 0 1) '(((1.0 2.0) (3.0 4.0)) ((5.0 6.0) (7.0 8.0))))) ; 创建一个包含四个元素的二维数组 (setq elem2 (vlax-safearray-get-element sa2 '(0 1))) ; 获取第一行第二列的元素,即 4.0 ``` 注意:vlax-safearray-get-element 函数只能用于具有正确类型的 SafeArray 对象。如果 SafeArray 对象的类型与要获取的元素类型不匹配,函数将返回 nil。

相关推荐

(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 ) )

(DEFUN RESPONSE_ACTION( DD DAYS0921 ABSOLUTETIME0921 / BKEY LOOP ) (setq LOOP T) (while (and LOOP ) (COND ((= 10 DD ) (ALERT "试用有时长限制,先看视频再操作,超过时长,插件会自动损毁。请根据B站视频操作\nhttps://space.bilibili.com/1226009502\n如果遇到问题,请联系淘宝店铺【画图神器】提供免费技术支持\n如果插件满足您的需求,请购买正版支持一下,谢谢。" ) (PRINC "\nhttps://space.bilibili.com/1226009502" ) (if (NULL (TIMECHECK DAYS0921 ABSOLUTETIME0921 ) ) (PROGN (ALERT "\n试用时间到,如果插件满足您的需求,请联系淘宝【店铺】画图神器购买正版支持一下,谢谢。" ) (PRINC "\n试用时间到,如果插件满足您的需求,请联系淘宝【店铺】画图神器购买正版支持一下,谢谢。" ) (setq DD (POPUP_INTERFACE )) )(PROGN (vlax-ldata-put "CZL" "USERKEY" (setq BKEY "iq27p0j") ) (VL-REGISTRY-WRITE ADRRESREGESTER "key" BKEY ) (setq LOOP nil) )) ) ((OR (= 1 DD ) (= 11 DD ) ) (setq BKEY (NTH 1 VALUE0919 )) (if (OR (NULL BKEY ) (WCMATCH BKEY ",* *,*画图神器*" ) ) (PROGN (setq BKEY "函数出错") )) (vlax-ldata-put "CZL" "USERKEY" BKEY ) (VL-REGISTRY-WRITE ADRRESREGESTER "key" BKEY ) (if (/= BKEY (vlax-ldata-get "CZL" "KEY" ) ) (PROGN (ALERT "\n密码错误,如有疑问,欢迎联系淘宝【店铺】画图神器。" ) (PRINC "\n密码错误,如有疑问,欢迎联系淘宝【店铺】画图神器。" ) (setq DD (POPUP_INTERFACE )) )(PROGN (ALERT "\n密码正确1\n" ) (PRINC "\n密码正确1,激活成功!\n" ) (setq LOOP nil) )) (PRINC ) ) ((= 0 DD ) (PRINC "\n已取消,如有疑问,欢迎联系淘宝【店铺】画图神器。" ) (EXIT ) ) ((= 100 DD ) (PRINC "\n操作视频" ) (PRINC "\n如果浏览器无响应,可手动前往:\nhttps://space.bilibili.com/1226009502\n******" ) (startapp "explorer.exe" "https://space.bilibili.com/1226009502" ) (setq DD (POPUP_INTERFACE )) ) ) ) )

帮我把一下lisp代码转成C#,实现相同的功能:(vl-load-com) ; 加载VL函数 (setq source_text nil) ; 设源文字为全局变量 (defun c:22 (/ en en_data en1 en1_data ent entype i ob pt ss ss_data) (setvar "cmdecho" 0) (setvar "ErrNo" 0) (command "_.undo" "begin") (if (= source_text nil) (if (setq en (nentsel "\n请选择源文字(右键退出):")) (setq en_data (entget (car en)) entype (cdr (assoc 0 en_data)) source_text (if (= entype "ATTDEF")(cdr (assoc 2 en_data))(cdr (assoc 1 en_data)));如果是属性字,则取“标记”为源文字 ) ) (if (and (= (setq en (nentsel (strcat "\n请选择源文字: 默认:" source_text))) nil) (= (getvar "ErrNo") 52)) (setvar "ErrNo" 0) (if en (setq en_data (entget (car en)) entype (cdr (assoc 0 en_data)) source_text (if (= entype "ATTDEF")(cdr (assoc 2 en_data))(cdr (assoc 1 en_data))) ) (setvar "ErrNo" 52) ) ) ) (prompt "\n请选择要修改内容的文字:") (while (/= (getvar "ErrNo") 52) (prompt (strcat "\n文字内容将被刷成:" source_text)) (if (and (setq ss (ssget ":S" '((0 . "*TEXT,TCH_DRAWINGNAME,TCH_ELEVATION,INSERT,ATTDEF,ATTRIB")))) source_text) (progn (if (= (caar (setq ss_data (ssnamex ss 0))) 1) (progn ; 点选时 (setq ent (ssname ss 0) pt (cadr (last (car ss_data))) en1 (car (nentselp pt)) en1_data (entget en1) entype (cdr (assoc 0 en1_data)) ob (vlax-ename->vla-object en1) ) (wenzishua entype ob source_text en1 ent) (princ) ) (progn ; 框选时 (setq i 0) (repeat (sslength ss) (setq en1 (ssname ss i) ent en1 en1_data (entget en1) entype (cdr (assoc 0 en1_data)) ob (vlax-ename->vla-object en1) ) (wenzishua entype ob source_text en1 ent) (setq i (1+ i)) ) ; end repeat ) ) ) ) ) ; end while (command ".undo" "_end") (setvar "ErrNo" 0) (setvar "cmdecho" 1) (princ) ) (defun wenzishua (entype ob source_text en1 ent) ; cad文字的内容格式刷 (if (or (= entype "TEXT") (= entype "MTEXT") ) (progn (vla-put-TextString ob source_text) (entupd en1) (entupd ent) ) ) ; 天正文字的内容格式刷 (if (or (= entype "TCH_TEXT") (= entype "TCH_ELEVATION") ) (progn (vlax-put-property ob 'Text source_text) (entupd en1) (entupd ent) ) ) ; 天正图名、标高的内容格式刷 (if (= entype "TCH_DRAWINGNAME") (progn (vlax-put-property ob 'NameText source_text) (entupd en1) (entupd ent) ) ) ; 属性文字 只改"标记" (if (= entype "ATTDEF") (progn (vla-put-TagString ob source_text);改标记 (entupd en1) (entupd ent) ) ) ; 块中属性文字 只改"默认" (if (= entype "ATTRIB") (progn (vla-put-TextString ob source_text);改默认 (entupd en1) (entupd ent) ) ) )

最新推荐

recommend-type

机械设计试验机sw20可编辑非常好的设计图纸100%好用.zip

机械设计试验机sw20可编辑非常好的设计图纸100%好用.zip
recommend-type

JSP基于WEB的图书馆借阅系统的设计与实现(源代码+论文).zip

JSP基于WEB的图书馆借阅系统的设计与实现(源代码+论文)
recommend-type

1_6_huh猫(扭曲声音)_分p整合猫meme素材90+(持续更新中).mp4

1_6_huh猫(扭曲声音)_分p整合猫meme素材90+(持续更新中).mp4
recommend-type

【超炫购物模板】仿拍鞋网商城首页触屏版html5手机wap购物网站模板下载.zip

【超炫购物模板】仿拍鞋网商城首页触屏版html5手机wap购物网站模板下载.zip
recommend-type

国内外顶尖信用评级方法+18个行业信用评级指标体系+穆迪评级方法

国内外顶尖评级方法 中诚信评级方法汇总 18个行业评级指标体系文档 募集+法律意 见书+评级报告案例 穆迪评级方法 某公司债券募集说明书及评级报告-经典案例 国 内外顶尖评级方法.part2.rar (13.32 MB)
recommend-type

RTL8188FU-Linux-v5.7.4.2-36687.20200602.tar(20765).gz

REALTEK 8188FTV 8188eus 8188etv linux驱动程序稳定版本, 支持AP,STA 以及AP+STA 共存模式。 稳定支持linux4.0以上内核。
recommend-type

管理建模和仿真的文件

管理Boualem Benatallah引用此版本:布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学,1996年。法语。NNT:电话:00345357HAL ID:电话:00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆,用于存放和传播科学研究论文,无论它们是否被公开。论文可以来自法国或国外的教学和研究机构,也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire
recommend-type

numpy数组索引与切片技巧

![numpy数组索引与切片技巧](https://img-blog.csdnimg.cn/f610d87ed50745d2b7052af887da2d0d.png) # 2.1 整数索引 整数索引是 NumPy 数组中索引元素的最简单方法。它允许您使用整数来访问数组中的特定元素或子数组。 ### 2.1.1 单个元素索引 单个元素索引使用一个整数来访问数组中的单个元素。语法为: ```python array[index] ``` 其中: * `array` 是要索引的 NumPy 数组。 * `index` 是要访问的元素的索引。 例如: ```python import
recommend-type

javaboolean类型怎么使用

Java中的boolean类型表示真或假,只有两个可能的值。在Java中,boolean类型的变量可以被初始化为false或true。可以使用以下语法来声明和初始化一个boolean类型的变量: ``` boolean myBoolean = true; ``` 在Java中,boolean类型的变量通常用于控制流程和条件测试,例如: ``` if (myBoolean) { // do something if myBoolean is true } else { // do something if myBoolean is false } ``` 除了if语句之外
recommend-type

c++校园超市商品信息管理系统课程设计说明书(含源代码) (2).pdf

校园超市商品信息管理系统课程设计旨在帮助学生深入理解程序设计的基础知识,同时锻炼他们的实际操作能力。通过设计和实现一个校园超市商品信息管理系统,学生掌握了如何利用计算机科学与技术知识解决实际问题的能力。在课程设计过程中,学生需要对超市商品和销售员的关系进行有效管理,使系统功能更全面、实用,从而提高用户体验和便利性。 学生在课程设计过程中展现了积极的学习态度和纪律,没有缺勤情况,演示过程流畅且作品具有很强的使用价值。设计报告完整详细,展现了对问题的深入思考和解决能力。在答辩环节中,学生能够自信地回答问题,展示出扎实的专业知识和逻辑思维能力。教师对学生的表现予以肯定,认为学生在课程设计中表现出色,值得称赞。 整个课程设计过程包括平时成绩、报告成绩和演示与答辩成绩三个部分,其中平时表现占比20%,报告成绩占比40%,演示与答辩成绩占比40%。通过这三个部分的综合评定,最终为学生总成绩提供参考。总评分以百分制计算,全面评估学生在课程设计中的各项表现,最终为学生提供综合评价和反馈意见。 通过校园超市商品信息管理系统课程设计,学生不仅提升了对程序设计基础知识的理解与应用能力,同时也增强了团队协作和沟通能力。这一过程旨在培养学生综合运用技术解决问题的能力,为其未来的专业发展打下坚实基础。学生在进行校园超市商品信息管理系统课程设计过程中,不仅获得了理论知识的提升,同时也锻炼了实践能力和创新思维,为其未来的职业发展奠定了坚实基础。 校园超市商品信息管理系统课程设计的目的在于促进学生对程序设计基础知识的深入理解与掌握,同时培养学生解决实际问题的能力。通过对系统功能和用户需求的全面考量,学生设计了一个实用、高效的校园超市商品信息管理系统,为用户提供了更便捷、更高效的管理和使用体验。 综上所述,校园超市商品信息管理系统课程设计是一项旨在提升学生综合能力和实践技能的重要教学活动。通过此次设计,学生不仅深化了对程序设计基础知识的理解,还培养了解决实际问题的能力和团队合作精神。这一过程将为学生未来的专业发展提供坚实基础,使其在实际工作中能够胜任更多挑战。