Lisp program to paste to multiple reference point inside cad.

[Shukoor]

I want to create an AutoLISP file that can paste objects to multiple reference points within a CAD file.

I have a sample generated by GPT that works, but the problem is that I have to hardcode the reference point inside the LISP code every time.

I need to modify it so that I can define the base point manually within CAD instead.

See the reference and suggest the solution

(defun c:PASTEPOINT ( / choice basept)

;; Define your reference points for each floor

;; Replace the coordinates with your actual base points

(setq basement '(0 0 0))

(setq ground '(1000 0 0))

(setq first '(2000 0 0))

;; Ask user which floor to paste into

(setq choice

(strcase

(getstring "\nPaste to which floor? [Basement/Ground/First]: ")

)

)

;; Select base point based on user choice

(cond

((= choice "BASEMENT") (setq basept basement))

((= choice "GROUND") (setq basept ground))

((= choice "FIRST") (setq basept first))

(T (progn

(prompt "\nInvalid option. Use Basement, Ground, or First.")

(exit)

)

)

)

;; Execute paste command at selected base point

(command "_.PASTECLIP" basept)

(princ)

)

 

Edited 2 hours ago by SLW210
Added Code Tags!!

[SLW210]

Please use Code Tags (not Quote Tags) for your code. (<> in the editor toolbar)

[Tsuky]

And simply with this, can be done?

(defun c:PASTEPOINT ( / basept)
;; Define your reference points for each floor
;; Replace the coordinates with your actual base points
  (setq basept "Basement")
  (initget 9 "Basement Ground First")
  (while (not (listp basept))
    (setq basept (getpoint (strcat "\nPaste to which floor? [Basement/Ground/First]<" basept ">: ")))
    (initget 9 "Basement Ground First")
  )
;; Execute paste command at selected base point
  (command "_.PASTECLIP" "_none" basept)
  (prin1)
)

 

[mhupp]

I'd be interested in what you prompted to get that code.

 

GPT score 3/10

- missed localized variables

- hard code points instead of getpoint

- choice doesn't use getkword or use ucase (will only accept all caps input?)