[试用]：晓东工具箱－“区域拷贝”、“区域删除”提供...

XDSoft

“区域拷贝”

下载地址：http://www.xdcad.net/tech/xd_tbox/xdtb_regioncopy.swf

<embed src=http://www.xdcad.net/tech/xd_tbox/xdtb_regioncopy.swf quality=high width=512 height=482 loop=true type="application/x-shockwave-flash">
</embed>

“区域删除”

下载地址：http://www.xdcad.net/tech/xd_tbox/xdtb_regionerase.swf

<embed src=http://www.xdcad.net/tech/xd_tbox/xdtb_regionerase.swf quality=high width=512 height=482 loop=true type="application/x-shockwave-flash">
</embed>

2. [font=courier new]
   
3. ;|
   
4.    命令：XDTB_RegionCopy
   
5.    功能：区域拷贝
   
6. |;
   
7. (defun c:XDTB_RegionCopy (/ tf e filler box ss)
   
8.   (if (not $XDTB_Global_Region_type)
   
9.     (setq $XDTB_Global_Region_type "2")
   
10.   )
    
11.   (setq tf t)
    
12.   (while (and
    
13.            tf
    
14.            (progn
    
15.              (prompt (strcat "\n**操作方式--" (if (= $XDTB_Global_Region_type
    
16.                                                   "1"
    
17.                                                )
    
18.                                              "窗口**"
    
19.                                              "交叉窗口**"
    
20.                                            )
    
21.                      )
    
22.              )
    
23.              (initget "1 2")
    
24.              (setq e (xdrx_entsel "\n请拾取区域的边界曲线[1:窗口/2:交叉]<退出>:"))
    
25.            )
    
26.            (progn
    
27.              (cond
    
28.                ((= (type e) 'STR)
    
29.                  (setq $XDTB_Global_Region_type e)
    
30.                )
    
31.                ((= (type (car e)) 'ENAME)
    
32.                  (setq tf nil)
    
33.                )
    
34.              )
    
35.              t
    
36.            )
    
37.          )
    
38.   )
    
39.   (setq e (car e))
    
40.   (if (>= (length (setq box (xdrx_getsamplept e))) 3)
    
41.     (progn
    
42.       (if (= $XDTB_Global_Region_type "1")
    
43.         (setq filler (list "wp" box))
    
44.         (setq filler (list "cp" box))
    
45.       )
    
46.       (if (setq ss (apply 'ssget filler))
    
47.         (progn
    
48.           (xdrx_begin)
    
49.           (if (not (ssmemb e ss))
    
50.             (ssadd e ss)
    
51.           )
    
52.           ($xdlsp_dragm ss nil t)
    
53.           (xdrx_end)
    
54.         )
    
55.       )
    
56.     )
    
57.   )
    
58.   (princ)
    
59. )
    
60. 
    
61. ;|
    
62.    命令：XDTB_RegionErase
    
63.    功能：区域删除
    
64. |;
    
65. (defun c:XDTB_RegionErase (/ tf e filler box ss)
    
66.   (if (not $XDTB_Global_Region_Erase_type)
    
67.     (setq $XDTB_Global_Region_Erase_type "2")
    
68.   )
    
69.   (setq tf t)
    
70.   (while (and
    
71.            tf
    
72.            (progn
    
73.              (prompt (strcat "\n**操作方式--" (if (= $XDTB_Global_Region_Erase_type
    
74.                                                   "1"
    
75.                                                )
    
76.                                              "窗口**"
    
77.                                              "交叉窗口**"
    
78.                                            )
    
79.                      )
    
80.              )
    
81.              (initget "1 2")
    
82.              (setq e (xdrx_entsel "\n请拾取区域的边界曲线[1:窗口/2:交叉]<退出>:"))
    
83.            )
    
84.            (progn
    
85.              (cond
    
86.                ((= (type e) 'STR)
    
87.                  (setq $XDTB_Global_Region_Erase_type e)
    
88.                )
    
89.                ((= (type (car e)) 'ENAME)
    
90.                  (setq tf nil)
    
91.                )
    
92.              )
    
93.              t
    
94.            )
    
95.          )
    
96.   )
    
97.   (setq e (car e))
    
98.   (if (>= (length (setq box (xdrx_getsamplept e))) 3)
    
99.     (progn
    
100.       (if (= $XDTB_Global_Region_Erase_type "1")
     
101.         (setq filler (list "wp" box))
     
102.         (setq filler (list "cp" box))
     
103.       )
     
104.       (if (setq ss (apply 'ssget filler))
     
105.         (progn
     
106.           (xdrx_begin)
     
107.           (if (ssmemb e ss)
     
108.             (ssdel e ss)
     
109.           )
     
110.           (command ".erase" ss "")
     
111.           (xdrx_end)
     
112.         )
     
113.       )
     
114.     )
     
115.   )
     
116.   (princ)
     
117. )
     
118. [/font]

[font=courier new]<br /> ;|<br />    命令：XDTB_RegionCopy<br />    功能：区域拷贝<br /> |;<br /> (defun c:XDTB_RegionCopy (/ tf e filler box ss)<br />   (if (not $XDTB_Global_Region_type)<br />     (setq $XDTB_Global_Region_type "2")<br />   )<br />   (setq tf t)<br />   (while (and<br />            tf<br />            (progn<br />              (prompt (strcat "\n**操作方式--" (if (= $XDTB_Global_Region_type<br />                                                   "1"<br />                                                )<br />                                              "窗口**"<br />                                              "交叉窗口**"<br />                                            )<br />                      )<br />              )<br />              (initget "1 2")<br />              (setq e (xdrx_entsel "\n请拾取区域的边界曲线[1:窗口/2:交叉]<退出>:"))<br />            )<br />            (progn<br />              (cond<br />                ((= (type e) 'STR)<br />                  (setq $XDTB_Global_Region_type e)<br />                )<br />                ((= (type (car e)) 'ENAME)<br />                  (setq tf nil)<br />                )<br />              )<br />              t<br />            )<br />          )<br />   )<br />   (setq e (car e))<br />   (if (>= (length (setq box (xdrx_getsamplept e))) 3)<br />     (progn<br />       (if (= $XDTB_Global_Region_type "1")<br />         (setq filler (list "wp" box))<br />         (setq filler (list "cp" box))<br />       )<br />       (if (setq ss (apply 'ssget filler))<br />         (progn<br />           (xdrx_begin)<br />           (if (not (ssmemb e ss))<br />             (ssadd e ss)<br />           )<br />           ($xdlsp_dragm ss nil t)<br />           (xdrx_end)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> ;|<br />    命令：XDTB_RegionErase<br />    功能：区域删除<br /> |;<br /> (defun c:XDTB_RegionErase (/ tf e filler box ss)<br />   (if (not $XDTB_Global_Region_Erase_type)<br />     (setq $XDTB_Global_Region_Erase_type "2")<br />   )<br />   (setq tf t)<br />   (while (and<br />            tf<br />            (progn<br />              (prompt (strcat "\n**操作方式--" (if (= $XDTB_Global_Region_Erase_type<br />                                                   "1"<br />                                                )<br />                                              "窗口**"<br />                                              "交叉窗口**"<br />                                            )<br />                      )<br />              )<br />              (initget "1 2")<br />              (setq e (xdrx_entsel "\n请拾取区域的边界曲线[1:窗口/2:交叉]<退出>:"))<br />            )<br />            (progn<br />              (cond<br />                ((= (type e) 'STR)<br />                  (setq $XDTB_Global_Region_Erase_type e)<br />                )<br />                ((= (type (car e)) 'ENAME)<br />                  (setq tf nil)<br />                )<br />              )<br />              t<br />            )<br />          )<br />   )<br />   (setq e (car e))<br />   (if (>= (length (setq box (xdrx_getsamplept e))) 3)<br />     (progn<br />       (if (= $XDTB_Global_Region_Erase_type "1")<br />         (setq filler (list "wp" box))<br />         (setq filler (list "cp" box))<br />       )<br />       (if (setq ss (apply 'ssget filler))<br />         (progn<br />           (xdrx_begin)<br />           (if (ssmemb e ss)<br />             (ssdel e ss)<br />           )<br />           (command ".erase" ss "")<br />           (xdrx_end)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> [/font]

snsj

太好了~~~~~~

skevin1

区域拷贝的內容好像有錯誤使用後出現...Command: XDTB_RegionCopy

**操作方式--交叉窗口**
?拾取?域的?界曲?[1:窗口/2:交叉]<退出>:; error: no function definition:
$XDLSP_DRAGM

Command:

XDSoft

最初由 skevin1 发布
[B]区域拷贝的內容好像有錯誤使用後出現...Command: XDTB_RegionCopy

**操作方式--交叉窗口**
?拾取?域的?界曲?[1:窗口/2:交叉]<退出>:; error: no function definition:
$XDLSP_DRAGM

Command: [/B]

在晓东工具箱环境下面使用。

冰火

能不能单独写一个“选择”的程序，无论执行什么命令，在选择的时候都可以把曲线作为选择边界进行操作。现在cad中的命令中有选择有“wp”和“cp”,但没有选曲线实体方便。

aeo

从上
一路到  (if (setq ss (apply 'ssget filler))
这ss酒丝