CAD Forum - tips, tricks, discussion and utilities for AutoCAD, Inventor, Revit and other Autodesk products [www.cadforum.cz] ARKANCE | CONTACT - CZ | SK | EN | DE
Over 1.092.000 registered users (EN+CZ). AutoCAD tips, Inventor tips, Revit tips. Try the new precise Engineering calculator. New AutoCAD 2026 commands and variables.
Plex.Earth connects AutoCAD and Google Earth
RSS channel - CAD tips RSS tips
RSS discussions

Discussion Discussion forum

?
CAD discussions, advices, exchange of experience

CAD Forum - Homepage CAD discussion forum - ask any CAD-related questions here, share your CAD knowledge on AutoCAD, Inventor, Revit and other Autodesk software with your peers from all over the world. To start a new topic, choose an appropriate forum.

Please abide by the rules of this forum.
This is a peer-to-peer forum. The forum doesn't replace the official direct technical support provided by ARKANCE for its customers.
How to post questions: register or login, go to the specific forum and click the NEW TOPIC button.
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

Topic Closedlisp for finding block

 Post Reply Post Reply
Author
RMCGARRIE View Drop Down
Newbie
Newbie


Joined: 09.Mar.2011
Location: United Kingdom
Using: Autocad arch 2008.2011 Inventor 2010
Status: Offline
Points: 5
Direct Link To This Post Topic: lisp for finding block
    Posted: 12.Apr.2011 at 10:29
does anybody know of a lisp that can zoom to a block using the handle code. i already know how to get each handle code i just need to know how to zoom to the block. i am using 2011 cad. hope somebody can help?

ry
ryan mcgarrie CAD OP
Back to Top
John Connor View Drop Down
Senior Member
Senior Member


Joined: 01.Feb.2011
Location: United States
Using: AutoCAD 2018
Status: Offline
Points: 7175
Direct Link To This Post Posted: 12.Apr.2011 at 11:45
I found this small lisp routine at the AutoDesk Discussion Forums.  It was submitted by leprofca on 03-22-2007.  I have not used it so I cannot tell you if it works or not.
 
(defun C:HANDLE ( / handle ent )
(setq handle (getstring "\nEnter handle to search for: "))
(setq ent (handent handle))
(if ent
(progn ;line added
(sssetfirst nil (ssadd ent))
(command "_zoom" "_Object");line added
);line added
;Else
(ALERT "The handle you entered does not exist in this drawing!")
)
(princ)
)
"Humans have a strength that cannot be measured. This is John Connor. If you are reading this, you are the resistance."

<<AutoCAD 2015>>

Back to Top

Related CAD tips:


 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down



This page was generated in 0,234 seconds.