choose a circle area on a map, copy of the selected range out of the map

[ehsantavassolian]

In the microstation software, I can choose a circle-shaped area on a map,

 

 

draw a copy of the selected range out of the map

 

 

so that I can block it and magnify it . Is it possible in AutoCAD or via Autolisp?

 

Edited July 21, 2018 by ehsantavassolian

[marko_ribar]

Your attachments are invalid...

 

 

If your map is actually DWG with CAD entities you can select portion you like, then block it and then do CLIPIT with circle shaped polygon to simulate your task...

[ehsantavassolian]

yes i have dwg file

But how can I choose all the drawings by choosing a circle. Without using Trim commands. them wipeout the circle and block it .

The number of drawings in the map is very large, and the use of the Trim command is very time consuming

can we do it with autolisp?

[Grrr]

Andrea did something similair to the request here.

However I'm not sure whats the technique to create a viewport like that in modelspace.

[marko_ribar]

Of course Andres have ideas... I replicated his achievement while ago...

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/magnifying-glass-in-autocad/m-p/7034374/highlight/true#M352530

 

 

HTH., M.R.

[ehsantavassolian]

This was the best answer. thank you :shock:

 

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/magnifying-glass-in-autocad/m-p/7034374#M352530

[Grrr]

Of course Andres have ideas... I replicated his achievement while ago...

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/magnifying-glass-in-autocad/m-p/7034374/highlight/true#M352530

 

 

HTH., M.R.

 

Nice one, Marko!

In order to slighly increase the performance I would suggest to add a 'sleep' so there won't be that many command calls per cursor movement:

  [color="red"](setq tm (rem (getvar 'cdate) 30))[/color]
 (while (/= 3 (car (setq gr (grread t))))
   (if loop
     (entdel bn)
   )
   (setq p (cadr gr))
   (if [color="red"](/= tm (setq tmp (rem (getvar 'cdate) 30))[/color])
     (vl-catch-all-apply
       (function 
         (lambda nil 
           (setq tm tmp)
           (setq v (mapcar '- '(0 0 0) p))
           (setq vn (mapcar '* v (list scf scf scf)))
           (entupd (cdr (assoc -1 (entmod (subst (cons 10 p) (assoc 10 (entget s2)) (entget s2))))))
           (setq ip (mapcar '+ pp vn))
           (setq bn (vlax-vla-object->ename (vla-insertblock spc (vlax-3d-point ip) n scf scf scf 0)))
           (command "_.XCLIP" bn "" "_N" "_S" e)
           (setq loop t)
         )
       )
     )
   )
 )

[Roy_043]

Why not use paper space viewports to accomplish this?