选择集作组

Free-Lancer · 发表于 2014-9-6 23:14:32

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

各取方便

(defun ss->ents (ss / sl el e)
(setq sl (sslength ss))
(while (setq e (ssname ss (setq sl (1- sl))))
(setq el (cons e el))
)
el
)
(defun Group:Make (name ss / grp grpent el)
(setq grp (vla-add (fy:acgroups) name)
grpent (vlax-vla-object->ename grp)
el (entget grpent)
)
(entmod (append el
(mapcar '(lambda (x)
(cons 340 x)
)
(ss->ents ss)
)
)
)
)

Free-Lancer · 发表于 2014-9-7 00:35:57

Alisp 稍微啰嗦些

(defun Group:Make (name ss / grps)
(setq grps (cdadr (vl-member-if
'(lambda (x)
(equal x '(3 . "ACAD_GROUP"))
)
(entget (namedobjdict))
)
)
)
(if (and (not (wcmatch "`**" name))
(not (dictsearch grps name))
)
(dictadd grps
name
(entmakex
(append '((0 . "Group") (100 . "AcDbGroup") (70 . 1))
(mapcar '(lambda (x)
(cons 340 x)
)
(ss->ents ss)
)
)
)
)
(entmod
(append
(entget grps)
(list
'(3 . "*U")
(cons 350
(entmakex
(append '((0 . "Group") (100 . "AcDbGroup") (70 . 1))
(mapcar '(lambda (x)
(cons 340 x)
)
(ss->ents ss)
)
)
)
)
)
)
)
)
)

(defun Group:Make (name ss / grps) 
  (setq        grps (cdadr (vl-member-if 
                      '(lambda (x) 
                         (equal x '(3 . "ACAD_GROUP")) 
                       ) 
                      (entget (namedobjdict)) 
                    ) 
             ) 
  ) 
  (if (and (not (wcmatch "`**" name)) 
           (not (dictsearch grps name)) 
      ) 
    (dictadd grps 
             name 
             (entmakex 
               (append '((0 . "Group") (100 . "AcDbGroup") (70 . 1)) 
                       (mapcar '(lambda        (x) 
                                  (cons 340 x) 
                                ) 
                               (ss->ents ss) 
                       ) 
               ) 
             ) 
    ) 
    (entmod 
      (append 
        (entget grps) 
        (list 
          '(3 . "*U") 
          (cons        350 
                (entmakex 
                  (append '((0 . "Group") (100 . "AcDbGroup") (70 . 1)) 
                          (mapcar '(lambda (x) 
                                     (cons 340 x) 
                                   ) 
                                  (ss->ents ss) 
                          ) 
                  ) 
                ) 
          ) 
        ) 
      ) 
    ) 
  ) 
)

csharp · 发表于 2014-9-7 12:57:51

只要做有名的都需要检测名称是否存在

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

[教学] 选择集作组

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

评分