Jump to content

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


ehsantavassolian

Recommended Posts

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

 

101.jpg

 

draw a copy of the selected range out of the map

 

103.jpg

 

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

 

104.jpg

Edited by ehsantavassolian
Link to comment
Share on other sites

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...

Link to comment
Share on other sites

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?

Link to comment
Share on other sites

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)
         )
       )
     )
   )
 )

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...