[LISP函数]：如何复制一个选择集里面的物体?

enixing

框选了一堆东西，想用copy，复制到其他地方，怎么办？难道要用nth，一个一个的抽出来复制吗？这样子的效率太低了吧，那个高人可以支个招

Free-Lancer

这也要问？

2. 
   
3. (command ".copy" ss" "" pause pause)

<br /> (command ".copy" ss" "" pause pause)

露水2

(command ".copy" ss "" pause pause)

enixing

谢谢，我刚学lisp，呵呵，原来差一点   这是我原先写得
(command "copy" ss "0,0" "0,0")

请问这些ss "" pause pause怎么获得这些操作提示？
尽管说，在cad里面，按什么就填什么，但是，挺麻烦的。。。

szcqh

没弄明白？

szcqh

;将选择的闭合区域内，与之相交或里面的所有复制到别地方
(defun c:test365 ()
  (cmdla0)
  (setq s1    (car (entsel "\n选择闭合区域: "))
etype (xyp-get-dxf 0 s1)
  )
  (if (and (or (= etype "POLYLINE")
        (= etype "LWPOLYLINE")
        (= etype "SPLINE")
    )
    (or (equal (xyp-get-CurveEndPoint s1)
        (xyp-get-CurveStartPoint s1)
        )
        (= (xyp-get-dxf 70 s1) 1)
    )
      )
    (progn
      (setq ptlst (xyp-get-Vertexs s1 0)
     ss   (ssget "CP" ptlst)
      )
      (if ss
(command "copy" ss "" pause pause)
      )
    )
  )
  (cmdla1)
)


找了一个不能用

newer

szcqh 发表于 2013-7-27 01:26
;将选择的闭合区域内，与之相交或里面的所有复制到别地方
(defun c:test365 ()
  (cmdla0)

你这个代码里面用到了XYP的其他定义函数，你没有所以用不了了。

你这个代码核心就是获得选择集，用 ssget "cp" p1 p2 ...pn  获得内和相交的所有实体，然后COPY就是了。

ucuc2003

学习一下大侠们的源码{:soso__3409329614010722382_3:}