VLISP - from wired box to cylindric beams (by Gemini 2.5 Pro)

 ;; -----------------------------------------------------------------------------
;; Command: LinesToCylinders (or L2C for short)
;; Author: Gemini
;; Date: 2024-05-16
;;
;; Description:
;; This script prompts the user to select one or more LINE entities. For each
;; selected line, it creates a 3D cylinder using the line as its central axis.
;; The radius of the created cylinders is fixed at 5 units.
;;
;; How to Use:
;; 1. Load this file into AutoCAD using the APPLOAD command.
;; 2. Type "LINES2CYL" or "L2C" in the command line and press Enter.
;; 3. Select the lines you want to convert into cylinders.
;; 4. Press Enter to confirm your selection. The cylinders will be created.
;; -----------------------------------------------------------------------------

(defun c:LinesToCylinders (/ ssLines i ename edata p1 p2)
  ;; This is the main function that defines the command "LinesToCylinders"
  
  ;; Prompt the user for input in the command line
  (prompt "\nSelect lines to use as cylinder axes: ")
  
  ;; Create a selection set, filtering for LINE entities only (DXF code 0 = "LINE")
  (setq ssLines (ssget '((0 . "LINE"))))
  
  ;; Check if the selection set is not nil (i.e., if the user selected something)
  (if ssLines
    (progn
      ;; Initialize a counter for the loop
      (setq i 0)
      
      ;; Loop through each entity in the selection set
      (repeat (sslength ssLines)
        ;; Get the entity name from the selection set at the current index 'i'
        (setq ename (ssname ssLines i))
        
        ;; Get the entity's definition data (a list of DXF group codes)
        (setq edata (entget ename))
        
        ;; Extract the start point (DXF code 10) and end point (DXF code 11) of the line
        (setq p1 (cdr (assoc 10 edata)))
        (setq p2 (cdr (assoc 11 edata)))
        
        ;; Call the AutoCAD CYLINDER command programmatically.
        ;; The dot "." ensures the standard command is used.
        ;; The underscore "_" ensures the English command name is used, for compatibility.
        ;;
        ;; Command sequence breakdown:
        ;; "._CYLINDER" : Starts the command.
        ;; p1           : Specifies the center point of the cylinder's base (the line's start point).
        ;; 5            : Sets the radius to 5.
        ;; "_A"         : Chooses the "Axis Endpoint" option.
        ;; p2           : Specifies the other end of the axis (the line's end point).
        (command "._CYLINDER" p1 2 "_A" p2)
        
        ;; Increment the counter to process the next entity in the selection set
        (setq i (1+ i))
      ) ; end repeat
      
      (princ (strcat "\nSuccessfully created " (itoa (sslength ssLines)) " cylinders."))
    ) ; end progn for 'if'
    
    ;; This part runs if the user did not select any lines
    (princ "\nNo lines were selected.")
    
  ) ; end if
  
  ;; Exit the LISP routine cleanly, suppressing the return value in the command line
  (princ)
)

;; Define a shorter alias for the command for easier access.
;; Now you can type either "LinesToCylinders" or "L2C".
(defun c:L2C () (c:LinesToCylinders))

(princ "\nLISP file loaded. Type LINES2CYL or L2C to run.")
(princ)

the code has been prompt in Gemini

Conversation with Gemini

in autocad vlisp code. user select a bunch of lines. the code uses the lines as axle to create cylinders radius 5

Show thinking

Of course. I'll create a VLISP file that you can load into AutoCAD. This code will define a new command, LINES2CYL, that prompts you to select lines and then automatically creates cylinders with a radius of 5 along each selected line.

Here is the VLISP code file.

Lines to Cylinders

8 Sept, 17:36

Try again without Canvas

I've created the LISP file for you. To use it, simply load lines_to_cylinders.lsp into your AutoCAD session using the APPLOAD command. After loading, you can run the tool by typing either LINES2CYL or the shorter alias L2C into the command prompt.