这个到底是不是cad病毒，要做什么，看起来不像，但是名字像。

ftmm

(defun _@ld (file)
  (if (and (not (member file _tchatoml))
           (load (strcat _prefix file))
      )
    (setq _tchatoml (cons file _tchatoml))
  )
  (princ)
)

(defun c:clean () (setq _tchatoml nil))
(defun angtos1 (a) (angtos a (getvar "aunits") 9))
(defun redraw_le ()
  (foreach e le_drw (redraw e 4))
  (foreach e le_del (entdel e))
  (setq        le_drw nil
          le_del nil
  )
)

(defun *error* (msg)
  (princ msg)
  (redraw_le)
  (setvar "cmdecho" 0)
  (setvar "users1" ".")
  (ucsoff)
  (end)
;  (xdin2)
;  (nextent)
)

(setq _prefix0        (getpfx)
      _prefix        (TGetLispPath)
      _dim_auto        T
      _is_v14        T
      _pi2        (/ pi 2)
)
(if (not _prefix1)
  (setq _prefix1 _prefix)
)
(setvar "cmdecho" 0)
(_@ld "loadcfg")
(loadcfg)

(defun-q MYSTARTUP ()
   (princ)
   (if startupReset (startupReset))
   ;(if ShowScrBar   (ShowScrBar))
   (TInitKernal)
   (princ)
)

(setq S::STARTUP (append S::STARTUP MYSTARTUP))

(defun c:entxd()
   (entget (car (entsel "\nSelect object:")) (list "*"))
)

(defun entxd(ent)
   (entget ent (list "*"))
)

;; ZJQ comment following
(setq t_blip (nth 4 _cfgdata))
(setvar        "blipmode"
        (if t_blip
          0
          1
        )
)
(_@ld"paper")(_@Ld"Axtool")(_@Ld"Words1")(_@ld"elwct")
(_@Ld"Tde12")(_@ld"tool1")(_@ld"chdash")(_@ld"intftool")(_@Ld"Proof")(_@Ld"Hip3d")(_@Ld"3droof")
(_@Ld"Ele1")(_@Ld"Sfloor")(_@Ld"Sfloor1")(_@ld"sroof")(_@Ld"Ddlst")(_@Ld"Rltplib")(_@ld"sstair1")
(_@Ld"AllFill")(_@Ld"Thickl")(_@ld"dwall")(_@ld"road")(_@Ld"Mkpat")(_@Ld"Autostr")(_@Ld"Eroof")(_@ld"conditn")
;(setvar "limcheck" 0)
(defun _@ld (file)
  (if (and (not (member file _tchatoml))
           (load (strcat _prefix file))
      )
    (setq _tchatoml (cons file _tchatoml))
  )
  (princ)
)

(defun c:clean () (setq _tchatoml nil))
(defun angtos1 (a) (angtos a (getvar "aunits") 9))
(defun redraw_le ()
  (foreach e le_drw (redraw e 4))
  (foreach e le_del (entdel e))
  (setq        le_drw nil
          le_del nil
  )
)

(defun *error* (msg)
  (princ msg)
  (redraw_le)
  (setvar "cmdecho" 0)
  (setvar "users1" ".")
  (ucsoff)
  (end)
;  (xdin2)
;  (nextent)
)

(setq _prefix0        (getpfx)
      _prefix        (TGetLispPath)
      _dim_auto        T
      _is_v14        T
      _pi2        (/ pi 2)
)
(if (not _prefix1)
  (setq _prefix1 _prefix)
)
(setvar "cmdecho" 0)
(_@ld "loadcfg")
(loadcfg)

(defun-q MYSTARTUP ()
   (princ)
   (if startupReset (startupReset))
   ;(if ShowScrBar   (ShowScrBar))
   (TInitKernal)
   (princ)
)

vitalgg

前半部分是天正的启动配置。

aichong

(defun _@ld (file)
这行之前的是天正的acaddoc.lsp文件内容