- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Please ignore this post - was referencing wrong lisp - I understand 2025 causes errors in some lisp routines. I found on here that (load "acetutil") needs to be inserted into the routine. I am not sure exactly how/where to insert this. I tried and failed.
Here's the beginning of the routine, which does not show correct indentations. Full routine attached.
;
;=============================================
(DEFUN C:XD (/ bl blst ent ans)
(setq bl (entsel))
(setq blst (entget (car bl)))
(setq ent (cdr (assoc 0 blst)))
(if (= ent "INSERT")
(progn
(setq xname (cdr (assoc 2 blst)))
(CHKREF)
(if (= check_val 1)
(progn
(prompt (strcat "\nThis will detach XREF: " (strcase xref)))
(initget "Yes No")
(setq ans (getkword "\nAre you sure you want to do this? (Y or N)"))
(if (= ans "Yes")
(progn
(command "xref" "detach" xname)
(prompt (strcat "\nXREF: " (strcase XREF) " - Detached" ))
(princ)
)
Solved! Go to Solution.