Topic: Lisp for "copy" command

[carmi]

hi,
there is a lisp similar to "copy" command of the Autocad?
In particular, i look for a lisp who make copy array fit as picture attached below.
I need this lisp because my cad software not have this command.
Thank you
Regards
Carmelo

[Lee Mac]

You don't have the 'Array' option as part of the standard 'Copy' command?

Current settings:  Copy mode = Multiple
Specify base point or [Displacement/mOde] <Displacement>:
Specify second point or [Array] <use first point as displacement>: A
Enter number of items to array: 10

Specify second point or [Fit]: F

[carmi]

I not have this option in my copy command...
If I had this chance i would not ask here
I use NanoCad 5

[ChrisCarlson]

Divide command with block insert?

[carmi]

Divide command with block insert?

Yes, i tried that command but actually "copy array fit" is more intuitive...
There are lisp file of the autocad command?

[ribarm]

Try 3parray.lsp posted here :
https://www.theswamp.org/index.php?topic=49028.msg541810#msg541810

[carmi]

Try 3parray.lsp posted here :
https://www.theswamp.org/index.php?topic=49028.msg541810#msg541810

Hi, i tried but at the end i have this error:
"Array Endpoint: GRREAD not implemented"
Some help?

[carmi]

Can someone else help me?
Thanks

[ribarm]

Does your CAD have COPYMODE variable? If so, set it to 1 and then when you initialize COPY command pick base point, move mouse in desired direction (ortho optional) and just type distances consequently... It this doesn't work, maybe try to write small lisp like this one :

Code: [Select]

(defun c:array-new ( / ss n p1 p2 k v l )

  (vl-load-com)

  (setq ss (ssget "_:L"))
  (initget 7)
  (setq n (getint "\nNumber of copies : "))
  (initget 1)
  (setq p1 (getpoint "\nPick or specify base point : "))
  (initget 1)
  (setq p2 (getpoint p1 "\nPick or specify direction point (distance between copies) : "))
  (setq v (mapcar (function -) p2 p1))
  (setq k 0)
  (if ss
    (repeat n
      (setq k (1+ k))
      (foreach obj (if (null l) (setq l (mapcar (function vlax-ename->vla-object) (vl-remove-if (function listp) (mapcar (function cadr) (ssnamex ss)))))) l)
        (vla-move (vla-copy obj) (vlax-3d-point (list 0 0 0)) (vlax-3d-point (mapcar (function *) v (list k k k))))
      )
    )
  )
  (princ)
)


[carmi]

I can make multiple and single copies in my cad, but i need "fit" mode as Autocad copy command, because with my CAD i not have "fit" mode and it is very useful to me.
Your lisp code gives me this error: "invalid SSGET mode string".
If i change   (setq ss (ssget "_:L"))    with  (setq ss (ssget C)) i solve it but i have this other error: error: invalid argument type: vla-object: nil
Thank you for help me

[BKT]

Maybe NanoCAD doesn't support all LISP or VLISP functions.  What happens if you try this:

Code: [Select]

(defun c:test (/ ent ent2 p1 p2 p3 pt dv d a n)

(setq cmde (getvar "CMDECHO"))
(setq osm (getvar "OSMODE"))
(setvar "CMDECHO" 0)

(setq ent (entsel "\nSelect Object: ")
      pt (getpoint "\nSelect Point On Object: ")
      p1 (getpoint "\nSelect Start Point: ")
      p2 (getpoint "\nSelect End Point: ")
      dv (getint "\nEnter Number Of Copies: ")
      d (/ (distance p1 p2) (1- dv))
      a (angle p1 p2)
)

(setvar "OSMODE" 0)

(command "._copy" ent "" pt p1)
(setq ent2 (entlast))

(setq n 0)
  (while (< n dv)
  (setq p3 (polar p1 a (* d n)))
  (command "._copy" ent2 "" p1 p3)
  (setq n (1+ n))
  )

(entdel ent2)

(setvar "OSMODE" osm)
(setvar "CMDECHO" cmde)

(princ)

)

[carmi]

Maybe NanoCAD doesn't support all LISP or VLISP functions.  What happens if you try this:

With other lisp i not have problem...

With your code, when enter number of copies, open hatch command! 

[BKT]

Well, that ain't right...  sorry 'bout that!

[carmi]

I found a lisp code of Alanjt in this post: http://www.theswamp.org/index.php?topic=37459.msg424991#msg424991
Its a good lisp code but isn't what i was looking for...