选择集处理函数

CAD智能@未来 · 发表于 2024-10-31 11:21:18

本帖最后由 CAD智能@未来于 2024-10-31 11:32 编辑

;获取选择集的图元列表
(setq ents (mapcar
'cadr
(vl-remove-if
'(lambda (x)
(< (car x) 0))
(ssnamex ss)
)
)
)
;获取选择集端点集
(setq pts (apply
'append
(mapcar
'(lambda (x)
(mapcar
'cdr
(vl-remove-if-not
'(lambda (y)
(= 10 (car y))
)
(entget x)
)
)
)
ents
)
)
)
;获取选择集表文字内容
(setq str_lst(mapcar
'(lambda(x)
(cdr
(assoc 1 (entget x))
)
)
ents
)
)
;删除图元列表
(mapcar '(lambda (x) (entdel x)) ents)

;获取选择集的图元列表 
(setq ents (mapcar 
        'cadr 
          (vl-remove-if 
            '(lambda (x) 
              (< (car x) 0)) 
                (ssnamex ss) 
          ) 
      ) 
) 
;获取选择集端点集 
(setq pts  (apply 
        'append 
          (mapcar   
            '(lambda (x) 
              (mapcar 
                'cdr 
                  (vl-remove-if-not 
                        '(lambda (y) 
                          (= 10 (car y)) 
                        ) 
                        (entget x) 
                  ) 
              ) 
            ) 
            ents 
          ) 
      ) 
) 
;获取选择集表文字内容 
(setq str_lst(mapcar 
        '(lambda(x) 
          (cdr 
            (assoc 1 (entget x)) 
          ) 
        ) 
          ents 
      ) 
) 
;删除图元列表 
(mapcar '(lambda (x) (entdel x)) ents)

不一样地设计 · 发表于 2024-10-31 15:36:54

感谢分享，很有用啊

w379106181 · 发表于 2024-11-2 08:14:56

感谢大佬分享

账号		自动登录	找回密码
密码			注册

选择集处理函数

浏览过的版块