易坊好文馆

  1. 首页 > 生活百科 >

python二次开发cad教程 cad 二次开发教程

2.11.2 操作选择集
1.向选择集中加入图元
( ssadd name ss) 函数用于向选择集中加入图元 ， 函数返回加入新图元后的选择集 。如果不带任何变元参数时（ssadd）表示建立一个空的选择集 ， 只带name参数时 ， 表示建立只包含名为name图元的选择集 。如果带2个参数 ， 表明将name图元加入到指定的选择集中 ， 若选择集中已有此图元 ， 则忽略添加请求 ， 并且不报告错误 。
ssadd创建的选择集可以包含图纸空间的图元 ， 也可包模型空间的图元 ， 我们也可在应用程序中用DXF组码的67位码过滤 ， 去掉不需要的图元 ， 67组码值为1 ， 指定图元处理图纸空间 。
2.从选择集中删除图元
　（ssdel name ss）从选择集ss中删除名称为name的图元 。
3.获取选择集中的图元数目
　（sslength ss）
4.访问选择集图元
　（ssname ss n） ， 返回选择集中第n个图元名 ， 序号为从0开始计数的整数 。
（ssanme ss0）　第一个图元；
（ssanme ss l-1） l为图元数目 ， 返回最后一个图元名 。
5.测试某个图元是否在选择集中
（ssmemb name ss） ， 存在返回图元名 ， 不存在返回nil 。
6.删除选择集 ， 释放内存 。（setq ss nil）
2.11.3　应用实例
因为比较重要 ， 现具体说2个实例 。
例1：选择屏幕上要保留的图形 ， 删除其它未被选中的图形 。
(defun c:delnot( / ss1 ss2 ss3 n ent)
(setq ss1 (ssget) ss2 (ssget “X”) )
(if (not ss1)
(command “erase” ss2 “”)
(progn
(setq ss3 (ssadd) n 0 )
(repeat (sslength ss2 )
(setq ent (ssname ss2 n))
(if (not (ssmemb ent ss1))
(ssadd ent ss3)
)
(setq n (1+ n))
【python二次开发cad教程 cad 二次开发教程】)
(command “erase” ss3 “” “redraw”)
)
)
)
例2：改变现行图形中所有文本尺寸大小 。
(defun c:change( / a ts n index b1 b c d b2)
(setq a (ssget “X” ‘((0 . “TEXT”))))
(setq ts (getdist “\n输入新的文本大小：”))
(setq n (sslength a))
(setq index 0)
(repeat n
(setq b1 (entget (ssname a index)))
(setq index (1+ index))
(setq c (assoc 40 b1))
(setq d (cons (car c) ts))
(setq b2 (subst d c b1))
(entmod b2)
)
(princ)
)

    推荐阅读


    上一篇：表格里调整字体行距 word里表格行间距怎么调整不了

    下一篇：地下城时装属性讲解 dnf改时装技能的道具