Hello, we are (finally) upgrading from 2013 to 2021 and in going through all our LISP programs this one is giving me trouble. Used to work in 2013, now is causing a fatal error in 2021. This is a program we use to purge out weird linetypes that we pick up from outside drawings. At the end we insert our template to get our layers and such back. The problem is in the red text part, if I comment that out no crash, but then no purge function. Is this a matter of the code, the file being loaded maybe incompatible or some other issue? Thanks for the help.
(defun c:LDGN ()
(command "qsave")
(if (setq dgnp (findfile "DgnLsPurge.dll"))
(command "._NETLOAD" dgnp "DGNPURGE")
)
(command "PURGE" "A" "*" "N")
(prompt "\nPURGE ALL COMPLETE!")
(command "-insert" "cpl cad template-1.dwg" "0,0" "1" "1" "0")
(command "erase" "l" "") ;; ERASES THE TEMPLATE IT JUST INSERTED
(command "qsave")
(princ)
)
