Code Red > AutoLISP (Vanilla / Visual)

Unloaded/Unresolved xRefs

<< < (4/4)

cmwade77:

--- Quote from: MP on May 17, 2019, 05:11:31 PM ---Could be eadily re-written using old school dxf type coding which will should work in AcCoreConsole.

--- End quote ---
Yup, just have to figure out how to invent another 10 hours in the day....lol

MP:
Fugly but try this quick & dirty stab ...


--- Code: ---(defun c:dump-xref-shat ( / cmdecho data flags name names f d e )
    (setq cmdecho (getvar 'cmdecho))
    (setvar 'cmdecho 0)
    (while (setq data (tblnext "block" (null data)))
        (and
            (eq 4 (logand 4 (setq flags (cdr (assoc 70 (setq data (entget (tblobjname "block" (cdr (assoc 2 data))))))))))
            (zerop (logand 32 flags))
            (wcmatch (setq name (cdr (assoc 2 data))) "~*|*")
            (progn
                (foreach p (entget (cdr (assoc 330 data)))
                    (if (eq 331 (car p))
                        (progn
                            (entmod
                                (subst
                                    (cons
                                        70
                                        (logand
                                            (~ 4)
                                            (cdr
                                                (setq f
                                                    (assoc
                                                        70
                                                        (setq d
                                                            (entget
                                                                (tblobjname
                                                                    "layer"
                                                                    (cdr
                                                                        (assoc 8
                                                                            (entget
                                                                                (setq e (cdr p))
                                                                            )
                                                                        )
                                                                    )
                                                                )
                                                            )
                                                        )
                                                    )
                                                )       
                                            )
                                        )
                                    )   
                                    f
                                    d
                                )
                            )
                            (entdel e)
                        )
                    )
                )
                (setq names (cons name names))
            )
        )           
    )
    (foreach name names (command ".xref" "_detach" name))
    (setvar 'cmdecho cmdecho)
    (princ)
)
--- End code ---

Cheers.

Navigation

[0] Message Index

[*] Previous page