topic Re: Quick copy with spacing - LISP in Visual LISP, AutoLISP and General Customization Forum

Quick copy with spacing - LISP

Lukasvop1 — Fri, 28 Jul 2023 12:41:31 GMT

Hello guys, I found awesome video with lisp who can easy create multiple copy of object with spacing only with move with mouse.

Can you guys create something like this? Will be great if will be possible create copy in any direction, any spacing (Pick this spacing from drawing).

(view in My Videos)

@komondormrex @Kent1Cooper

Re: Quick copy with spacing - LISP

komondormrex — Fri, 28 Jul 2023 12:51:26 GMT

sure thing)

Re: Quick copy with spacing - LISP

Kent1Cooper — Fri, 28 Jul 2023 13:44:54 GMT

I have something at least very similar, called CopyAgain.lsp with its CA command, >here<. It doesn't do the number of copies drag-wise as in your video, but it's close -- you choose what you want to Copy, and specify the displacement by any method the command accepts, and then you hit Enter/space as many times as you want, and with each one it makes another copy of the object(s), displaced at the same distance and direction from the previous copy. ESCape ends the repeating Copying.

Re: Quick copy with spacing - LISP

Lukasvop1 — Fri, 28 Jul 2023 14:09:08 GMT

Thank you Kent, I appreciate your response but when I need copy object 30 times and next one x times and so on.. I will broke my enter key.

Re: Quick copy with spacing - LISP

CADaSchtroumpf — Fri, 28 Jul 2023 14:25:42 GMT

And can't the ARRAY command do this job?

Re: Quick copy with spacing - LISP

Lukasvop1 — Fri, 28 Jul 2023 14:37:00 GMT

Nope, but this should be in Array function default, this thing missing here.

Re: Quick copy with spacing - LISP

komondormrex — Fri, 28 Jul 2023 17:11:02 GMT

here goes a quick shot for your evaluation) need tuning thou.

;**************************************************************************************************************************** ; komondormrex, jul 2023 ;**************************************************************************************************************************** (defun crd (in_list) (reverse (cdr (reverse in_list))) ) ;**************************************************************************************************************************** (defun c:dynamic_multiple_copy (/ copy_index command_finished original_copy_instance copied_set base_point second_point copy_distance error_ocurred copied_point current_copy_index ) (setq copy_index 0 original_copy_instance (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget))))) copied_set (list (list copy_index original_copy_instance)) base_point (getpoint "\nPick base point: ") second_point (getpoint base_point "\nPick second point: ") copy_distance (distance base_point second_point) ) (while (not command_finished) (setq error_ocurred (if (vl-catch-all-error-p (setq grread_data (vl-catch-all-apply 'grread (list t 12 0)))) t nil)) (redraw) (cond ( error_ocurred (prompt "\nCommand cancelled") (mapcar 'vla-erase (apply 'append (mapcar 'cadr (cdr copied_set)))) (setq command_finished t) ) ( (= 5 (car grread_data)) (grdraw base_point (setq copied_point (inters base_point second_point (cadr grread_data) (polar (cadr grread_data) (+ (* 0.5 pi) (angle base_point second_point)) 1) nil ) ) 1 ) (cond ( (and (< (car (last copied_set)) (setq current_copy_index (fix (/ (distance base_point (cadr grread_data)) copy_distance)))) (null (assoc current_copy_index copied_set)) ) (repeat (- current_copy_index (car (last copied_set))) (foreach object (setq copied_instance (mapcar 'vla-copy original_copy_instance)) (vla-move object (vlax-3d-point (trans base_point 1 0)) (vlax-3d-point (trans (polar base_point (angle base_point copied_point) (* (setq added_copy_index (1+ (car (last copied_set)))) copy_distance) ) 1 0 ) ) ) ) (setq copied_set (append copied_set (list (list added_copy_index copied_instance)))) ) ) ( t (repeat (- (car (last copied_set)) current_copy_index) (mapcar 'vla-erase (cadr (last copied_set))) (setq copied_set (crd copied_set)) ) ) ) ) ( (= 3 (car grread_data)) (setq command_finished t) ) ( t (prompt "\nWrong key pressed!") ) ) ) (princ) ) ;****************************************************************************************************************************

Re: Quick copy with spacing - LISP

Lukasvop1 — Fri, 28 Jul 2023 15:10:21 GMT

Nice, you re like god of lisp, but I found little bit issue when I want copy object vertically sent me error.

Re: Quick copy with spacing - LISP

Kent1Cooper — Fri, 28 Jul 2023 16:07:23 GMT

@CADaSchtroumpf wrote:

And can't the ARRAY command do this job?

Certainly it can! Here's a horizontal one very like the Message 1 video:

(defun C:AHD (/ ss); = Array Horizontally, Dynamic (if (setq ss (ssget "_:L")) (progn ; then (initcommandversion) (command "_.array" ss "" "_rectangular" "_rows" 1 "" "" "_columns" 2 (getdist) ); command ) ); if (prin1) )

That leaves you with two of them, likely not initially at the right spacing but it's asking you for the spacing, so give it that [either by picking two points as in the video or typing in a value], and then you're left to grab the grip and drag for the number of columns, as in the video.

It works whether you have ARRAY set to be Associative or not, but that choice could be built in if you have a preference. Also set DELOBJ for whether you want the source object(s) to remain in addition to the Array result.

A single command could be made to offer the choice of going horizontal or vertical, or separate commands could be defined, or....

Re: Quick copy with spacing - LISP

komondormrex — Fri, 28 Jul 2023 16:44:45 GMT

check update in 7.

Re: Quick copy with spacing - LISP

Lukasvop1 — Fri, 28 Jul 2023 16:59:14 GMT

Now it's perfect, exactly the same as on the video, thank you.

Re: Quick copy with spacing - LISP

komondormrex — Fri, 28 Jul 2023 17:13:44 GMT

your welcome)

Re: Quick copy with spacing - LISP

Sea-Haven — Sat, 29 Jul 2023 03:32:46 GMT

if you want to copy objects on an angle array will work when you say pick start point, end point for angle line use UCS OB (entlast) or UCS 2 points than array will match the angle. Then UCS W to return back.

Re: Quick copy with spacing - LISP

Lukasvop1 — Sat, 29 Jul 2023 07:42:09 GMT

Yes, but this is simplified, komondormrex solved it in his script.

1.) select object to array
2.) pick base point
3.) pick second point - define "angle" and "spacing" at the same time
4.) drag mouse - increase/decrease "number of copies"