« previous next »
Pages: [1] |   Go Down

Author Topic: that reminds me  (Read 4631 times)

0 Members and 1 Guest are viewing this topic.

ELOQUINTET

  • Guest
that reminds me
« on: November 05, 2003, 09:11:54 AM »
oh yeah i've also been looking for a copy multiple lisp. i know this is easy and have been trying to figurew it out on my own but can't seem to figure this lisp stuff out  :roll: any help would be much appreciated

dan
Logged

Mark

  • Custom Title
  • Seagull
  • Posts: 28762
that reminds me
« Reply #1 on: November 05, 2003, 09:24:05 AM »
Something like this:
Code: [Select]
;copy multiple ACAD2000
(defun C:cc (/ ss bp)
    (setq ss (ssget))
    (setq bp (getpoint "\nSelect Base Point.."))
    (command "_copy" ss "" "M" bp)
  ); defun
Logged
TheSwamp.org  (serving the CAD community since 2003)

ELOQUINTET

  • Guest
that reminds me
« Reply #2 on: November 05, 2003, 09:32:21 AM »
thank you kindly sir :D


dan
Logged

Mark

  • Custom Title
  • Seagull
  • Posts: 28762
that reminds me
« Reply #3 on: November 05, 2003, 09:35:23 AM »
You're very welcome.
Logged
TheSwamp.org  (serving the CAD community since 2003)
Pages: [1] |   Go Up
« previous next »