Topic: [XDrX-PlugIn(54)] Enhance NCOPY, support window selection, XREF

[xdcad]

You may need to download the XDRX API updated on December 20,
https://github.com/xdcad/XDrx-API

Code: [Select]

(defun c:XDTB_Ncopy (/ blkref mat p1 p2 box ss ents)
  (xdrx-begin)
  (if (and (setq blkref (car (xdrx-entsel
       (xdrx-string-multilanguage
"\n拾取图块或XREF<退出>:"
"\nPick BLOCK or XREF<Exit>:"
       )
       '((0 . "insert"))
     )
)
   )
   (setq mat (xdrx-matrix-wcs2block blkref))
   (setq p1 (getpoint (xdrx-string-multilanguage
"\n窗口第一点<退出>:"
"\nFirst point of window <Exit>:"
      )
    )
   )
   (setq p2 (xd::doc:getcorner
      p1
      (xdrx-string-multilanguage
"\n窗口第二点<退出>:"
"\nSecond point of window <Exit>:"
      )
      7
      nil
    )
   )
   (setq box (last p2))
   (setq ss (xdrx-block-getentities blkref "wp" box));;BLOCK, XREF, window selection entities
   (setq ms (xdrx-get-currentspace));;Current Space ID
   (setq ents (xdrx-object-deepclone ms ss mat))
          ;;Deep clone from XREF database to current space, apply transformation matrix, clone in situ
      )
    (progn
      (xd::drag:freemove
ents
(xd::geom:get9pt ents 5);drag basepoint at center
(+ 1  4 128);;Activate the base point, rotate 90 degrees, and align
547
t
      )
    )
  )
  (xdrx-end)
  (princ)
)


[dieptp]

 I got this:

Command:  XDTB_NCOPY
Pick BLOCK or XREF<Exit>:
First point of window <Exit>:
Second point of window <Exit>:
Application Error: 0 :- no function definition: nilno function definition: nil

[xdcad]

I got this:

Command:  XDTB_NCOPY
Pick BLOCK or XREF<Exit>:
First point of window <Exit>:
Second point of window <Exit>:
Application Error: 0 :- no function definition: nilno function definition: nil

go:  https://github.com/xdcad/XDrx-API
download xdrx-api, install, and.....