修改CAD LISP脚本
cadlisp脚本修改(DEFUNC:J()(PRINC＂\n请您选取要和的标注：)＂）(SETQS选择集(SSGET'((0."DIMENSION")))m0)是一段LISP代码，用于在AutoCAD中选择所有类型为"DIMENSION"的图元，并将选择结果存储在S选择集中。这段代码的目的是为了获取所有尺寸标注对象。T标注个数（sslengthS选择集）ZS总数和0T对齐标注0)。在这个句子中，T表示与时代不符的细节的数量，通过sslength函数可以计算选择集S中的元素数量，ZS表示总共的细节数量，0
cad lisp脚本修改
(DEFUN C:J()
(PRINC ＂\n请您选取要和的标注：)＂）
(SETQ S选择集 (SSGET '((0 . "DIMENSION"))) m 0) 是一段LISP代码，用于在AutoCAD中选择所有类型为"DIMENSION"的图元，并将选择结果存储在S选择集中。这段代码的目的是为了获取所有尺寸标注对象。
T标注个数（sslength S选择集）ZS总数和 0 T对齐标注 0)。在这个句子中，T表示与时代不符的细节的数量，通过sslength函数可以计算选择集S中的元素数量，ZS表示总共的细节数量，0表示没有对齐的标注，T对齐标注表示与时代不符的细节中有多少被正确标注出来了。
(while(< m T标注个数)
"(setq a (entget (ssname S选择集 m)) m (1+ m))"这行代码是Lisp语言中的一个表达式，用于获取选择集S中第m个元素的属性，并将m的值加1。
(if (member (cdr (assoc 70 a)) '(1 33 129 161)))
(setq ZS总数和 (+ (cdr (assoc 42 a)) ZS总数和)) 这行代码是一个LISP语言的表达式，它的作用是将变量ZS总数和的值更新为当前值加上列表a中关联到键值42的值。在执行这行代码之前，需要确保变量ZS总数和和列表a已经定义并赋值了正确的值。通过这行代码，我们可以实现对ZS总数和的动态更新。
T对齐标注（1+ T对齐标注）））
)
(PRINC (STRCAT "共选择了 " (itoa T标注个数) " 个标注，\n共有 " (itoa T对齐标注) " 个对齐标注参与了相加，总和为：" (RTOS ZS总数和 2) "。"))
);END OF DEFUN
CAD二次开发修改LISP
(defun c:dz (/ oce1 n1 zn h1 sxh1 p1)
(vl-load-com)
(setq oce1 (getvar ＂cmdecho＂))
(setvar ＂cmdecho＂ 0)
(setq ms (vla-get-modelspace
(vla-get-activedocument (vlax-get-acad-object))是一条AutoLISP代码，用于获取当前活动的AutoCAD文档。它通过vlax-get-acad-object函数获取AutoCAD应用程序对象，然后使用vla-get-activedocument方法获取当前活动文档对象。这条代码可以在AutoCAD中使用，以便在程序中操作当前打开的文档。
)
)
(if qz
()
(setq qz ＂＂)
)
(if hz
()
(setq hz ＂＂)
)
(initget ＂c＂)
(setq nqz (getstring (strcat ＂\n请输入前缀<＂ qz ＂>/c（为空）： ＂ ）））
(cond
((= nqz ＂c＂) (setq qz ＂＂))
(T (if (/= nqz ＂＂)(setq qz nqz)))
)
(setq hz ＂＂)
(if (not (setq n1 (getint ＂\n请输入起始顺序号 <1>: ＂)))
(setq n1 1)
)
(setq zn 1)
(if (not (setq h1 (getreal ＂\n请指定文字高度 <2.5>: ＂)))
(setq h1 2.5)
)
(setq sxh1 (strcat qz (itoa n1) hz))是一段Lisp代码，它的作用是将三个字符串连接起来形成一个新的字符串。其中qz、n1和hz是变量，分别代表前缀、数字和后缀。通过使用strcat函数和itoa函数，我们可以将数字n1转换为字符串，并将前缀和后缀与之连接起来，最终得到一个新的字符串sxh1。这样的操作可以在编程中很方便地生成
(setq p1 (getpoint ＂\n请指定插入点： ＂)）
(while (/= p1 nil)
(setq p1 (vlax-3d-point p1))
(setq txt (vla-addtext
ms
sxh1
p1
h1
)
)
(setq
n1 (+ n1 zn)
sxh1 (strcat qz (itoa n1) hz)
p1 (getpoint ＂\n请指定下一插入点： ＂)
)
)
(setvar ＂cmdecho＂ oce1)
(vlax-release-object ms)
(princ)
)
正软商城本月促销专区，汇集办公、设计、安全、影音、系统工具及AI软件等正版软件优惠活动，提供限时折扣、特价授权和优惠购买信息，活动库存及价格以页面实时展示为准。
正软商城装机必备专区，精选办公、浏览器、安全防护、影音播放、压缩解压、设计创作和系统工具等电脑常用正版软件，帮助用户快速完成新电脑软件配置。
正软商城Windows软件专区，汇集适用于Windows电脑的办公、设计、安全防护、影音播放、开发工具和系统优化软件，提供软件介绍、系统要求、正版授权及购买下载服务。
正软商城macOS软件专区，精选适用于Mac电脑的办公、设计、影音、效率、开发和系统工具，提供软件功能介绍、macOS兼容版本、正版授权及购买下载服务。
正软商城iOS软件专区，精选适用于iPhone和iPad的办公、学习、影音、设计、效率及AI应用，提供功能介绍、适用设备、系统要求和正版获取方式等信息。
正软商城AI软件专区，汇集AI写作、AI绘画、AI视频、AI办公、AI编程、AI翻译、智能客服和数据分析等人工智能工具，提供功能介绍、适用平台、收费方式及正版购买信息。
正软商城PDF教程频道提供PDF编辑、转换、合并、拆分、压缩及格式处理方法，同时介绍常用PDF软件和工具的使用技巧。
赤友清理大师是一款为 Mac 设计的智能清理优化工具，可精准扫描垃圾、大文件、重复文件等，释放磁盘空间。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
极度公式是一款跨平台专业LaTeX公式识别编辑软件，支持OCR公式识别和多平台编辑。和使用说明，避免使用，享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
一款文字处理软件，一种订阅式的跨平台办公软件，基于云平台提供多种服务，通过将 Excel 和 Outlook 等应用与 OneDrive 和 Microsoft Teams 等强大的云服务相结合，Office 365 可让任何人使用任何设备随时随地创建和共享内容。
CodeExpander 是一款快捷短语输入增强工具，通过键入缩写自动展开为自定义文段，提升工作效率。任务管理和过程控制会更完整，持续下载、批量同步或需要稳定传输流程的场景会更适合它。
Mountain Duck 是一款能将多个网盘挂载到本地的工具，像本地磁盘一样使用网盘。清理链路的完整性会更好一些，做应用卸载、残留处理和空间整理时，通常能少走很多手动排查步骤。
极度公式是一款跨平台专业LaTeX公式识别编辑软件，支持OCR公式识别和多平台编辑。和使用说明，避免使用，享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
一款文字处理软件，一种订阅式的跨平台办公软件，基于云平台提供多种服务，通过将 Excel 和 Outlook 等应用与 OneDrive 和 Microsoft Teams 等强大的云服务相结合，Office 365 可让任何人使用任何设备随时随地创建和共享内容。
Wise Folder Hider Pro 是一款专业级文件和文件夹隐藏加密软件，为私密数据添加多重保护。高频操作更强调就近处理，浏览、整理和跨目录移动文件时，来回切换和重复点击都会少很多。
CodeExpander 是一款快捷短语输入增强工具，通过键入缩写自动展开为自定义文段，提升工作效率。任务管理和过程控制会更完整，持续下载、批量同步或需要稳定传输流程的场景会更适合它。
Mountain Duck 是一款能将多个网盘挂载到本地的工具，像本地磁盘一样使用网盘。清理链路的完整性会更好一些，做应用卸载、残留处理和空间整理时，通常能少走很多手动排查步骤。
