CAD-autolisp(二)——选择集、命令行设置对话框、符号表

目录

  • 一、选择集
    • 1.1 选择集的创建
    • 1.2 选择集的编辑
    • 1.3 操作选择集
  • 二、命令行设置对话框
    • 2.1 设置图层
    • 2.2 加载线型
    • 2.3 设置字体样式
    • 2.4 设置标注样式(了解即可)
  • 三、符号表
    • 3.1 简介
    • 3.2 符号表查找
    • 3.2 符号表删改增

一、选择集

  • 定义:批量选择出目标图元,ssget函数,结果是个图元的集合,多次加入相同元素,集合不变,多次删除相同元素,集合只执行第一次

1.1 选择集的创建

  • ssget函数三种选择模式:
    • C(crossing):等同鼠标点选右下角向左上角划区域
    • W(window):等同鼠标点选左上角向右下角划区域
    • F(fence):与点表所确定的折线相交的所有对象

    检验选择集包含的图元数:(sslength 选择集变量名),变量名如下代码的ss1等

  • 代码示例
    ;基础使用:过滤并将框选的所有图元创建成一个选择集
    (setq ss1 (ssget "c" '(100 0) '(0 100)))
    (setq ss2 (ssget "w" '(0 100) '(100 0)))
    (setq ss3 (ssget "f" (list '(100 0) '(0 100) '(100 100))))
    ;全图过滤出指定图元
    ;过滤出并将全图中的圆创建成一个选择集ss4返回:<Selection set:164>
    (setq ss4 (ssget "x" (list (cons 0 "circle"))))
    ;多过滤条件
    (setq ss5 (ssget "x" (list (cons 0 "circle") (cons 410 "Model"))))
    ;带比较符过滤:全图过滤圆,且圆半径(组码40)不小于(组码-4)10.0
    (setq ss6 (ssget "x" (list (cons 0 "circle") (cons -4 ">=") (cons 40 10.0))))
    
  • 动态选择c或w模式
    ;屏幕上点选两个点,根据两个点的相对位置自动选择模式
    (setq p1 (getpoint))
    ;以p1为基点,拉虚线框
    (setq p2 (getcorner p1))
    (if (> (car p1) (car p2))
      (setq ss7 (ssget "c" p1 p2))
      (setq ss7 (ssget "w" p1 p2))
      )
    

1.2 选择集的编辑

  • 从选择集增删图元
    (setq ent1 (car(entsel)))
    
    ;创建一个空的选择集
    (setq ss1 (ssadd))
    ;将图元ent1增加到已有选择集ss1中,直接修改原ss1
    (ssadd ent1 ss1)	
    
    ;最内侧括号创建一个只包含ent1的选择集,每次运行都创建一个新的
    (setq ss2 (ssadd ent1))	
    
    ;从选择集删除一个图元,直接修改原ss2
    ;若图元ent1不存在于ss2中,返回nil
    ;若图元ent1存在于ss2中,返回ss2
    (ssdel ent1 ss2)
    
  • 判断图元在选择集中
    ;如果不存在,返回nil
    ;如果存在,返回ent1的图元名
    (ssmemb ent1 ss1)
    
  • 选择选择集中的某个图元
    ;选择选择集ss1第一个图元,常配合循环语句遍历选择集
    (setq ent1 (ssname ss1 0))
    
  • 选择集内总共多少个元素
    ;常在while中作为循环中止条件,内括号返回选择集的数目
    (setq length (sslength ss1))
    

1.3 操作选择集

  • 实现将框选中的圆放大十倍
    (defun c:demo1 ()
      ;实现框选确定选择集
      (print "请框选图元")
      (setq p1 (getpoint))
      (setq p2 (getcorner p1))
      (if (> (car p1) (car p2))
        (setq ss1 (ssget "c" p1 p2))
        (setq ss1 (ssget "w" p1 p2))
      )
      ;设置循环初始变量
      (setq n 0)
      (setq ss1_length (sslength ss1))
      ;循环遍历选择集中的每个元素,并修改
      (while (< n ss1_length)
        ;依序提取选择集中的某个图元
        (setq ent_name (ssname ss1 n))
        (setq ent_list (entget ent_name))
        (setq ent_type (cdr (assoc 0 ent_list)))
    
    	;只修改圆
        (if	(= ent_type "CIRCLE")
          (progn
            ;提取圆,并修改圆半径(放大10倍)
    	    (setq old_r (assoc 40 ent_list))
    	    (setq new_r (cons 40 (* 10.0 (cdr old_r))))
    	    (setq new_ent_list (subst new_r old_r ent_list))
    	    (entmod new_ent_list)
          )
        )
        ;循环跳出条件
        (setq n (+ 1 n))
      )
      ;函数最后返回值
      (print)
    )
    

二、命令行设置对话框

2.1 设置图层

  • 方式1:常规对话框编辑图层(命令行输入layer会调出)
    在这里插入图片描述

  • 方式2:命令行输入:-layer
    在这里插入图片描述

  • 方式3:lisp代码实现

    ;生成图层,并使此图层为当前图层,末尾“”模仿enter功能
    (command "layer" "m" "图层1" "")
    

2.2 加载线型

  • 方式1:常规线型对话框(命令行输入linetype会调出)
    在这里插入图片描述

  • 方式2:命令行输入:-linetype
    在这里插入图片描述

  • 方式3:lisp代码实现

    ;从acad.lin文件中加载线型dashed并修改当前活动图层线型(图层默认线型不变)
    (command "linetype" "l" "dashed" "acad.lin" "" "")
    

2.3 设置字体样式

  • 字体样式:指定了中英文字体文件、倾斜、长宽比,用于绘图中在文字和标注中指定
  • 字体:包含系统字体和cad字体,分别放置于C:\Windows\FontsC:\Program Files\Autodesk\AutoCAD 2020\Fonts文件夹下,安装插件如天正等,会在工具->选项->文件->支持文件搜索路径里包含,此处字体也会自动被搜索并加载
  • 方式1:常规对话框(命令行输入style会调出)
    在这里插入图片描述
  • 方式2:命令行输入:-style
    在这里插入图片描述
  • 方式3:lisp代码实现
    ;对应选项看方式2
    (command "style" "yangshi2" "tssdeng.shx,hztxt.shx" "" "" "" "" "" "")
    

2.4 设置标注样式(了解即可)

  • 方式1:常规对话框(命令行输入dimstyle会调出)
    在这里插入图片描述
    在这里插入图片描述
  • 方式2:命令行输入:-dimstyle
    命令:  -DIMSTYLE
    当前标注样式: STANDARD   注释性: 否
    输入标注样式选项
    [注释性(AN)/保存(S)/恢复(R)/状态(ST)/变量(V)/应用(A)/?] <恢复>: ST
    DIMASO      关                    创建标注对象
    DIMSTYLE    STANDARD             当前标注样式 (只读)
    DIMADEC     0                    角度小数位数
    DIMALT      关                    选定的换算单位
    DIMALTD     2                    换算单位小数位数
    DIMALTF     25                   换算单位比例因子
    DIMALTMZF   100                  公制标注的换算辅零因子
    ...
    

    标注样式修改:此处只能显示跟标注样式相关的系统变量,修改见方式3

  • 方式3:lisp代码实现
    ;系统变量的获取(获取标注文字的前后缀)
    (setq dimpost_old (getvar "dimpost"))
    
    ;系统变量的设置
    (setvar "dimpost" "前缀:<>:后缀")
    

    系统变量:cad中会有一大批固定的全局的系统变量名,通过以上方式获取与修改,针对某一个cad文件的所有元素生效

三、符号表

3.1 简介

  • 符号表:通常图元的属性联合列表不能表示图元的所有信息,符号表则会存储有共性的属性集合供图元调用
  • 九大符号表
    符号表名全称lisp缩写符号表名全称lisp缩写
    块表BlockTableblock线型表LinetypeTableltype
    尺寸标注样式表DimStyleTabledimstyle文字样式表TextStyleTablestyle
    层表LayerTablelayer视口表ViewportTablevport
    用户坐标系表UCSTableucs视图表ViewTableview
    应用程序注册表RegAppTableappid

3.2 符号表查找

  • 以层表为例
    ;查找层表首元素(t为查找第一个)
    (setq layer_1 (tblnext "layer" T))
    ;多次运行tblnext会顺序查找并返回每一个
    (setq layer_1 (tblnext "layer"))
    ;返回:((0 . "LAYER") (2 . "Defpoints") (70 . 0) (62 . 7) (6 . "Continuous"))
    
    ;图层名查找:查找名字为0的图层,不存在返回nil
    (setq layer_3 (tblsearch "layer" "0"))
    ;返回:((0 . "LAYER") (2 . "0") (70 . 0) (62 . 7) (6 . "Continuous"))
    
    ;图层的详细信息,并将返回值包装成图元
    (setq layer_4 (tblobjname "layer" "0"))
    ;返回:<图元名: 1eec337b900>
    (entget layer_4)
    ;返回:((-1 . <图元名: 1eec337b900>) (0 . "LAYER") (5 . "10") (102 . "{ACAD_XDICTIONARY") 
    ;(360 . <图元名: 1eea9fee240>) (102 . "}") (330 . <图元名: 1eec337b820>) 
    ;(100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord") (2 . "0") (70 . 0) 	
    ;(62 . 7) (6 . "Continuous") (290 . 1) (370 . -3) (390 . <图元名: 1eec337b8f0>) 
    ;(347 . <图元名: 1eec337bee0>) (348 . <图元名: 0>))
    

3.2 符号表删改增

  • 可以通过3.1节的layer_4编辑,编辑方式同第一章传送门5.3

返回目录

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mfbz.cn/a/351458.html

如若内容造成侵权/违法违规/事实不符,请联系我们进行投诉反馈qq邮箱809451989@qq.com,一经查实,立即删除!

相关文章

go语言(十八)---- goroutine

一、goroutine package mainimport ("fmt""time" )func main() {//用go创建承载一个形参为空&#xff0c;返回值为空的一个函数go func() {defer fmt.Println("A.defer")func() {defer fmt.Println("B.defer")//退出当前goroutinefmt…

《WebKit 技术内幕》学习之十五(6):Web前端的未来

6 Chromium OS和Chrome的Web应用 6.1 基本原理 HTML5技术已经不仅仅用来编写网页了&#xff0c;也可以用来实现Web应用。传统的操作系统支持本地应用&#xff0c;那么是否可以有专门的操作系统来支持Web应用呢&#xff1f;当然&#xff0c;现在已经有众多基于Web的操作系统&…

跟无神学AI之Prompt

在大模型时代会写prompt变得很重要。 Prompt翻译为中文为提示词&#xff0c;在大模型的特定领域指的是大模型使用者给大模型提交的一种有一定格式的交互命令&#xff0c;让我们看看科大讯飞的大模型给出的答案—— Prompt是一种向人工智能模型提供的输入文本或指令&#xff0…

uv胶UV大灯修复液修复汽车车灯大灯尾灯?

使用UV胶进行汽车大灯修复是一种常见的方法&#xff0c;特别是用于修复裂纹、划痕或氧化的透明塑料表面。以下是使用UV胶修复汽车大灯的一般步骤&#xff1a; 1.准备工作&#xff1a; 确保汽车大灯表面是干净的&#xff0c;没有灰尘、油脂或其他污垢。可以使用清洁剂和软布进行…

Microsoft Remote Desktop for Mac(远程桌面连接)激活版

Microsoft Remote Desktop是一款由微软开发的远程桌面连接工具&#xff0c;它允许用户从另一台计算机或移动设备远程连接到Windows桌面或服务器。 以下是该软件的一些主要特点和功能&#xff1a; 跨平台支持&#xff1a;Microsoft Remote Desktop支持Windows、macOS、iOS和Andr…

leetcode:二叉树的中序遍历(外加先序,后序遍历)

题外&#xff1a;另外三种遍历可以看这&#xff1a; 层序遍历&#xff1a; Leetcode:二分搜索树层次遍历-CSDN博客 先序遍历&#xff1a; 二叉树的先序&#xff0c;中序&#xff0c;后序遍历-CSDN博客 后序遍历&#xff1a; 二叉树的先序&#xff0c;中序&#xff0c;后序…

网络安全全栈培训笔记(58-服务攻防-应用协议设备KibanaZabbix远控向日葵VNCTV)

第58天 服务攻防-应用协议&设备Kibana&Zabbix&远控向日葵&VNC&TV 知识点&#xff1a; 1、远程控制第三方应用安全 2、三方应用-向日葵&VNC&TV 3、设备平台-Zabbix&Kibanai漏洞 章节内容&#xff1a; 常见版务应用的安全测试&#xff1a; 1…

【Web】CTFSHOW SQL注入刷题记录(上)

目录 无过滤注入 web171 web172 web173 web174 web175 时间盲注 写马 过滤注入 web176 web177 web178 web179 web180 web181-182 web183 web184 web185-186 web187 web188 web189 web190 布尔盲注 web191 web192 web193 web194 堆叠注入 web195 …

[C++]使用纯opencv部署yolov8旋转框目标检测

【官方框架地址】 https://github.com/ultralytics/ultralytics 【算法介绍】 YOLOv8是一种先进的对象检测算法&#xff0c;它通过单个神经网络实现了快速的物体检测。其中&#xff0c;旋转框检测是YOLOv8的一项重要特性&#xff0c;它可以有效地检测出不同方向和角度的物体。…

格子表单GRID-FORM | 嵌套子表单与自定义脚本交互

格子表单/GRID-FORM已在Github 开源&#xff0c;如能帮到您麻烦给个星&#x1f91d; GRID-FORM 系列文章 基于 VUE3 可视化低代码表单设计器嵌套表单与自定义脚本交互 新版本功能 &#x1f389; 不觉间&#xff0c;GRID-FORM 已经开源一年&#xff08;2023年1月29日首次提交…

【JaveWeb教程】(28)SpringBootWeb案例之《智能学习辅助系统》的详细实现步骤与代码示例(1)

目录 SpringBootWeb案例011. 准备工作1.1 需求&环境搭建1.1.1 需求说明1.1.2 环境搭建 1.2 开发规范 2. 部门管理 SpringBootWeb案例01 前面我们已经讲解了Web前端开发的基础知识&#xff0c;也讲解了Web后端开发的基础(HTTP协议、请求响应)&#xff0c;并且也讲解了数据库…

QT+VS实现Kmeans聚类算法

1、Kmeans的定义 聚类是一个将数据集中在某些方面相似的数据成员进行分类组织的过程&#xff0c;聚类就是一种发现这种内在结构的技术&#xff0c;聚类技术经常被称为无监督学习。k均值聚类是最著名的划分聚类算法&#xff0c;由于简洁和效率使得他成为所有聚类算法中最广泛使…

Java 基础知识-IO流

大家好我是苏麟 , 今天聊聊IO流 . 资料来源黑马程序员 . IO概述 生活中&#xff0c;你肯定经历过这样的场景。当你编辑一个文本文件&#xff0c;忘记了ctrls &#xff0c;可能文件就白白编辑了。当你电脑上插入一个U盘&#xff0c;可以把一个视频&#xff0c;拷贝到你的电脑硬…

ajax点击搜索返回所需数据

html 中body设置&#xff08;css设置跟进自身需求&#xff09; <p idsearch_head>学生信息查询表</p> <div id"div_1"> <div class"search_div"> <div class"search_div_item"> …

day22 事件委托

目录 事件委托 事件委托 事件委托是利用事件流的特征解决一些开发需求的知识技巧 优点&#xff1a;减少注册次数&#xff0c;提高程序性能原理&#xff1a;事件委托其实是利用事件冒泡的特点 给父元素注册事件&#xff0c;当触发子元素时&#xff0c;会冒泡到父元素上&#x…

automa插件使用的一些实战经验3

1 子流程的变量怎么传回父流程 主流程向子流程传参很容易 在子流程可以看到&#xff0c;父流程定义的表格&#xff0c;在子流程中是看不到的&#xff0c;那么子流程定义的变量如何传回父流程呢&#xff1f;另外在子流程再添加执行工作流&#xff0c;是无法选择父流程本身&…

C++:vector容器(memcpy浅拷贝问题、迭代器失效问题)

文章目录 一. vector 的介绍二. vector 的使用1. string 和 vector<char> 的区别2. 为什么 vector 没有 find() 接口 三. vector 的模拟实现1. vector 的基本框架2. memcpy 和 memmove 的浅拷贝问题3. vector 迭代器失效问题4. 模拟代码 一. vector 的介绍 vector 的文档…

二次元动漫卡通手机APP应用下载页HTML源码

HTML源码&#xff0c;记事本修改里面的内容即可&#xff0c;本地双击index.html即可运行 蓝奏云&#xff1a;https://wfr.lanzout.com/itZRg1mf3b9c

华为HCIP Datacom H12-831 卷18

判断题 1、对于同一个MAC地址,手工配置的MAC表项优先级高于动态的表项,某二层报文的源MAC地址已经绑定在了交换机的GEO/0/1接口,当交换机从GEO/0/2收到该报文时,会丢弃该报文 A 对 B 错 正确答案 A 解析:为了提高接口安全性,网络管理员可手工在MAC地址表中加入特定M…

Mac电脑如何安装幻兽帕鲁游戏,Mac虚拟机CrossOver如何安装幻兽帕鲁

《幻兽帕鲁》能在哪些平台玩&#xff1f; | 《幻兽帕鲁》是一款动作冒险生存游戏&#xff0c;自1月中旬发布以来&#xff0c;在Steam榜单上迅速攀升。目前该游戏可在Xbox Series X/S、Xbox One和PC上运行&#xff0c;并可通过Xbox Game Pass在Xbox和PC平台上使用。虽然游戏还未…
最新文章