AutoLisp programming help - COPY ROTATE PASTE

[timothybarnard_22641168]

Hello, I'm trying to learn autolisp. So I'm writing a simply program to understand it better.
I am using AutoCad 2007. The picture shows what I am trying to automate.

I created a box entity and now I want to Copy it, Rotate the copy and Paste that copy some distance in the X coordinate.
I don't need an entire program, just some code fragments to understand how AutoLisp is handling entity's/objects.
I will add a loop later to make multiple rotated boxes.

Here's my basic program... HELP!!!

;boxcopyrot program
;I want to copy a box or square selecting it's basepoint and simply
;move it a distance along the X coordinate
;


(defun c:boxcopyrot()


(setq box (entsel "\nSelect box: "))

(setq pt1 (getpoint "\n Base: "));This gets the basepoint of the object


(setq angle 10);next box rotation


(setq offset (getreal "\n Offset: ")); distance to place second box


(setq X_val (car pt1))


(setq Y_val (cadr pt1))


(setq Z_val 0.0)


(setq New_X_Val (+ X_val offset))


(setq pt2 (list New_X_val Y_val Z_val))


(command ".COPY" box "" pt1); This copies the entity (box)

(command "ROTATE" (entlast) "" pt1 angle ""); This rotates the object (entlast)


(command ".MOVE" (entlast) pt1 pt2); This moves the object

(princ)


);end of defun boxcopyrot

box1.jpg

[fixo]

Welcome on board, Tim
I've edited your code just slightly
seems it's working in A2017,
see attached file

Also you maywant to take a look at these links
http://ronleigh.com/autolisp/
http://www.afralisp.net/index.php

[ReachAndre]

I have modified your code a little bit. fixo started you off pretty well though.

(defun c:foo (/ pt1 box boxangle offset X_val Y_val Z_val New_X_Val pt1 pt2 )

(setq box (entsel "\nSelect box: "))

  (if (/= box nil); <---- added only do something if an object is selected, otherwise do nothing
    (progn
      (setq pt1 (getpoint "\n Base: "));This gets the basepoint of the object
      (setq boxangle 10);next box rotation<---------;"angle" changed to "boxangle" ("angle" is a function in lisp)
      (setq offset (getreal "\n Offset: ")); distance to place second box
      (setq X_val (car pt1))
      (setq Y_val (cadr pt1))
      (setq Z_val 0.0)

      (setq New_X_Val (+ X_val offset))
      (setq pt2 (list New_X_val Y_val Z_val))

      (command ".COPY" box "" pt1 pt1 ""); This copies the entity (box);<-------------added destination for copy
      (command "ROTATE" (entlast) "" pt1 boxangle ""); This rotates the object (entlast)
      (command ".MOVE" (entlast) "" pt1 pt2); This moves the object<--- added end of selection ""
      ));end of if statement
  (princ)
  );end of defun boxcopyrot