求助以类型选择COPY LISP，谢谢！

abtjy

 输入LISP命令选择文字,再框选范围且只会选种文字复制;

同理输入LISP命令选择尺寸(图元、图块),再框选范围且只会选种尺寸(图元、图块)复制;

Saging

过滤器应该可以实现吧.

(setq a (ssget '((0 . "mtext"))))

把里面的"mtext"改成你想要的任何DXF组码，就可只选择你想要的东西了。

Saging

再贴上一段代码：

2. (defun c:scc();条件复制
3.   (setq choise (getstring "\n单行文字(T)，多行文字(M)，直线(L)，圆(C)，默认为全部对象<A>:"))
4.   (if (= choise nil)
5.     (setq choise "a"))
6.   (if (or (= Choise "m") (= choise "M"))
7.     (progn
8.       ;进行多行文字操作
9.       (setq selects (ssget '((0 . "mtext"))))
10.     )
11.   )
12.   (if (or (= Choise "t") (= choise "T"))
13.     (progn
14.       ;进行单行文字操作      
15.       (setq selects (ssget '((0 . "text"))))
16.     )
17.   )
18.   (if (or (= Choise "l") (= choise "L"))
19.     (progn
20.       ;进行直线操作      
21.       (setq selects (ssget '((0 . "line"))))
22.     )
23.   )
24.   (if (or (= Choise "c") (= choise "C"))
25.     (progn
26.       ;进行圆操作
27.       (setq selects (ssget '((0 . "circle"))))
28.     )
29.   )
30.   (if (or (= choise "a") (= choise "A"))
31.     (progn
32.       (setq selects (ssget))
33.     )
34.   )
35.   (command "copy" selects "")
36. )

(defun c:scc();条件复制   (setq choise (getstring "\n单行文字(T)，多行文字(M)，直线(L)，圆(C)，默认为全部对象<A>:"))   (if (= choise nil)     (setq choise "a"))   (if (or (= Choise "m") (= choise "M"))     (progn       ;进行多行文字操作       (setq selects (ssget '((0 . "mtext"))))     )   )   (if (or (= Choise "t") (= choise "T"))     (progn       ;进行单行文字操作             (setq selects (ssget '((0 . "text"))))     )   )   (if (or (= Choise "l") (= choise "L"))     (progn       ;进行直线操作             (setq selects (ssget '((0 . "line"))))     )   )   (if (or (= Choise "c") (= choise "C"))     (progn       ;进行圆操作       (setq selects (ssget '((0 . "circle"))))     )   )   (if (or (= choise "a") (= choise "A"))     (progn       (setq selects (ssget))     )   )   (command "copy" selects "") )

abtjy

谢谢楼主

liumangtuhb

好家伙·~~·我也收下@