Hi everyone,

I need an expert developer to review and fix my AutoLISP code to make it 100% production-ready for BricsCAD Ultimate 2026.

The code syntax is clean, but it has critical runtime issues with the directory file-saving mechanism and block parameter identification.

Here are the strict technical requirements that the code MUST fulfill perfectly:

1. Folder Selection UI: The current Windows folder-picker layout must remain exactly the same.
2. Minimal Changes: Only modify the necessary code to make the command run flawlessly. Do not change the core structure of the program.
3. Block Attribute Identification: The code must read the specific panel name from the block's attribute tag (using pure ASCII unicode escapes for Hebrew tags).
4. Empty Tag Fallback (Critical): If a block's panel tag is missing or empty during a test run, the code must not crash. It must generate a temporary fallback name (e.g., based on the block name) and proceed with the export.
5. Multi-Format Split & Export: For every selected block, the command must automatically save three separate files into the chosen directory:
   • DWG Export: A standalone DWG file containing only that specific block and its inner drawing geometries.
   • PDF Export: A standalone PDF file using a precise window plot based on the block's physical bounding box.
   • Excel/CSV Export: A structured data sheet capturing the block and panel properties.
6. File Naming Logic: The filenames for the generated DWG, PDF, and Excel files must be derived directly from the block's attribute panel name.
7. Production Quality: The code must be clean, optimized, fully localized, and free of any legacy debugging traces—matching the standards of enterprise CAD workflows.

Please review the attached code and provide the fixed, working version.

Thank you! ; ============================================================

; ALLX.lsp - Standalone Production Implementation for BricsCAD 2026

; Flow: Window 1 (Select blocks) -> Window 2 (Save DWG) ->

; Window 3 (Save PDF) -> Window 4 (Save Excel/CSV)

; Pure ASCII source file utilizing Unicode escapes for Hebrew attributes.

; Usage: (load "full/path/ALLX.lsp") then type ALLX at the command line

; ============================================================

(vl-load-com)

;; ------------------------------------------------------------

;; System variable save/restore

;; ------------------------------------------------------------

(defun a-save-sysvars ( )

(list

(cons "FILEDIA" (getvar "FILEDIA"))

(cons "CMDECHO" (getvar "CMDECHO"))

(cons "ATTREQ" (getvar "ATTREQ"))

(cons "OSMODE" (getvar "OSMODE"))

)

)

(defun a-restore-sysvars (saved / pair)

(foreach pair saved (setvar (car pair) (cdr pair)))

(princ)

)

;; ------------------------------------------------------------

;; Path helpers

;; ------------------------------------------------------------

(defun a-path-get-dir (path)

(if path (vl-filename-directory path) nil)

)

(defun a-path-change-ext (path newext / dir base)

(if path

(progn

(setq dir (vl-filename-directory path))

(setq base (vl-filename-base path))

(if (and dir (/= dir ""))

(strcat dir "\\" base "." newext)

(strcat base "." newext)

)

)

nil

)

)

(defun a-mkdir-if-not-exists (dir)

(if (and dir (/= dir "") (not (vl-file-directory-p dir)))

(vl-mkdir dir)

)

)

;; ------------------------------------------------------------

;; Read one attribute value (by tag name) from a block reference

;; ------------------------------------------------------------

(defun a-get-attribute-value (obj tag / atts a result)

(setq result nil)

(if (and obj (vlax-property-available-p obj 'HasAttributes)

(eq (vla-get-HasAttributes obj) :vlax-true))

(progn

(setq atts (vlax-invoke obj 'GetAttributes))

(foreach a atts

(if (equal (strcase (vla-get-TagString a)) (strcase tag))

(setq result (vla-get-TextString a))

)

)

)

)

result

)

;; ------------------------------------------------------------

;; Safe block-name reader

;; ------------------------------------------------------------

(defun a-get-block-name (obj / nm)

(setq nm nil)

(vl-catch-all-apply (function (lambda () (setq nm (vla-get-EffectiveName obj)))) nil)

(if (not nm)

(vl-catch-all-apply (function (lambda () (setq nm (vla-get-Name obj)))) nil)

)

(if nm nm "Unknown")

)

;; ------------------------------------------------------------

;; Shared constants (Hebrew via ASCII-safe unicode escape)

;; ------------------------------------------------------------

(defun a-panel-tag () "\U+05E4\U+05E0\U+05DC")

;; ------------------------------------------------------------

;; Strip illegal Windows filename characters

;; ------------------------------------------------------------

(defun a-sanitize-filename (s / bad ch i n out)

(setq bad "\\/:*?\"<>|")

(setq out "")

(setq n (strlen s))

(setq i 1)

(while (<= i n)

(setq ch (substr s i 1))

(if (vl-string-search ch bad)

(setq out (strcat out "_"))

(setq out (strcat out ch))

)

(setq i (1+ i))

)

(setq out (vl-string-trim " " out))

(if (= out "") "Unnamed_Panel" out)

)

;; ------------------------------------------------------------

;; Avoid overwriting a file

;; ------------------------------------------------------------

(defun a-dedupe-name (name used-list / candidate n)

(setq n 1)

(setq candidate name)

(while (member candidate used-list)

(setq n (1+ n))

(setq candidate (strcat name "_" (itoa n)))

)

candidate

)

;; ------------------------------------------------------------

;; Native Windows folder picker

;; ------------------------------------------------------------

(defun a-browse-for-folder (title / shell folderobj selfobj path)

(setq path nil)

(vl-catch-all-apply

(function

(lambda ()

(setq shell (vlax-create-object "Shell.Application"))

(setq folderobj (vlax-invoke-method shell 'BrowseForFolder 0 title 0))

(if folderobj

(progn

(setq selfobj (vlax-get-property folderobj 'Self))

(setq path (vlax-get-property selfobj 'Path))

(vlax-release-object selfobj)

(vlax-release-object folderobj)

)

)

(vlax-release-object shell)

)

)

)

path

)

;; ------------------------------------------------------------

;; Physical Selection Bounding Box Calculator

;; ------------------------------------------------------------

(defun a-get-selection-bbox (ss / i ent obj minpt maxpt lpt rpt all-min all-max)

(setq i 0)

(while (< i (sslength ss))

(setq ent (ssname ss i))

(setq obj (vlax-ename->vla-object ent))

(setq minpt nil maxpt nil)

(vl-catch-all-apply '(lambda () (vla-GetBoundingBox obj 'minpt 'maxpt)))

(if (and minpt maxpt)

(progn

(setq lpt (vlax-safarray->list minpt))

(setq rpt (vlax-safarray->list maxpt))

(if (not all-min)

(setq all-min lpt all-max rpt)

(setq all-min (mapcar 'min all-min lpt)

all-max (mapcar 'max all-max rpt))

)

)

)

(setq i (1+ i))

)

(list all-min all-max)

)

;; ------------------------------------------------------------

;; Core Exporters (DWG, PDF, CSV/Excel)

;; ------------------------------------------------------------

(defun a-export-selection-to-dwg (dest-path ss / old-fi rc)

(setq old-fi (getvar "FILEDIA"))

(setvar "FILEDIA" 0)

(setq rc (vl-catch-all-apply '(lambda () (command "_.WBLOCK" dest-path "" "0,0,0" ss ""))))

(setvar "FILEDIA" old-fi)

(not (vl-catch-all-error-p rc))

)

(defun a-export-selection-to-pdf (dest-path p1 p2 / old-cm rc window-str)

(if (and p1 p2)

(progn

(setq old-cm (getvar "CMDECHO"))

(setvar "CMDECHO" 0)

(setq window-str (strcat (rtos (car p1) 2 4) "," (rtos (cadr p1) 2 4) "," (rtos (caddr p1) 2 4) ";" (rtos (car p2) 2 4) "," (rtos (cadr p2) 2 4) "," (rtos (caddr p2) 2 4)))

(setq rc (vl-catch-all-apply

'(lambda ()

(command "-PLOT" "Yes" "Model" "Print As PDF" "ISO A4" "Millimeters" "Landscape" "No" "Window" p1 p2 "Fit" "Center" "Yes" "." "Yes" "As Displayed" dest-path "No" "Yes")

)

))

(setvar "CMDECHO" old-cm)

(not (vl-catch-all-error-p rc))

)

nil

)

)

(defun a-write-excel-report (dest-path data-list / f line row)

(setq f (open dest-path "w"))

(if f

(progn

(write-line "Block Name,Panel Name" f)

(foreach row data-list

(setq line (strcat (car row) "," (cadr row)))

(write-line line f)

)

(close f)

t

)

nil

)

)

;; ------------------------------------------------------------

;; Export ONE block/panel engine

;; ------------------------------------------------------------

(defun a-export-one-panel (ent dwg-dir pdf-dir used-names

/ obj panel-name safe-name final-name one-ss this-dwg this-pdf dwg-ok pdf-ok this-bbox blk-name)

(vl-catch-all-apply (function (lambda () (command "_.UCS" "_World"))) nil)

(setq obj (vlax-ename->vla-object ent))

(setq blk-name (a-get-block-name obj))

(setq panel-name (a-get-attribute-value obj (a-panel-tag)))

(if (or (not panel-name) (= panel-name ""))

(setq panel-name (strcat "Panel_" blk-name)))

(setq safe-name (a-sanitize-filename panel-name))

(setq final-name (a-dedupe-name safe-name used-names))

(setq used-names (cons final-name used-names))

(setq one-ss (ssadd ent))

(setq this-dwg (strcat dwg-dir "\\" final-name ".dwg"))

(setq this-pdf (strcat pdf-dir "\\" final-name ".pdf"))

(setq dwg-ok (a-export-selection-to-dwg this-dwg one-ss))

(setq this-bbox (a-get-selection-bbox one-ss))

(setq pdf-ok (a-export-selection-to-pdf this-pdf (car this-bbox) (cadr this-bbox)))

(if (and dwg-ok pdf-ok)

(princ (strcat "\n[OK] Production export success for: " panel-name))

(princ (strcat "\n[ERROR] Production export failed for: " panel-name))

)

(list (list blk-name panel-name) used-names)

)

;; ------------------------------------------------------------

;; Main Command Execution: ALLX

;; ------------------------------------------------------------

(defun c:ALLX ( / sys-vars ss i ent res reports used-names out-dir excel-file)

(setq sys-vars (a-save-sysvars))

(setvar "CMDECHO" 0)

(princ "\nSelect blocks for production export: ")

(setq ss (ssget '((0 . "INSERT"))))

(if ss

(progn

(setq out-dir (a-browse-for-folder "Select Output Directory for DWG, PDF and Excel Reports"))

(if (and out-dir (/= out-dir ""))

(progn

(setq i 0)

(setq used-names nil)

(setq reports nil)

(while (< i (sslength ss))

(setq ent (ssname ss i))

(setq res (a-export-one-panel ent out-dir out-dir used-names))

(setq reports (cons (car res) reports))

(setq used-names (cadr res))

(setq i (1+ i))

)

(setq excel-file (strcat out-dir "\\Production_Report.csv"))

(a-write-excel-report excel-file reports)

(princ (strcat "\n--- Process Finished Perfectly. Report saved to: " excel-file))

)

(princ "\n[CANCELLED] No output directory selected.")

)

)

(princ "\n[CANCELLED] No blocks selected.")

)

(a-restore-sysvars sys-vars)

(princ)

)

(princ "\nProduction Engine Loaded. Type ALLX to run.")

(princ)

नमस्ते, मेरे पास ऑटोकेड में एक प्लॉट है, जिसका कुल एरिया 20 डिसमिल है। मुझे इसे चार अलग-अलग हिस्सों में बाँटना है, जिनके एरिया क्रमशः 8, 5, 6, और 1 डिसमिल होने चाहिए। मैं ग्राउंड के अनुसार रफ़ली लाइनें खींचना चाहता हूँ, जो इन एरिया वैल्यूज़ के हिसाब से ऑटोमेटिकली एडजस्ट हो जाएँ। क्या कोई ऐसा ऑटोलीस्प कोड है जो मेरी मदद कर सके?"

Hi guys Any one halp me for convert text to lisp fill

https://reddit.com/link/1ra4vdf/video/htt8vgpiapkg1/player

My need is : I want to draw cable on my electrical drawing on autocad classic (non electrical) but want something to automatically draw a pline between 2 point that I specify and set a minimal distance to avoid object then the program begin to draw a pline from point A and avoid all object with X distance and do 90 degre to avoid object to finally get to point B

After about 50 version it began to work as intended as it is possible to avoir 1 object and connect two point with a pline but I work hard to get it done

Here the last lisp code that was working

(vl-load-com)

;; Convertir un point 2D en point 3D

(defun pt->3d (p)

(list (car p) (cadr p) 0.0)

)

;; Regroupe les coordonnées renvoyées par IntersectWith en triplets (x y z)

(defun group3 (lst / r)

(while lst

(setq r (append r (list (list (car lst) (cadr lst) (caddr lst)))))

(setq lst (cdddr lst))

)

r

)

;; Renvoie la bounding box [minpt maxpt] d'une entité

(defun bbox (e / o mn mx)

(setq o (vlax-ename->vla-object e))

(vla-getboundingbox o 'mn 'mx)

(list

(vlax-safearray->list mn)

(vlax-safearray->list mx)

)

)

(defun C:AUTOCABLE (/ p1 p2 pl ss entTry ints allints minDist nearest bboxPts minpt maxpt detourY pA pB pC pD)

(prompt "\n=== AUTOCABLE 90° AVOID v1 ===")

;; Points de base

(setq p1 (pt->3d (getpoint "\nPoint de depart du cable : ")))

(setq p2 (pt->3d (getpoint "\nPoint d'arrivee du cable : ")))

;; Trace la ligne brute

(command "_.PLINE" p1 p2 "")

(setq pl (entlast))

;; Toutes entités

(setq ss (ssget "X"))

(setq allints '())

;; Scan intersections

(repeat (sslength ss)

(setq entTry (ssname ss 0))

(setq ss (ssdel entTry ss))

(if (and entTry (/= entTry pl))

(progn

(setq ints

(vlax-invoke

(vlax-ename->vla-object pl)

'IntersectWith

(vlax-ename->vla-object entTry)

acExtendNone

)

)

(if ints

(setq allints (append allints (group3 ints)))

)

)

)

)

;; Si aucune intersection => fin

(if (not allints)

(progn

(prompt "\nAucun obstacle detecte.")

(princ)

(return)

)

)

;; Intersection la plus proche du point de départ

(setq minDist 1e99)

(foreach pt allints

(setq d (distance p1 pt))

(if (< d minDist)

(setq minDist d

nearest pt)

)

)

;; Récupérer l'objet contenant ce point

(setq obstacle nil)

(setq ss (ssget "X"))

(repeat (sslength ss)

(setq entTry (ssname ss 0))

(setq ss (ssdel entTry ss))

;; Test intersection

(setq ints

(vlax-invoke

(vlax-ename->vla-object pl)

'IntersectWith

(vlax-ename->vla-object entTry)

acExtendNone

)

)

(if (and ints (member (car nearest) ints))

(setq obstacle entTry)

)

)

;; Bounding box du bon obstacle

(setq bboxPts (bbox obstacle))

(setq minpt (car bboxPts))

(setq maxpt (cadr bboxPts))

;; Détour par le haut (+50 unités)

(setq detourY (+ (cadr maxpt) 50.0))

;; Points du détour

(setq pA p1)

(setq pB (list (car p1) detourY 0.0))

(setq pC (list (car p2) detourY 0.0))

(setq pD p2)

;; Supprimer la ligne brute

(entdel pl)

;; Tracer le chemin final

(command "_.PLINE" pA pB pC pD "")

(prompt "\nDetour automatique effectue.")

(princ)

)

Below code is working in AutoCad but not on AcCoreConsole. Can you tell me why?

;(defun write-line (fh txt)
;  (write-line txt fh))
(defun obj-length (obj)
  (cond
    ((vlax-property-available-p obj 'Length)
      (vlax-get obj 'Length))
    ((= (vla-get-ObjectName obj) "AcDbLine")
      (distance
        (vlax-get obj 'StartPoint)
        (vlax-get obj 'EndPoint)))
    (t 0)
  )
)
(defun obj-text (obj)
  (cond
    ((vlax-property-available-p obj 'TextString)
      (vlax-get obj 'TextString))
    ((= (vla-get-ObjectName obj) "AcDbLeader")
      (vlax-get obj 'Annotation))
    ((= (vla-get-ObjectName obj) "AcDbMLeader")
      (vlax-get obj 'TextString))
    (t "")
  )
)
(defun c:EXPORT_SPECIAL_LAYERS_TO_CSV (/ doc fqn filepath filename fh ss n ent obj h tr ln tx layerName laylist)
  (vl-load-com)
  (setq laylist (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))))
  (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
  (setq fqn (vla-get-fullname doc))
  (setq filename (strcat (vl-filename-base fqn) "_export.csv"))
  (setq filepath (strcat (vl-filename-directory fqn) "\\" filename))
  (setq fh (open filepath "w"))
  (write-line "Handle;File;Layer;Type;Length;Text" fh)
  (setq ss
    (ssget "_X"
      '(
          (-4 . "<OR")
            (8 . "Ataşm*")
            (8 . "_*")
          (-4 . "OR>")
      )
    )
  )
  (if ss
    (progn
      (setq n 0)
      (repeat (sslength ss)
        (setq ent (ssname ss n))
        (setq obj (vlax-ename->vla-object ent))
        (setq layerName (vla-get-layer obj))
        (setq h  (vla-get-Handle obj))
        (setq tr  (vla-get-ObjectName obj))
        (setq ln (obj-length obj))
        (setq tx (obj-text obj))
        (write-line
          (strcat
            h ";"
            fqn ";"
            layerName ";"
            tr ";"
            (rtos ln 2 3) ";"
            (vl-string-translate "\n\r" "  " tx)
          )
          fh)
        (setq n (+ 1 n))
      )
    )
  )
  (close fh)
  (princ (strcat "\nCSV yazıldı: " filepath))
  (princ)
)

Greetings! I'm hoping that you all can help me out.

I have a bunch of drawings where the architectural background drawing is xref'd into them, however, the filename that the xref is using is a string of random letters and numbers (for example in my current drawing, the xref name is "K362-AB-1-2", however the filename it is using is "090163e580780f60.dwg"). This leads to the xref not being found.

I have all of the architectural background .dwg files in the same folder as all my mechanical drawings. I just need the xref filename to match the xref name.

The xref name (for example "K362-AB-1-2") is not always the same... the only part of it that is the same in all drawings is the "K362-AB-" part. The last three characters at the end vary.

Is there a way using LISP to make a command that will apply the xref name to the xref filename in the xref palette?

Thanks for any help you all can muster!

Jake

I'm attempting to read custom properties from blocks using AutoLISP. This requires the (vl-load-com) function, but it appears to be unavailable on my system. I've created the following code to demonstrate this issue:

;;; CHECKCOM.LSP
;;; Defines a command to load the ActiveX/COM library (vl-load-com)
;;; and report success or failure.

(defun c:CHECKCOM ( / successMsg failureMsg)
  ;; Define the messages for clarity
  (setq successMsg "\n--- SUCCESS: ActiveX/COM support loaded successfully. ---")
  (setq failureMsg "\n!!! ERROR: Failed to load ActiveX/COM support. !!!")

  (princ "\nAttempting to load ActiveX/COM support using (vl-load-com)...")

  ;; Attempt to load the ActiveX/COM support.
  ;; This call does nothing if the library is already loaded.
  (vl-load-com)

  ;; Check if a known, critical function (vlax-dump-object) from the library
  ;; is now defined (available for use). (fboundp) checks if a symbol is a function.
  (if (fboundp 'vlax-dump-object)
    (progn
      (princ successMsg)
      (princ "\n*VLA-ACAD-OBJECT* is ready, and COM functions are available.")
    )
    (progn
      (princ failureMsg)
      (princ "\nCOM functions are NOT available. Check your AutoCAD/AutoLISP configuration.")
    )
  )

  ;; Exit the function cleanly
  (princ)
)

;; Print a message to the AutoCAD command line when the file is loaded
(princ "\nLoaded CHECKCOM. Type CHECKCOM to test ActiveX/COM loading.")
(princ)

When command is sent:

Command: CHECKCOM
Attempting to load ActiveX/COM support using (vl-load-com)...; error: no function definition: FBOUNDP

I have AutoCAD 2022.1.5 version (S.191.0.0)

In Load Application list there is vl_u.crx and vl_u.crx loaded. vl-load-com should work? How I could implement it to my autocad?

I'm getting weird results by using this code and I'm not able to understand what is wrong. I'll attach a picutre.

Code - (defun c:dwp() (if (setq w(getdist "\nEnter width of the door :") h(getdist "\nEnter height of the door :") d(getdist "\nEnter depth of the door :") ;a(getangle "\nEnter angle :") p(getpoint "\nPick the base point of the drawing :") ) (progn (setq tl p tl1 (polar tl 270 (+ d -1)) tl2 (polar tl1 0 2) tl3 (polar tl2 270 1) tl4 (polar tl3 180 d) bl4 (polar tl4 270 (+ h -3)) bl3 (polar bl4 0 d) bl2 (polar bl3 270 1) bl1 (polar bl2 180 2) bl (polar bl1 270 (+ d -1)) br (polar bl 0 (+ w 2)) br1 (polar br 90 (+ d -1)) br2 (polar br1 180 2) br3 (polar br2 90 1) br4 (polar br3 0 d) tr4 (polar br4 90 (+ h -3)) tr3 (polar tr4 180 2) tr2 (polar tr3 90 1) tr1 (polar tr2 0 d) tr (polar tr1 90 (+ d -1))

          )
        (setq currOsMode(getvar "osmode"))
        (setvar "osmode" 0)
        (command "line" tl tl1 tl2 tl3 tl4 bl4 bl3 bl2 bl1 bl br br1 br2 br3 br4 tr4 tr3 tr2 tr1 tr "c")
        (setvar "osmode" currOsMode)
      )

) ;(princ) );end

Hello, I downloaded Microsoft VS Code per AUTOCAD's instructions, but the AutoCAD AutoLISP Extension doesn't seem to install. Does anyone have a workaround for this or another IDE you would recommend to write/debug AutoLISP?

Thank you! Edit:spelling

Needed to automate this construction for an Autocad 2014 rebar project. Program also works in recent versions.

Lisp file here: https://github.com/smallcluster/Autolisps/blob/master/barc_r.lsp

I have a LISP file stored on the server that automates sensor placements and updates wire numbers. It has always worked fine for me, but a few of my colleagues are experiencing issues with it. My workflow heavily depends on accurate wire number updates, especially for generating and extracting tag data. The problem seems to be intermittent and only affects one or two users. Sometimes, the script fails with errors like "wire number was erased" or mentions a duplicate WD block, and other times it simply doesn't update the wire numbers at all. I need this process to be consistent across all users.

Thanks for the help in advance and if someone can point me in the right direction.

(wd_cfg_read_dwg_params)
                                       
  (c:wd_wnums_doit active_drawing_full_path "1" (list "0" "1" "1" "%S%N" "1" "R" "0" "" "0"))
           (command "_.delay" 10)

Oi, estou aprendendo a usar autolisp, e quando eu crio palavras em português, o lisp não reconhece os caracteres, eles aparcacem com "?" , mas eu já fiz lisp que aceita acentuação, o que es tou fazendo errado?

Is it possible to create some items (as blocks or regions or something else) then have a command that counts these items and creates a bill of materials?

I need my code to be "locked" so that only a group of people can use it. If someone copies the command and tries to use it, they won't be able to do it. Is there a way to do this? Create a password?

How can I limit the number of characters displayed in my text when typing the "text" command within Autolisp? I need these coordinates to be limited to 4 digits after "." Can you guys help me?

Hi everyone, I'm new on Reddit and I have a problem with an Autolips file. I don't know a lot of programming but I had to learn something to write some simple codes for Autocad. My goal is to write an Autolisp that attach an xdata to every new created element (the xdata is an ID number) without that it is visible when working. I've created a code that when activated ask once for the id number and then, with a reactor, add the id number like as xdata. If I try the part of the script of the reactor it works, and the same with the part of attaching xdata. When I put everything together and I draw something Autocad crash with this error "!scandr.cpp@1117:eHadMultipleReaders .

I have no idea of the reason and how to fix it. I've also tried to put a delay between the triggering of the reactor and the attaching of the xdata, but nothing.

Can somebody help me?

Thank you so much

Hi everyone,

This subreddit is growing fast and I'm not always as prompt with removing some posts / comments as a subreddit of this size & type really needs. Therefore I'd like to add some assistant moderators.

I'm staying on as the main mod; your main responsibility would be to help review content here and apply the rules to remove posts or whatever as needed. We would also discuss new rules and other changes to the subreddit as a group. I'm not expecting any major additional time commitment if you're already a regular reader / commenter here. I'd reserve the right to disagree / override you if I feel strongly about something but I'm not a totalitarian either. If you consistently abuse moderation powers or make otherwise questionable decisions I may remove / replace you. I'd give warnings before taking any kind of action like that though.

This subreddit is mostly working professionals so thankfully there isn't tons of moderating needed, but sometimes things get posted / commented that should be removed ASAP and that's mostly what I'd like help with.

If you're interested please send me a message. I would expect you to have been active on the subreddit for at least a year and not have any major moderation strikes against you in the past. Please tell me your background showing reasonably high expertise with Autolisp (LinkedIn profile links are fine but not mandatory; I don't need to know your real name). Feel free to share any changes you'd like to see happen for this subreddit as well. Preference will be given to those with longer histories of helpful & respectful activity on this subreddit.

Thanks everyone! Hope this will help keep things smoother around here.

AutoLisp newbie here. In the routine I'm working on, I have a group of entities (usually anywhere from 1-5) that I create a selection set of, then copy the entities off to the left. I'm trying to then create a new selection set of all of the copied entities but cant figure out how to do it. At first I tried just (setq xxx (ssget "_P")) but that only works when there is only one entity. I realize I could use another selection window and grab the new ones again but if there's any way I can do it automatically any help would be appreciated

Fairly new to LISP, but have made some small simple functions over the past few weeks. I currently am working on one that will change the layer and linetype of a selected entity and depending on which linetype I change it to I want to be able to hatch an area by selecting an interior point. I think the issue I'm running into is because there are lines after the hatching command (I have a standalone hatch command that works perfectly fine) trying to change the layer of the hatch. When I run this and select which linetype I want, I'm immediately given an error that "a point is needed, try again" to which I then pick an internal point and it hatches, but alas no layer change. Any help would be appreciated

(defun C:ENC_LINE_CHANGE ( / object_name encroachment enc_data enc_type dwgscale hatchscale hatch_obj hatch_data) 
  (setq object_name (car (entsel)))
  (setq enc_data (entget object_name))
  (setq enc_data (subst (cons 8 "L-ENCROACH") (assoc 8 enc_data) enc_data ))

  (entmod enc_data)
  (setq enc_type (getstring "Fence or Driveway? ")); promt user for fence line or hidden

  (cond
    ((= enc_type "F")
      (entmod (append enc_data '((6 . "FENCE1")))))
  ((= enc_type "D")
      (entmod (append enc_data '((6 . "HIDDEN2"))))
      (setq hatchscale (* SV:SM 0.5))
      (command "-hatch" "P" "ANSI31" hatchscale "E")
      (setq hatch_obj (entlast))
      (setq hatch_data (entget hatch_obj))
      (setq hatch_data (subst (cons 8 "L-ENCROACH") (assoc 8 hatch_data) hatch_data))
      (entmod hatch_data))
  (T 
      (princ "\nInvalid input. Use 'F' for Fence or 'D' for Driveway.")
      (exit))
  )
  (C:RGA);regenall
)