不关闭其他图层，复制指点图层上的东西

wxa123wl

在不关闭图层的前提下，框选，选定图层上的物体，然后复制！我每次都是用fi  把要选定的图层指定到列表中，再选择，在复制！求大神简化，，呵呵

wxa123wl

(defun c:fzc (/ ss counter e l s)
  (princ "\n 选中要复制象所所在图层...")
  (setq ss (ssget))
  (setq counter 0)
  (while
    (setq e (ssname ss counter))
     (setq l (cdr (assoc 8 (entget e))))
     (setq S (ssget "X" (list (cons 8 l))))
     (progn
       (command "copy" s "")
     )
     (setq counter (+ counter 1))
     (prompt (strcat "\n\t已复制.." "\" l "层上的对象" "\""))
     (princ)))

这个代码把这个图形里面的都复制了，，我要框选范围的那种，，哈哈

st788796

1. (defun c:tt (/ e lyr ss)
   
2.   (if (and (setq e (car (entsel "\n点选复制图层实体: ")))
   
3.            (setq lyr (assoc 8 (entget e)))
   
4.            (progn
   
5.              (princ "\n选择范围....")
   
6.              (setq ss (ssget (list lyr)))
   
7.            )
   
8.       )
   
9.     (progn
   
10.       
    
11.     )
    
12.   )
    
13.   (princ)
    
14. )

(defun c:tt (/ e lyr ss)<br />   (if (and (setq e (car (entsel "\n点选复制图层实体: ")))<br />            (setq lyr (assoc 8 (entget e)))<br />            (progn<br />              (princ "\n选择范围....")<br />              (setq ss (ssget (list lyr)))<br />            )<br />       )<br />     (progn<br />       <br />     )<br />   )<br />   (princ)<br /> )

wxa123wl

st788796 发表于 2014-2-11 17:24

赞一下！不够长，，再赞一下！

wxa123wl

st788796 发表于 2014-2-11 17:24

亲不能复制呀，，而且选中后就没有了

wxa123wl

(defun c:fzc (/ e lyr ss)
(if (and (setq e (car (entsel "\n点选复制图层实体: ")))
(setq lyr (assoc 8 (entget e)))         
  (progn            
    (princ "\n选择范围....")
      (setq ss (ssget (list lyr)))))
    (progn
    (command "copy" ss "" "m")))
  (princ))

wxa123wl

st788796 发表于 2014-2-11 17:24

呵呵，，版主，，可以指定多个图层吗，，这个只能指点一个图层，，复制别的图纸上的都行，往往不知只要一个图层上的东西，呵呵！

st788796

wxa123wl 发表于 2014-2-11 18:13
呵呵，，版主，，可以指定多个图层吗，，这个只能指点一个图层，，复制别的图纸上的都行，往往不知只要一 ...

呵呵，俺不是版主
把entsel换成ssget，遍历选集提取图层做为过滤选项

wxa123wl

st788796 发表于 2014-2-11 20:53
呵呵，俺不是版主
把entsel换成ssget，遍历选集提取图层做为过滤选项

{:soso_e109:}{:soso_e109:}{:soso_e109:}{:soso_e109:}不会呀，，，，我弄了一下说参数太少，，，

st788796

wxa123wl 发表于 2014-2-11 21:22
不会呀，，，，我弄了一下说参数太少，，，

1. (defun c:tt (/ ss ss1 str i)
   
2.   (if
   
3.     (and (progn
   
4.            (princ "\n选择复制图层实体....")
   
5.            (setq ss (ssget))
   
6.          )
   
7.          (progn
   
8.            (setq i   -1
   
9.                  str ""
   
10.            )
    
11.            (repeat (sslength ss)
    
12.              (setq
    
13.                str (strcat
    
14.                      (cdr (assoc 8 (entget (ssname ss (setq i (1+ i))))))
    
15.                      ","
    
16.                      str
    
17.                    )
    
18.              )
    
19.            )
    
20.          )
    
21.          (progn
    
22.            (princ "\n选择复制范围.....")
    
23.            (setq ss1 (ssget (list (cons 8 str))))
    
24.          )
    
25.     )
    
26.      (vl-cmdf ".copy" "m" ss ss1 "")
    
27.   )
    
28.   (princ)
    
29. )

(defun c:tt (/ ss ss1 str i)<br />   (if<br />     (and (progn<br />            (princ "\n选择复制图层实体....")<br />            (setq ss (ssget))<br />          )<br />          (progn<br />            (setq i   -1<br />                  str ""<br />            )<br />            (repeat (sslength ss)<br />              (setq<br />                str (strcat<br />                      (cdr (assoc 8 (entget (ssname ss (setq i (1+ i))))))<br />                      ","<br />                      str<br />                    )<br />              )<br />            )<br />          )<br />          (progn<br />            (princ "\n选择复制范围.....")<br />            (setq ss1 (ssget (list (cons 8 str))))<br />          )<br />     )<br />      (vl-cmdf ".copy" "m" ss ss1 "")<br />   )<br />   (princ)<br /> )

wxa123wl

st788796 发表于 2014-2-11 21:40

谢谢了，，，等我工作闲了好好向你们学习！

sunshinejwt

这个我试了很管用，就是选择后不能指定基点。我现在都是选择复制完再重新移动。能改进一下就很方便了。

st788796

sunshinejwt 发表于 2016-12-20 22:45

2. 
   
3. (defun c:tt (/ ss ss1 str i p)
   
4.   (while (and (progn (princ "\n选择样本图层实体....") (setq ss (ssget)))
   
5.               (progn (setq i   -1
   
6.                            str ""
   
7.                      )
   
8.                      (repeat (sslength ss)
   
9.                        (setq str (strcat (cdr (assoc 8 (entget (ssname ss (setq i (1+ i)))))) "," str))
   
10.                      )
    
11.               )
    
12.               (progn (princ "\n选择复制范围.....") (setq ss1 (ssget (list (cons 8 str)))))
    
13.               (setq p (getpoint "\n基点: "))
    
14.          )
    
15.     (vl-cmdf ".copy" "m" ss ss1 "" p)
    
16.     (while (= (getvar "cmdnames") "COPY") (command pause))
    
17.   )
    
18.   (princ)
    
19. )

<br /> (defun c:tt (/ ss ss1 str i p)<br />   (while (and (progn (princ "\n选择样本图层实体....") (setq ss (ssget)))<br />               (progn (setq i   -1<br />                            str ""<br />                      )<br />                      (repeat (sslength ss)<br />                        (setq str (strcat (cdr (assoc 8 (entget (ssname ss (setq i (1+ i)))))) "," str))<br />                      )<br />               )<br />               (progn (princ "\n选择复制范围.....") (setq ss1 (ssget (list (cons 8 str)))))<br />               (setq p (getpoint "\n基点: "))<br />          )<br />     (vl-cmdf ".copy" "m" ss ss1 "" p)<br />     (while (= (getvar "cmdnames") "COPY") (command pause))<br />   )<br />   (princ)<br /> )

sunshinejwt

试过了，很管用，可以选择基点了。谢谢你

ngc

确实是难得好帖啊，顶先