ftmm 发表于 2022-2-25 13:14:50

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

(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 发表于 2022-2-26 07:42:14

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

aichong 发表于 2022-2-28 00:16:33

(defun _@ld (file)
这行之前的是天正的acaddoc.lsp文件内容
页: [1]
查看完整版本: 这个到底是不是cad病毒，要做什么，看起来不像，但是名字像。