TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: ELOQUINTET on November 05, 2003, 09:11:54 AM

Title: that reminds me
Post by: ELOQUINTET 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

Title: that reminds me
Post by: Mark 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


Title: that reminds me
Post by: ELOQUINTET on November 05, 2003, 09:32:21 AM

thank you kindly sir :D


dan

Title: that reminds me
Post by: Mark on November 05, 2003, 09:35:23 AM

You're very welcome.