[求助]：关于图层合并

良子

谁能提供将同一图层的图合并在一起的lisp呢?我现在是用group来实现的,好麻烦.希望大侠们能提供一个快捷的lisp.

xyp1964

[php]
;;;同一图层的物体合并成组(group)
(defun c:test035 (/ s1 la ss)
  (setq        s1    (entsel "\n选择图层物体 : ")
        Gname (ustr 1 "\n\t组名" Gname nil)
        la    (dxf 8 (entget (car s1)))
        ss    (ssget "X" (list (cons 8 la)))
  )
  (command "-group" "C" Gname "" ss "")
  (princ)
)
(defun dxf (code elist) (cdr (assoc code elist)))
(defun ustr (bit msg def spflag / inp nval)
   (if (and def (/= def ""))
       (setq msg (strcat "\n" msg "<" def ">:")
             inp (getstring msg spflag)
             inp (if (= inp "") def inp))
       (progn
         (setq msg (strcat "\n" msg ": "))
         (if (= bit 1)
             (while (= "" (setq inp (getstring msg spflag))))
             (setq inp (getstring msg spflag)))))
   (if inp inp def)
  )
[/php]

wkai

做成块

2. 
   
3. (defun c:tt (/ e)
   
4.   (setq e (car (entsel)))
   
5.   (command "_.copybase" "0,0,0"(ssget "x" (list (assoc 8 (entget e))))"")
   
6.   (command "_.erase" (ssget "x" (list (assoc 8 (entget e)))) "")
   
7.   (command "_pasteblock" "0,0,0")  
   
8. )
   

<br /> (defun c:tt (/ e)<br />   (setq e (car (entsel)))<br />   (command "_.copybase" "0,0,0"(ssget "x" (list (assoc 8 (entget e))))"")<br />   (command "_.erase" (ssget "x" (list (assoc 8 (entget e)))) "")<br />   (command "_pasteblock" "0,0,0")  <br /> )<br />

Free-Lancer

自动管理组

2. 
   
3. (defun c:tt (/ e lyr grp ss)
   
4.   (if (setq e (car (entsel "\n拾取实体: ")))
   
5.     (progn
   
6.       (setq lyr (assoc 8 (entget e)))
   
7.       ;|(setq grp (getstring "\n组名<匿名>: "))
   
8.       (if (= grp "")
   
9.         (setq grp "*")
   
10.       )|;
    
11.       (setq ss (ssget "x" (list lyr)))
    
12.       (command ".group" "c" "*" "" ss "")
    
13.     )
    
14.   )
    
15.   (princ)
    
16. )

<br /> (defun c:tt (/ e lyr grp ss)<br />   (if (setq e (car (entsel "\n拾取实体: ")))<br />     (progn<br />       (setq lyr (assoc 8 (entget e)))<br />       ;|(setq grp (getstring "\n组名<匿名>: "))<br />       (if (= grp "")<br />         (setq grp "*")<br />       )|;<br />       (setq ss (ssget "x" (list lyr)))<br />       (command ".group" "c" "*" "" ss "")<br />     )<br />   )<br />   (princ)<br /> )

jxsqq

2楼的很好

sdwy19691229

我觉得既然是同一图层了，控制图层的开关就可以轻松编辑了。

tianwen612

还是2楼楼主方法好一些