Zoom to center at the point pick up in another drawing
AutoLisp routines cannot start in one drawing and continue in another. You would need one in the first drawing to save the point, such as using the blackboard space, and another one in the second drawing to use that point for the Center option in Zoom.
This combination seems to work [minimally tested]:
(vl-load-com); if needed
(defun C:ZCset ()
(vl-bb-set 'ZC (getpoint "\nPoint to use as Zoom Center in other drawing: "))
(princ)
)
(defun C:ZCuse ()
(command "_.zoom" "_c" (vl-bb-ref 'ZC) 100)
(princ)
)
Hello Kent,
Thank very much for your input, sorry for take so long get back to you.
I didn’t get how to use blackboard space save the point from first drawing, and how to use the lisp you give to me.
After I put command: ZCset, I has been asked “Point to use as Zoom Center in other drawing:”, I try to put the coordinate of the point, but looks not work.
I try to get the lisp have function similar as below one called “GE”, we use it in civil 3D, can get a point coordinate, save in memory, “GE” is covert the point coordinate to Latitude and Longitude, then quickly find that point in google earth.
I don’t need convert to Lat and Long, but I hope can save the point X, Y value in memory, then paste to next drawing when I use Zoom>>Center, for me can quickly locate the point location. The reason I need this function is that I always need looking for features in a reference drawing which cover very big area. So I hope can get someway can quickly zoom to the spot I am looking for.
GE – CIVIL3D command - prompts you for a point, then based on your current coordinate system used it is creating in memory the coordinates of that point in lat and long. Then you have to open Google earth and to right click into the search box , choose paste and the coordinates from memory are been pasted into google earth. By clicking the search button into google earth you will be taken to the position of the point.
This command works with any coordinate system you may have chosen for your current drawing.
Thanks again,
Bin
Try this
(defun c:cpypt ( / a b c)
;https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/copy-string-to-clipboard/m-p/5607258/highlight/true#M331744
(setq a (getpoint "\nPick a point") b (rtos (car a) 2 5) c (rtos (cadr a) 2 5) a (strcat b "," c))
(vlax-invoke(vlax-get (vlax-get (vlax-create-object "htmlfile") 'ParentWindow) 'ClipBoardData)'setData "TEXT" a)
)Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
@Bin2009 wrote:
....
After I put command: ZCset, I has been asked “Point to use as Zoom Center in other drawing:”, I try to put the coordinate of the point....
How are you putting the coordinates? You can simply pick a point with the cursor. But it saves it in XYZ terms, not degrees of latitude and longitude. And the ZCuse command uses it in XYZ terms, and it would require you to use that command, not the Google Earth way. If that is not workable, but degrees of latitude and longitude are needed, it should have been mentioned in the first post.
