vlax-safearray-set-element

时间: 2023-10-06 08:09:30 浏览: 44
`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代码转成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) ) ) )

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

最新推荐

recommend-type

基于STM32通过PWM驱动直流电机

工程代码基于STM32F103C8T6,使用PWM输出驱动电机,电机驱动使用TB6612,通过按键控制电机速度,并且速度通过OLED显示屏进行显示 使用到的硬件:STM32F103C8T6最小系统板,四针脚OLED显示屏,直流电机,按键,TB6612电机驱动模块
recommend-type

最新微信文章编辑器排版工具程序源码.rar

最新微信文章编辑器排版工具程序源码.rar最新微信文章编辑器排版工具程序源码.rar最新微信文章编辑器排版工具程序源码.rar
recommend-type

信息办公电信计费系统完整代码-netctossconformity.rar

这个压缩包 "netctossconformity.rar" 包含了一套电信计费系统的完整代码,它是针对计算机专业学生或开发者的JSP源码资料。这套系统的设计旨在为电信运营商提供一个可靠、高效的计费解决方案。通常,这种系统会涉及到用户账户管理、费用计算、账单生成、支付处理以及数据报告等功能模块。在内容上,该资料包可能包括了前端用户界面和后端服务器逻辑的源代码,使用JSP(Java Server Pages)技术实现。前端可能会涵盖用户注册、登录、查看账单和支付历史等操作的用户界面,而后端则包含数据库交互、计费算法、用户验证和安全性措施等关键功能。对于学习者来说,这个资料包是一个宝贵的实践资源,可以帮助他们理解电信计费系统的工作原理,以及如何运用JSP技术开发复杂的商业应用。通过分析这些代码,可以加深对Java Web技术栈的理解,包括但不限于Servlet API、JDBC(Java Database Connectivity)、HTML/CSS/JavaScript,以及可能涉及的框架如Spring或Struts。此外,这个资料包也可能含有一些文档,例如系统设计说明、代码结构介绍、部
recommend-type

交流电桥实验(95).zip

交流电桥实验(95).zip
recommend-type

matlab基于四自由度机械臂的轨迹规划源码.zip

优秀源码设计,详情请查看资源内容
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

:YOLOv1目标检测算法:实时目标检测的先驱,开启计算机视觉新篇章

![:YOLOv1目标检测算法:实时目标检测的先驱,开启计算机视觉新篇章](https://img-blog.csdnimg.cn/img_convert/69b98e1a619b1bb3c59cf98f4e397cd2.png) # 1. 目标检测算法概述 目标检测算法是一种计算机视觉技术,用于识别和定位图像或视频中的对象。它在各种应用中至关重要,例如自动驾驶、视频监控和医疗诊断。 目标检测算法通常分为两类:两阶段算法和单阶段算法。两阶段算法,如 R-CNN 和 Fast R-CNN,首先生成候选区域,然后对每个区域进行分类和边界框回归。单阶段算法,如 YOLO 和 SSD,一次性执行检
recommend-type

info-center source defatult

这是一个 Cisco IOS 命令,用于配置 Info Center 默认源。Info Center 是 Cisco 设备的日志记录和报告工具,可以用于收集和查看设备的事件、警报和错误信息。该命令用于配置 Info Center 默认源,即设备的默认日志记录和报告服务器。在命令行界面中输入该命令后,可以使用其他命令来配置默认源的 IP 地址、端口号和协议等参数。
recommend-type

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

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