[转贴]：Copy any entity from an XREF or a block.

lsjjm

2. ; By Jeffery P Sanders  Copyright 2002 by JefferyPSanders.com
   
3. (defun C:CXF()
   
4. ;turn the command echo off
   
5. (setvar "cmdecho" 0)
   
6. ;save some system variables
   
7. (setq origCmddia(getvar "cmddia"))
   
8. (setq origFiledia(getvar "filedia"))
   
9. ;set some system variables
   
10. (setvar "cmddia" 0)
    
11. (setvar "filedia" 0)
    
12. ;print a string to the command line to define what we are asking for (since entsel only asks for an object)
    
13. (princ "\n Select XRef or Block: ")
    
14. ;select entity
    
15. (if (setq entselected(entsel))                                          
    
16.    (progn
    
17.     ;save the entity name
    
18.     (setq en(car entselected))
    
19.     ;save the point selected
    
20.     (setq selectedPt(cadr entselected))
    
21.     ;get entity group codes
    
22.     (setq enlist(entget en))                           
    
23.     ; if it is a block
    
24.     (if(= "INSERT" (cdr(assoc 0 enlist)))               
    
25.       (progn
    
26.         ;get the dxf group codes for the first sub-entity
    
27.         (setq enlist2(tblNext "block" en))
    
28.         ;save the file name of the block
    
29.         (setq shortFileName(cdr(assoc 2 enlist2)))
    
30.         ;set a mark for the undo command
    
31.         (command "undo" "mark")
    
32.         ;make the XREF part of the drawing temporarily
    
33.         (command "-xref" "bind" shortFileName)
    
34.         ;explode the block temporarily
    
35.         (command "explode" en)
    
36.         ;get the entity at the point selected originally if it exist
    
37.         (if (setq eset(ssget selectedPt))
    
38.           (progn
    
39.              ;get the name of the entity selected
    
40.              (setq en(ssname eset 0))
    
41.              ;get the DXF group codes of the entity
    
42.              (setq enlist(entget en))
    
43.              ;make a wblock named "X2"
    
44.              (if(findfile "x2.dwg")
    
45.                (command "_wblock" "x2" "y" "" selectedPt en "")
    
46.                (command "_wblock" "x2" "" selectedPt en "")
    
47.              )
    
48.              ;undo everything back to the marked position
    
49.              (command "undo" "Back")
    
50.              ;insert the X2 block
    
51.              (setq pt1(getpoint selectedPt "\n Insertion Point: "))
    
52.              (command "insert" "*x2" pt1 "" "")
    
53.            )
    
54.            (alert "*Error* - Select a sub-entity.")
    
55.         )
    
56.       )
    
57.       (alert "*Error* - Select a block or an XREF.")
    
58.     )
    
59.    )
    
60.    (alert "*Error* - Select a block or an XREF please.")
    
61. )
    
62. ;reset system variables
    
63. (setvar "cmddia" origCmddia)
    
64. (setvar "filedia" origFiledia)
    
65. (setvar "cmdecho" 1)
    
66. ;make a clean exit
    
67. (princ "\n ...CPYXREF.lsp Complete.  ")
    
68. (princ "\n By: Jeffery P. Sanders  7/19/02 Copyright 2002 by jefferypsanders.com")
    
69. (princ)
    
70. )

; By Jeffery P Sanders  Copyright 2002 by JefferyPSanders.com<br /> (defun C:CXF()<br /> ;turn the command echo off<br /> (setvar "cmdecho" 0)<br /> ;save some system variables<br /> (setq origCmddia(getvar "cmddia"))<br /> (setq origFiledia(getvar "filedia"))<br /> ;set some system variables<br /> (setvar "cmddia" 0)<br /> (setvar "filedia" 0)<br /> ;print a string to the command line to define what we are asking for (since entsel only asks for an object)<br /> (princ "\n Select XRef or Block: ")<br /> ;select entity<br /> (if (setq entselected(entsel))                                           <br />    (progn<br />     ;save the entity name<br />     (setq en(car entselected))<br />     ;save the point selected<br />     (setq selectedPt(cadr entselected))<br />     ;get entity group codes<br />     (setq enlist(entget en))                           <br />     ; if it is a block<br />     (if(= "INSERT" (cdr(assoc 0 enlist)))               <br />       (progn<br />         ;get the dxf group codes for the first sub-entity<br />         (setq enlist2(tblNext "block" en))<br />         ;save the file name of the block<br />         (setq shortFileName(cdr(assoc 2 enlist2)))<br />         ;set a mark for the undo command<br />         (command "undo" "mark")<br />         ;make the XREF part of the drawing temporarily<br />         (command "-xref" "bind" shortFileName)<br />         ;explode the block temporarily<br />         (command "explode" en)<br />         ;get the entity at the point selected originally if it exist<br />         (if (setq eset(ssget selectedPt))<br />           (progn<br />              ;get the name of the entity selected<br />              (setq en(ssname eset 0))<br />              ;get the DXF group codes of the entity<br />              (setq enlist(entget en))<br />              ;make a wblock named "X2"<br />              (if(findfile "x2.dwg")<br />                (command "_wblock" "x2" "y" "" selectedPt en "")<br />                (command "_wblock" "x2" "" selectedPt en "")<br />              )<br />              ;undo everything back to the marked position<br />              (command "undo" "Back")<br />              ;insert the X2 block<br />              (setq pt1(getpoint selectedPt "\n Insertion Point: "))<br />              (command "insert" "*x2" pt1 "" "")<br />            )<br />            (alert "*Error* - Select a sub-entity.")<br />         )<br />       )<br />       (alert "*Error* - Select a block or an XREF.")<br />     )<br />    )<br />    (alert "*Error* - Select a block or an XREF please.")<br /> )<br /> ;reset system variables<br /> (setvar "cmddia" origCmddia)<br /> (setvar "filedia" origFiledia)<br /> (setvar "cmdecho" 1)<br /> ;make a clean exit<br /> (princ "\n ...CPYXREF.lsp Complete.  ")<br /> (princ "\n By: Jeffery P. Sanders  7/19/02 Copyright 2002 by jefferypsanders.com")<br /> (princ)<br /> )

li809

这里分享一个,网上得来