topic Re: Copy objects using previous basepoint in Visual LISP, AutoLISP and General Customization Forum

Copy objects using previous basepoint

Anonymous — Thu, 25 Feb 2016 11:17:48 GMT

Hey guys,

I currently have a small LISP program that i wrote that will copy an object to multiple positions and the basepoint would change according to the new position.

Now the problem i have with my LISP program is that when i call up the COPY command, i cannot temporarily disable my snaps after i have selected the new position. When i place an object down and want to copy the object 3000mm to the right (can be any length or direction), it will snap to any other object in the vacinity of the new position.

I have had a look at using the standard COPY command, the only problem with that is if i want it to update my basepoint, i have to pick a basepoint, and then shift-right-click and select "From", then select the basepoint again before i can carry on, and i will have to do this every time i use the COPY command.

Below is the Lisp program, if anybody could help, it would be highly appreciated.

(defun C:BASECOPY( / selset pt xsel)

(defun *error* (msg)
(princ "Error: ")
(princ msg)
(setvar "OSMODE" cosmode)
(command "COLOR" ccolor)
(setvar "CLAYER" curlayer)
(command "LINETYPE" cline)
(setvar "cmdecho" 1)
(princ)
)

(setq cosmode (getvar "OSMODE")
ccolor (getvar "COLOR")
curlayer (getvar "CLAYER")
cline (getvar "LINETYPE"))

(setq selset (ssget))
(setq pt (getpoint "\nSpecify Base Point:"))
(while
(setq xsel (entlast))
(command "COPY" selset "" pt Pause "'_OSMODE" 0)
(setq pt (car (cdr (grread 1 4 1 ))))
(setq pt (getvar "lastpoint"))
(setq selset (ssadd))
(while (/= xsel nil)
(if (/= xsel nil)(setq xsel (entnext xsel)))
(if (/= xsel nil)(ssadd xsel selset))
)
(setvar "OSMODE" cosmode)
)
(princ)
)

Re: Copy objects using previous basepoint

rkmcswain — Thu, 25 Feb 2016 12:21:56 GMT

CGeylen wrote:

You can call the "non" object snap mode to disable object snap.

Example: (command "._arc" "_non" pt1 "_non" pt2)

Re: Copy objects using previous basepoint

marko_ribar — Thu, 25 Feb 2016 19:55:55 GMT

Not sure ab OSNAPs, but few years ago I wrote something similar to your routine... You can try it, it has many options and I use it very often...

Maybe it can help you, although not sure ab snapping, but I had no such issues when inputing multiple copy actions for the same distance and same direction...

Routine can be found here :

https://www.theswamp.org/index.php?topic=40547.msg481693#msg481693

HTH, M.R.

Re: Copy objects using previous basepoint

Kent1Cooper — Fri, 26 Feb 2016 15:13:54 GMT

@Anonymous wrote:

... a small LISP program that i wrote that will copy an object to multiple positions and the basepoint would change according to the new position.

.... When i place an object down and want to copy the object 3000mm to the right (can be any length or direction), it will snap to any other object in the vacinity of the new position.

....

(defun C:BASECOPY( / selset pt xsel)

(defun *error* (msg) ; this should be listed among localized variables to revert to AutoCAD's when done
(princ "Error: ")
(princ msg)
(setvar "OSMODE" cosmode)
(command "COLOR" ccolor) ; newer versions don't like (command) functions in *error*
(setvar "CLAYER" curlayer)
(command "LINETYPE" cline) ; newer versions don't like (command) functions in *error*
(setvar "cmdecho" 1) ; [cmdecho was never turned off]
(princ)
)

(setq cosmode (getvar "OSMODE")
ccolor (getvar "COLOR") ; incorrect System Variable name
curlayer (getvar "CLAYER")
cline (getvar "LINETYPE")) ; incorrect System Variable name

(setq selset (ssget))
(setq pt (getpoint "\nSpecify Base Point:"))
(while
(setq xsel (entlast))
(command "COPY" selset "" pt Pause "'_OSMODE" 0)
(setq pt (car (cdr (grread 1 4 1 ))))
(setq pt (getvar "lastpoint"))
(setq selset (ssadd))
(while (/= xsel nil) ; [not used in mine, but this kind of thing can be just (while xsel

; since the mere existence of the variable is the same as its not being nil]
(if (/= xsel nil)(setq xsel (entnext xsel))) ; and likewise, just (if xsel ]
(if (/= xsel nil)(ssadd xsel selset))
)
(setvar "OSMODE" cosmode)
)
(princ) ; no point -- it never gets to this, since it has to be ended with Esc
)

I would go about this in a different way. If you Copy things in place and then Move the copy, you can keep going along using the Previous selection repeatedly, without the need to re-construct the selection set every time.

[You also have some errors I commented about above.]

Try this, which goes about it in the Copy-in-place-then-Move way, and does not Osnap to nearby locations when given direction-and-distance input as you describe:

(defun C:BASECOPY(/ *error* cosmode ccolor curlayer cline n ss)

  (defun *error* (msg)
    (if (not (wcmatch msg "Function cancelled,quit / exit abort,console break"))
      (prompt (strcat "Error: " msg))
    ); if
    (setvar 'osmode cosmode)
    (setvar 'cecolor ccolor)
    (setvar 'clayer curlayer)
    (setvar 'celtype cline)
    (repeat (setq n (sslength (setq ss (ssget "_P"))))
      (entdel (ssname ss (setq n (1- n))))
      ; [remove latest copy that's being Moved when routine is cancelled]
    ); repeat
    (princ)
  )

  (setq
    cosmode (getvar 'osmode)
    ccolor (getvar 'cecolor)
    curlayer (getvar 'clayer)
    cline (getvar 'celtype)
  )

  (command
    "_.select" pause ; allows any amount of selection; don't need selection-set variable here
    "_.copy" "_previous" "" pause "_none" "@"
      ; copy in-place [pause gets initial base pt without need for variable]
    "_.move" "_previous" "" "_none" "@" pause
  ); command
  (while T ; as long as you want to keep going
    (command
      "_.copy" "_previous" "" "_none" "@" "_none" "@" ; copy in-place
      "_.move" "_previous" "" "_none" "@" pause
    ); command
  ); while
); defun

Re: Copy objects using previous basepoint

scot-65 — Sat, 27 Feb 2016 00:07:21 GMT

I would eliminate the pause and incorporate the second point
inside the while test.

>> (command "COPY" selset "" pt Pause "'_OSMODE" 0)

Within your while, at the end, set pt2 to pt1 and call the next pt2 in the while test:

(if (and (setq selset (ssget)) (setq pt1 (getpoint "\nFirst point: ")))
(while (setq pt2 (getpoint pt1 "Next point: "))
(setq xsel (entlast))
...
(setvar 'OSMODE (+ (getvar 'OSMODE) 16384))
(command "COPY"...
(setvar 'OSMODE (- (getvar 'OSMODE) 16384))
...
(setq pt2 pt1)
);while
(princ :\nNo object(s) selected or point specified. ")
);if

- One can error out if (ssget) has no members. You need to test
for that before proceeding to the next user input.
- Notice that there is also a test for pt1's validity before proceeding
to the while.
- Notice 16384 is added to OSMODE. This will toggle the status icon
in the status line. So if there really is an error, the user can simply turn
OSMODE back on by selecting the icon.
- And finally, [Esc] does not need to be used to terminate the while.
Just a simple right-click or [Enter] or [spacebar], like most all the
AutoCAD commands.

- ALWAYS TEST USER INPUT BEFORE PROCEEDING!
If done correctly, one does not need any *error* handling, ever.
The structure I show above does not need an error handler since
there are no variables that are set during the user input gathering
section of the code.

Color, Layer and Linetype does not need to be retained when using
the copy command.

(untested)
???

Re: Copy objects using previous basepoint

Anonymous — Mon, 07 Mar 2016 07:22:34 GMT

Thanks guys for all the help.

I did try all the lisp programs but i think the problem rests in the copy command in Autocad itself and not within the Lisp Programming.

When i do copy an object, Autocad does not temporarily disable the snaps when you input a distance. causing it to snap to diferent objects when it lays the copy down.

I will continue to investigate and post if i find a solution.

Much appreciated.