展开菜单
首页 精品内容 本月促销 装机必备 Windows PDF教程 macOS软件 IOS软件 Android AI 专题
全部分类

当前位置:

首页 > 软件教程 > 修改CAD LISP脚本

修改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)

    )

    本站声明:本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系bd@zhengruan.com
    作者最新文章
    软件教程
    相关文章 更多
    精品专题 更多
    装机必备

    正软商城装机必备专区,精选办公、浏览器、安全防护、影音播放、压缩解压、设计创作和系统工具等电脑常用正版软件,帮助用户快速完成新电脑软件配置。

    Windows

    正软商城Windows软件专区,汇集适用于Windows电脑的办公、设计、安全防护、影音播放、开发工具和系统优化软件,提供软件介绍、系统要求、正版授权及购买下载服务。

    PDF教程

    正软商城PDF教程频道提供PDF编辑、转换、合并、拆分、压缩及格式处理方法,同时介绍常用PDF软件和工具的使用技巧。

    macOS软件

    正软商城macOS软件专区,精选适用于Mac电脑的办公、设计、影音、效率、开发和系统工具,提供软件功能介绍、macOS兼容版本、正版授权及购买下载服务。

    IOS软件

    正软商城iOS软件专区,精选适用于iPhone和iPad的办公、学习、影音、设计、效率及AI应用,提供功能介绍、适用设备、系统要求和正版获取方式等信息。

    AI

    正软商城AI软件专区,汇集AI写作、AI绘画、AI视频、AI办公、AI编程、AI翻译、智能客服和数据分析等人工智能工具,提供功能介绍、适用平台、收费方式及正版购买信息。

    Mac软件 更多
    Postman macOS版
    Postman macOS版

    Postman是一套面向API全生命周期的开发与测试平台,可在Mac上发送和调试多种协议请求,管理集合、环境及认证信息,并完成脚本测试、模拟服务、监控、文档发布和团队协作。它适合开发、测试及运维人员使用,提供个人免费方案。

    Docker Desktop macOS版
    Docker Desktop macOS版

    Docker Desktop 是 Docker 官方为 Mac 提供的容器开发环境,集成 Docker Engine、命令行工具、Compose、Build、Kubernetes 与图形化管理界面。

    Android Studio macOS版
    Android Studio macOS版

    Android Studio 是 Google 面向安卓应用开发提供的官方集成开发环境,基于 IntelliJ IDEA 构建。它整合智能代码编辑、Gradle 构建、界面预览、设备模拟、性能分析、调试测试及 APK 分析等工具。

    Xcode macOS版
    Xcode macOS版

    Xcode 是苹果面向 Mac 提供的官方集成开发环境,将代码编辑、项目构建、SwiftUI 实时预览、设备模拟、自动化测试、断点调试、性能分析和应用分发整合在同一套工作流中,适合开发与维护 iPhone、iPad、Mac、Apple Wa

    JetBrains WebStorm macOS版
    JetBrains WebStorm macOS版

    JetBrains WebStorm 是面向 JavaScript、TypeScript 和现代 Web 技术的专业集成开发环境,可智能理解项目结构,提供代码补全、重构、错误检查、运行调试、测试及 Git 工具。

    PhpStorm macOS版
    PhpStorm macOS版

    PhpStorm 是 JetBrains 推出的专业 PHP 集成开发环境,可在 Mac 上完成代码编写、智能检查、重构、调试、测试和数据库管理。它支持主流 PHP 框架、Composer、Git、Docker 与远程解释器。

    JetBrains PyCharm macOS版
    JetBrains PyCharm macOS版

    JetBrains PyCharm 是面向 Python 开发者的集成开发环境,提供智能补全、代码检查、重构、调试、测试、版本控制及虚拟环境管理功能。Mac 版兼容 Intel 与 Apple 芯片,核心功能可免费使用。

    JetBrains IntelliJ IDEA macOS版
    JetBrains IntelliJ IDEA macOS版

    IntelliJ IDEA 是 JetBrains 推出的专业集成开发环境,重点服务于 Java、Kotlin 与 JVM 项目开发。软件集成代码补全、静态检查、重构、调试、测试、版本控制及构建工具,并可借助插件扩展语言和框架支持。

    Visual Studio Code macOS版
    Visual Studio Code macOS版

    Visual Studio Code 是微软提供的免费代码编辑器,支持 macOS,并为 Intel 与 Apple 芯片 Mac 提供适配版本。软件集代码编辑、调试、Git 源代码管理、集成终端和扩展市场于一体。

    REAPER macOS版
    REAPER macOS版

    REAPER是Cockos开发的数字音频工作站,提供多轨音频与MIDI录制、剪辑、处理、混音和母带制作工具。Mac版兼容Intel与Apple芯片,支持AU、VST、VST3、CLAP等插件格式,并提供高度可定制的工作流程。

    Adobe Audition macOS版
    Adobe Audition macOS版

    Adobe Audition 是面向播客、影视后期、音乐制作及内容创作者的专业音频工作站,提供波形精修、多轨录制与混音、频谱编辑、降噪修复、响度匹配和效果处理工具,并可与 Adobe Premiere 协同完成视频声音制作。

    Pro Tools macOS版
    Pro Tools macOS版

    Pro Tools 是 Avid 推出的专业数字音频工作站,覆盖多轨录音、无损剪辑、MIDI 编曲、插件处理、自动化混音及声音与画面同步等工作。它拥有 Intro、Artist、Studio 和 Ultimate 等方案。

    WINDOWS 更多
    Postman Windows版
    Postman Windows版

    Postman 是面向 API 全生命周期的开发与协作平台。Windows 桌面版可用于构建和发送 HTTP、GraphQL、gRPC、WebSocket、MQTT 等请求,并提供环境变量、集合、脚本测试、模拟服务、监控、文档及团队工作区等

    Docker Desktop Windows版
    Docker Desktop Windows版

    Docker Desktop 为 Windows 开发者提供集成式容器环境,内置 Docker Engine、命令行工具、Compose、Build 与 Kubernetes 等组件,可在本机完成镜像构建、容器运行、日志查看和资源管理。

    Android Studio Windows版
    Android Studio Windows版

    Android Studio 是 Google 面向 Android 应用开发提供的官方集成开发环境,以 IntelliJ IDEA 为基础,集成智能代码编辑、Gradle 构建、设备模拟、界面预览、调试测试及性能分析工具,

    JetBrains WebStorm Windows版
    JetBrains WebStorm Windows版

    WebStorm 是 JetBrains 面向 JavaScript、TypeScript 和现代 Web 技术打造的集成开发环境。它提供项目级代码分析、智能补全、安全重构、导航搜索,并集成调试、测试、终端、Git 与常用前端工具,

    JetBrains PhpStorm Windows版
    JetBrains PhpStorm Windows版

    PhpStorm 是 JetBrains 面向 PHP 与现代 Web 开发打造的专业集成开发环境,提供代码补全、静态检查、重构、调试、测试、数据库、版本控制及前端语言支持。Windows 用户可直接下载安装程序,

    JetBrains PyCharm Windows版
    JetBrains PyCharm Windows版

    PyCharm 是 JetBrains 推出的 Python 集成开发环境,提供智能代码补全、错误检查、重构、调试、测试、Git、终端及 Jupyter Notebook 支持。统一版安装后可体验 30 天 Pro 功能,

    JetBrains IntelliJ IDEA Windows版
    JetBrains IntelliJ IDEA Windows版

    JetBrains IntelliJ IDEA 是以 Java、Kotlin 和 JVM 项目为核心的专业集成开发环境,提供智能补全、代码检查、安全重构、调试、测试、版本控制及构建工具集成。统一发行版的核心功能可免费用于商业和非商业项目,

    Visual Studio Code Windows版
    Visual Studio Code Windows版

    Visual Studio Code 是微软推出的免费代码编辑器,Windows 版集成智能补全、代码导航、调试、终端和版本控制,并可通过扩展添加语言、格式化及远程开发能力。它启动较快、配置灵活,

    REAPER Windows版
    REAPER Windows版

    REAPER 是 Cockos 推出的数字音频工作站,适用于录音、MIDI 编曲、音频编辑、混音、母带制作及声音设计。软件安装包小巧,支持多轨录制、灵活路由、自动化、第三方插件和脚本扩展,并提供完整功能的 60 天免费评估期。

    Adobe Audition Windows版
    Adobe Audition Windows版

    Adobe Audition 是面向播客、影视后期、广播与音乐制作的专业音频工作站,提供波形编辑、多轨混音、频谱分析、录音、降噪修复和效果处理等功能。Windows 版通过 Adobe Creative Cloud 安装和管理,

    Pro Tools Windows版
    Pro Tools Windows版

    Pro Tools 是 Avid 推出的专业数字音频工作站,提供多轨录音、音频剪辑、MIDI编曲、插件处理、自动化混音及影视声音制作能力。它适合音乐人、录音师、制作人和音频后期团队使用,并提供免费入门版、订阅方案及永久授权选择。

    Cubase Windows版
    Cubase Windows版

    Cubase 是 Steinberg 推出的数字音频工作站,提供 MIDI 编曲、多轨录音、音频编辑、虚拟乐器、效果处理、自动化、混音和母带输出工具。其 Pro、Artist 与 Elements 版本面向不同预算和制作规模,