LISP:Obtain Coordinates of a p

vernonlee · 发表于 2022-7-5 18:23:31

Could some help me with a LISP.

Basically a LISP to

1) obtain the Coordinates of a user input point &
2) the zoom magnification of the same point and
3) save the values to an existing file & override it: ZoomToView.scr

This is the individual command I run to obtain the values for item 1 & 2

copy

Command: [b]ID[/b]Specify point:  X = [color=red][b]540.4345[/b][/color]     Y = [b][color=red]166.2423[/color][/b]     Z = [b][color=red]0.0000[/color][/b]

copy

Command: [b]Z[/b]ZOOMSpecify corner of window, enter a scale factor (nX or nXP), or[All/Center/Dynamic/Extents/Previous/Scale/Window/Object] : CSpecify center point:Enter magnification or height : *Cancel*

Then transfer the values to an existing script file, save & override the existing file: ZoomToView.scr

This is what is inside ZoomToView.scr

copy

ZoomC[color=red][b]540.4345[/b][/color],[b][color=red]166.2423[/color][/b],[b][color=red]0.0000[/color][/b][color=blue][b]112.1034[/b][/color]

The location of the script where i save to is as follows:-
D:\Office\AutoCAD\Scripts\ZoomToView.scr

Thanks

Lee Mac · 发表于 2022-7-5 18:29:23

Use getpoint to obtain the point and query the VIEWSIZE system variable for the height.

vernonlee · 发表于 2022-7-5 18:31:18

Thanks Lee for the advise.

Alas, I do not understand LISP enough to write it out from scratch. Do appreciate if someone can help me out on this.

Lee Mac · 发表于 2022-7-5 18:36:40

This one is pretty simple so you should at least be able to give it a try with some guidance - The basic functions you will need are as follows:

defun
if
getpoint
getvar
open
progn
write-line
strcat
rtos
close
princ

I would first suggest reading the developer documentation for each of the above functions if you don't already know what they do.

The pseudo-code for the program (that is, the basic operations it needs to perform) would be something like:

copy

[color=blue]def[/color]i[color=blue]n[/color]e function        [color=blue]if[/color] user [color=blue]get[/color]s [color=blue]point     [/color]   then                [color=blue]if [/color]the target .scr file can be [color=blue]open[/color]ed for [color=darkred]w[/color]riting                then           [color=blue]progn[/color]           [color=blue]write-line[/color] [color=darkred]"_.zoom"[/color] to file           [color=blue]write-line[/color][color=darkred] "_C"[/color] to file           [color=blue]write-line[/color] [[color=blue]strcat [/color][[color=blue]rtos [/color]x-coord] [[color=blue]rtos [/color]y-coord] [[color=blue]rtos [/color]z-coord]] to file           [color=blue]write-line[/color] [[color=blue]rtos [/color][[color=blue]getvar [/color][color=darkred]viewsize[/color]]] to file           [color=blue]close [/color]file             else                        [color=blue]princ [/color]file could not be opened for writing [color=blue]princ[/color]

vernonlee · 发表于 2022-7-5 18:38:40

Thanks Lee. Will give it a shot. Hope you can continue to guide me along the way.

For a start, any recommended link for the developer documentation I can read up on those functions you mention.

Thanks

BIGAL · 发表于 2022-7-5 18:44:19

pretty simple HELP and find developers help which is say the same as this link http://docs.autodesk.com/ACDMAC/2013/ENU/PDFs/acdmac_2013_autolisp_reference_guide.pdf

broncos15 · 发表于 2022-7-5 18:45:00

My suggestion is that there isn't really a need to create a script file. Instead, it would be easier to just create two separate lisp routines, one that stores the zoom information and one that zooms to the stored information. It is fairly easy using the commands Lee gave, you'll just need to make sure that your variables you store the zoom information in are global, not local. This way you won't have to mess with an extra file, but it will function the same way, it will just be quicker and more efficient. Let me know if you need any more help/suggestions because I'm glad to help.

BIGAL · 发表于 2022-7-5 18:50:44

boncos15 I agree with Lee with no disrespect to Vernonlee he has 494 posts its about time to start learning rather than just take the freebies. Lots like me are here to help not just write code.

broncos15 · 发表于 2022-7-5 18:53:07

BigAl, I agree, and I didn't know he had that many posts. By the way your posts have been really helpful to me for learning lisp.

vernonlee · 发表于 2022-7-5 18:56:27

Thanks BIGAL.

[编程交流] LISP:Obtain Coordinates of a p

发表回复

精选推荐