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

已于 2024-06-06 08:44:49 修改
阅读量1.8k 收藏 22
点赞数 13
分类专栏： # AUTOLISP 文章标签： autolisp cad cad二次开发
于 2024-01-23 09:23:38 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/chucksun0426/article/details/135612532
版权

目录

一、选择集

  • 定义：批量选择出目标图元，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))))
;选择最近所选的图形对象
(ssget "p")
;全图过滤出指定图元
;过滤出并将全图中的圆创建成一个选择集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\Fonts，C:\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

返回目录

chuck-Gemini
关注
  • 13
    点赞
  • 踩
  • 22
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
超经典CAD lisp程序集锦
12-13
下面是二维建筑设计软件，其最大的特色为所绘的实体仅有 LINE、POLYLINE、CIRCLE和TEXT四种，修改容易。虽只有二十多个程序， 但确能帮您解决二维绘图中的一些问题。
AutoLISP程序在AutoCAD中的应用实例
11-19
AutoLISP程序在AutoCAD中的应用实例
autolisp 将框内的点集全部选上,构造成选择集、并修改其高程（亲测）
02-22
autolisp 将框内的点集全部选上,构造成选择集、并修改其高程（亲测）
CAD 选择集
Alexander_Frank的博客
08-26 3598
CAD中构建选择集的两个函数：acedSSAdd和acedSSGet，但是都需要使用acedSSFree来释放内存空间。 1. int acedSSAdd(const ads_name ename, const ads_name sname, ads_name result); 若ename和sname都是空指针，则创建一个未包含任何成员的选择集。 若ename指向有效的实体，而sname为
AutoLISP选择集操作
weixin_33862993的博客
04-09 5257
AutoLISP选择集操作，根据选择集中图元的类型，进行不同的操作，代码如下。 (defun c:ssope ()     (setq ss (ssget))     (setq i 0)     (repeat (sslength ss)     (setq typ (cdr (assoc 0 (entget (ssname ss i))))) ...
autoCAD 使用选择集
laocooon的博客
08-18 3951
使用选择集 选择集可以由单个对象组成，也可以是一个更复杂的编组：例如特定图层的对象集。 在命令启动前通过pick first选择或者执行命令后提示选择对象要注用户在图形区域中选择对象后创建的选择集是最具代表性的。 选择集不是持久的，如果需要保留选择集，用于在多个命令之间或将来使用，就必须创建一个自定义的字典并记录对象 ID，并将选择集当作一个记录创建。 获得PickFirst选择集 在图形区域中选择对象 添加或合并多个选择集 定义选择集过滤规则 从选择集中移除对象 获得PickFirst选择集 P
autolisp 点选一个多段线或者直线,将框内的点集全部选上,构造成选择集、并修改其高程（亲测）
02-22
autolisp 点选一个多段线或者直线,将框内的点集全部选上,构造成选择集、并修改其高程（亲测）
对AutoCAD图纸执行批量文字替换的程序-基于AutoLISP
02-07
1.1 这是一个替代AutoCAD原生FIND指令的应用程序，支持AutoCAD/中望CAD等主流CAD绘图软件 1.2 它的核心特性有： 1.2.1 替换效率高，不需要打开对话框即可完成替换 1.2.2 可一次性批量替换多处内容 1.2.3 支持从txt...
基于AutoLISP实现AutoCAD线型选择的二次开发
06-16
AutoCAD工程图纸中,线型占居了绝大部分的...提出利用AutoLISP语言编程,对AutoCAD软件进行二次开发,制作出一个应用程序,实现对AutoCAD不同颜色线型的整体调用,有效避免了反复设置图层及线型的麻烦,进而缩短项目周期。
Autocad的课件——AutoLISP-Visual-LISP教程.ppt
10-20
AutoCAD中的作图环境设置和编程实现 本节课程将介绍AutoCAD中的作图环境设置和编程实现，包括设置图纸的范围、设置绘图的长度和角度单位、设置目标捕捉的类型等内容。 一、设置图纸的范围 在AutoCAD中，设置图纸...
AUTOLISP基础教程
03-22
会CAD的很多不会编程，会编程的很多不会CAD，这本书会教我们学习如何CAD编程，让编程来提高CAD画图的效率
AutoCAD-群码表大全.pdf
10-09
AutoCAD-群码表,用LISP生成AUTOCAD对象，AutoCAD-群码表,用LISP生成AUTOCAD对象，AutoCAD-群码表,用LISP生成AUTOCAD对象AutoCAD-群码表,用LISP生成AUTOCAD对象，AutoCAD-群码表,用LISP生成AUTOCAD对象
第12章-对话框设计-清华CAD二次开发-LISP.ppt
12-20
在 AutoCAD 中，对话框是由 DCL 语言定义的，並使用 AutoLISP 或 C 语言驱动。对话框由多个控件组成，每个控件都有其特定的类型和属性。 对话框的特点是形象、直观，可以随意输入、随时修改，鼠标、键盘并用，是一...
AutoLisp编程笔记——选择集方法集锦
测量老覃 的博客
07-13 5554
(setq ss (ssget '((0 . "insert")))) ;提交交互选择 (setq ss (ssget "X" '((0 . "insert") (8 . "GCD")))) ;加"X"不提示直接选择 (setq ss (ssget ":S" '((0 . "LINE")))) ;只选取一次直线（省约回车） (setq ss (ssget "X" '((0 . "LINE"...
CAD开发——AcadSelectionSet 选择集
qq_39728950的博客
10-24 2981
AcadSelectionSet 选择集的应用
选择集
LiGuogang
01-06 1610
选择集的定义 选择集是被封装到抽象Selection中的DOM元素的有序集合。抽象Selection提供了一个API来查询和修改它所包含的元素。Selection API是声明式的，并且支持方法的链式调用，因而无须遍历单个节点即可操作DOM树。 创建选择集 一般来说，通过对全局d3对象调用选择集方法从而获得最初的选择集实例。然后，你就可以在Selection实例上调用自带的方法来创建它的子集了 创建选择集的全局方法 从选择集中创建子选择集的方法（sel指选择集对象） ...
【CAD二次开发】CAD选择集的问题集合
03-02 641
获取指定范围内的对象，类似从右下角到左上角框选；注意框选对象要在CAD的窗体范围内，否则会返回错误结果。
AutoLISP 学习 （一）
m0_54575622的博客
03-24 1861
AutoLISP基本语法结构、语法 以括号组成表达式，左右括号一定要成对，单、双引号也要成对，例如： (defun c:hello() (princ "\nHello world!") (prin1) ) 表达式格式：（函数名 操作数 操作数 …），例如： (setq p1 (list 0 0)) (setq p2 (list 10 10)) (setq p3 (list 20 20)) ;;; CAD中画直线，经过p1 p2 p3 (command "LINE" p1 p2 p3 ""
基于Python实现的声源定位工程系统源码（优秀课程设计）.zip
最新发布
06-23
基于Python实现的声源定位工程源码（优秀课程设计）.zip个人大三学期的课程设计、经导师指导并认可通过的高分大作业设计项目，评审分97分。主要针对计算机相关专业的正在做大作业的学生和需要项目实战练习的学习者，可作为课程设计、期末大作业。 基于Python实现的声源定位工程源码（优秀课程设计）.zip个人大三学期的课程设计、经导师指导并认可通过的高分大作业设计项目，评审分97分。主要针对计算机相关专业的正在做大作业的学生和需要项目实战练习的学习者，可作为课程设计、期末大作业。 基于Python实现的声源定位工程源码（优秀课程设计）.zip个人大三学期的课程设计、经导师指导并认可通过的高分大作业设计项目，评审分97分。主要针对计算机相关专业的正在做大作业的学生和需要项目实战练习的学习者，可作为课程设计、期末大作业。 基于Python实现的声源定位工程源码（优秀课程设计）.zip个人大三学期的课程设计、经导师指导并认可通过的高分大作业设计项目，评审分97分。主要针对计算机相关专业的正在做大作业的学生和需要项目实战练习的学习者，可作为课程设计、期末大作业。
autocad lisp遍列选择集
05-28
您好！针对您的问题，可以使用Lisp中的foreach函数遍历选择集，示例代码如下： ``` (defun c:test (/ ss) (setq ss (ssget)) (if ss (progn (foreach obj (vl-remove-if-not '(lambda (x) (eq 'AcDbEntity (type x))) (mapcar 'vlax-ename->vla-object (ssnamex ss)))) ; 对每个实体执行操作 ) (princ "\nNo objects selected.") ) (princ) ) ``` 上述代码中，先使用ssget函数获取选择集，然后使用vl-remove-if-not函数过滤掉非实体对象，再使用mapcar函数将每个对象转换为vla-object类型，最后使用foreach函数对每个实体对象执行操作。 希望能帮到您！

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值