AutoCAD Lisp to Pan a certain, stored distance.
@ВeekeeCZ wrote:....
Do you use the GRID? ... I can see advantages in this workflow...
So can I, but not with just a GRID setting -- you would also want SNAP turned on:
@Michael.Traveller wrote:
....
What could be useful is having a copy up, copy down, copy left, copy right and copy set....
And a third one which is also useful would be able to copy and instantly pan to the new location at the same time ( mixing both codes!)
Here's my take on it. There are commands for merely Panning in the different directions at the specified distance, for merely Copying, and for Copying and also Panning to the location of the copy.
For the Copying ones, you can have object(s) pre-selected or not; it ignores things on locked Layers in either case.
I didn't think there was likely to be a single distance common enough to use as a predetermined initial default value, but that can be added easily. It remembers your distance and offers it as default [only if it exists] so you can see what it was when you go to change it. Use the getCPdist command to set a new one -- it will be called for you automatically the first time you use any of the commands if there's no distance set yet.
I used command names with two C's for the merely-Copy commands, because I already have a custom CL command and I use CR for CiRcle [changing the alias C to be for Copy]. And I used command names with two P's for the merely-Pan commands, because most of the combinations with one are already default aliases. The Copy-and-Pan-to-the-location-of-the-copy commands start with CP [only one each]
(defun C:getCPdist ()
(initget (if *CPdist 6 7)); no zero, no negative, no Enter on first use
(setq *CPdist
(cond
( (getdist
(strcat
"\nCopy/Pan distance"
(if *CPdist (strcat " <" (rtos *CPdist) ">") ""); in current Units mode/precision
": "
); strcat
); getdist
); User-input condition
(*CPdist); prior value on Enter [when allowed]
); cond
); setq
(princ)
); defun
(defun CDD (dir) ; = Copy at Direction and Distance
(if (not *CPdist) (C:getCPdist))
(command "_.copy"
(cond
((ssget "_I") (ssget "_:L-I")); unlocked only among pre-selection if any
((ssget "_:L")); otherwise, unlocked only among new selection
); cond
"" "_non" (polar '(0 0) dir *CPdist) ""
); command
(princ)
); defun
(defun C:CCR () (CDD 0)); = Copy Right
(defun C:CCU () (CDD (/ pi 2))); = Copy Up
(defun C:CCL () (CDD pi)); = Copy Left
(defun C:CCD () (CDD (* pi 1.5))); = Copy Down
(defun PDD (dir); = Pan at Direction and Distance
(command "_.-pan" "_non" (polar '(0 0) dir (- *CPdist)) "")
(princ)
); defun
(defun C:PPR () (PDD 0)); = Pan Right
(defun C:PPU () (PDD (/ pi 2))); = Pan Up
(defun C:PPL () (PDD pi)); = Pan Left
(defun C:PPD () (PDD (* pi 1.5))); = Pan Down
(defun CPDD (dir); = Copy & Pan at Direction and Distance
(CDD dir)
(PDD dir)
(princ)
); defun
(defun C:CPR () (CPDD 0)); = Copy & Pan Right
(defun C:CPU () (CPDD (/ pi 2))); = Copy & Pan Up
(defun C:CPL () (CPDD pi)); = Copy & Pan Left
(defun C:CPD () (CPDD (* pi 1.5))); = Copy & Pan Down
@Michael.Traveller wrote:
....
May l gently ask you if we can add some sort of new functions to it?
1) move something a fixed distance
2) move and pan a fixed distance
3) copy-pattern for multiple distances (... to copy it from ground floor to F1 to F5, ... copies this block directly to the other floors which are equally distant by me).
....
For 1) and 2), it was a simple-enough thing to add Move-oriented versions by editing the Copy-oriented ones -- see the attached CopyMovePanDist.lsp that adds those. See the notes at the top of the file. I changed the names of both the get-the-distance command and the global variable that holds that distance, adding the M for Move.
It's up to you to check/verify whether you already have any commands or aliases defined that are named the same as any of its command names, and if so, adjust something [you decide what] accordingly.
For 3), ARRAY may do what you want, but I also attach something I've used for many years -- CopyAgain.lsp with its CA command. It has you do a regular Copy operation [with or without pre-selection of objects], and then as many times as you hit Enter/Space, it makes another copy of the selection at the same distance and direction from the previous copy as the initial copy displacement. Note that [as prompted] you need to hit ESCape [or pick something that includes that, such as a ribbon command icon] to end it -- typing in some other command name while CA's prompt is up will make another copy, rather than get into the command you typed.
