求那位高手来翻译下，行不！
www.dimcax.com
求那位高手来翻译下，行不！
我初学cad，转行工作啊！
难！
希望高手能翻译一下下面的命令嘛！
一段也行啊！
(defun c:cf ()(command "osnap""ins,cen,end""_dimaligned" pause pause pause "_dimcontinue"))
(defun c:cff ()(command "osnap""ins,cen,per""_dimaligned"))
(defun c:l1 ()(command "osnap""ins,cen,end""line"))
(defun c:l2 ()(command "osnap""mid,per,int,ins""line"))
(defun c:l3 ()(command "osnap""end,per""line"))
(defun c:l4 ()(command "osnap""cen,per""line"))
(defun c:l40 ()(command "osnap""cen,per""_mline""sc""-0.04"))
(defun c:l30 ()(command "osnap""cen,per""_mline""sc""-0.03"))
(defun c:l25 ()(command "osnap""cen,per""_mline""sc""-0.025"))
(defun c:cc1 ()(command "osnap""near""copy"))
(defun c:m1 ()(command "osnap""near""move"))
(defun c:ll1 ()(command "osnap""near""line" pause pause """change" (ssget) """p""c""1""la""23"""))
(defun c:c1 ()(command "ucs""v""change" (ssget) """p""c""1""la""23"""))
(defun c:c2 ()(command "ucs""v""change" (ssget) """p""c""2""la""23"""))
(defun c:c3 ()(command "ucs""v""change" (ssget) """p""c""3""la""23"""))
(defun c:c4 ()(command "ucs""v""change" (ssget) """p""c""4""la""23"""))
(defun c:c5 ()(command "ucs""v""change" (ssget) """p""c""5""la""23"""))
(defun c:c6 ()(command "ucs""v""change" (ssget) """p""c""6""la""23"""))
(defun c:c7 ()(command "ucs""v""change" (ssget) """p""c""7""la""23"""))
(defun c:c8 ()(command "ucs""v""change" (ssget) """p""c""8""la""23"""))
(defun c:c9 ()(command "ucs""v""change" (ssget) """p""c""9""la""23"""))
(defun c:c0 ()(command "ucs""v""change" (ssget) """p""c""10""la""23"""))
(defun c:e1 ()(command "extend" (ssget) """e""e" (ssget "p")""))
(defun c:s3 ()(command "scale" (ssget) "" pause "r""3""1"""))
(defun c:s4 ()(command "scale" (ssget) "" pause "r""4""1"""))
(defun c:s5 ()(command "scale" (ssget) "" pause "r""5""1"""))
(defun c:s6 ()(command "scale" (ssget) "" pause "r""6""1"""))
(defun c:s7 ()(command "scale" (ssget) "" pause "r""7""1"""))
(defun c:s8 ()(command "scale" (ssget) "" pause "r""8""1"""))
(defun c:s1 ()(command "scale" (ssget) "" pause "r""1""10"""))
(defun c:wq ()(command "text""s""hz" pause "4""0""外曲 %%d"))
(defun c:nq ()(command "text""s""hz" pause "4""0""内曲 %%d"))
(defun c:wqj ()(command "text""s""hz" pause "4""0""外曲筋 %%d"))
(defun c:nqj ()(command "text""s""hz" pause "4""0""内曲筋 %%d"))
(defun c:zq ()(command "text""s""hz" pause "4""0""正曲 %%d""text""s""hz" pause "4""0"))
(defun c:fq ()(command "text""s""hz" pause "4""0""反曲 %%d""text""s""hz" pause "4""0"))
(defun c:zjb ()(command "text""s""hz" pause "4""0""正卷边"))
(defun c:zk ()(command "text""s""hz" pause "4""0""钻孔"))
(defun c:bb ()(command "text""s""hz" pause "4""0""保证切角尺寸"))
(defun c:ts ()(command "text""s""hz" pause "4""0""特殊芯线"))
(defun c:ccc ()(command "copy" (ssget) """m"))
(defun c:u1 ()(command "ucs""v"))
(defun c:gg ()(command "text""s""hz" pause "4""0""v"))
(defun c:45 ()(command "text""s""hz" pause "3""0""co45%%d"))
(defun c:46 ()(command "text""s""hz" pause "3""0""+co45%%d"))
(defun c:47 ()(command "text""s""hz" pause "3""0""+co60%%d"))
(defun c:ct ()(command "text""s""hz" pause "3""0""ct""text""s""hz" pause "3""0"))
(defun c:ct1 ()(command "text""s""hz" pause "3""0""ct10x10+co45%%d"))
(defun c:ct2 ()(command "text""s""hz" pause "3""0""ct10x10+co60%%d"))
(defun c:t1 ()(command "text""s""hz" pause "3" "0"))
(defun c:bc ()(command "text""s""hz" pause "3""0""bc""text""s""hz" pause "3""0"))
(defun c:bc1 ()(command "text""s""hz" pause "3""0""bc10x10+co45%%d"))
(defun c:cf1 ()(command "text""s""hz" pause "3""0""cf""text""s""hz" pause "3""0"))
(defun c:ex1 ()(command "text""s""hz" pause "3""0""ex""text""s""hz" pause "3""0"))
(defun c:kj ()(command "text""s""hz" pause "4""0""开角"))
(defun c:hj ()(command "text""s""hz" pause "4""0""合角"))
(defun c:dj ()(command "text""s""hz" pause "4""0""带脚钉"))
(defun c:xc () (command "osnap""off")(load "jj.fas")(beg))
(defun c:xf () (command "osnap""off")(load "kk.fas")(beg))
(defun c:yl () (command "osnap""off")(load "ll.fas")(beg ""))
(defun c:zb () (savsjb 1))
(defun c:q1 () (savsjb nil))
(defun c:cq () (if (ssget "x" (list (cons 8 "18"))) (command "erase" "p" "")))
(defun c:f0 () (bendl nil))
(defun c:qx () (load "ee.fas")(beg)(linp "p"))
(defun c:qy () (load "ee.fas")(beg)(linp "s"))
(defun c:qqq () (load "gg.fas")(beg))
(defun c:xjd () (copend ""))
(defun c:sw () (likjt ""))
(defun c:ww () (likjt nil))
(defun c:vvv () (bodhqm))
(defun c:vc () (command "osnap""off")(load "mm.fas")(beg 1))
(defun c:v2 () (bodhqf))
(defun c:vd () (load "mm.fas")(beg 2))
(defun c:vj () (load "mm.fas")(beg 3))
(defun c:ydb () (tjincl "z"))
(defun c:yfb () (tjdiv "z" 4))
(defun c:zdb () (tjincl "c"))
(defun c:zfb () (tjdiv "c" 4))
(defun c:vs () (savbod))
(defun c:bs () (command "osnap""off")(load "nn.fas")(beg)(print bodn)(setq hb# (getstring " ### ? "))(bout hb# nil))
(defun c:bo () (load "oo.fas")(begm)(dwgout)(bodxyt "m"))
(defun c:cd () (load "pp.fas")(beg)(qd2 "2" "1" "0.005" "10" 1))
(defun c:gc () (command "osnap""off")(load (strcat (getvar "dwgprefix") "qq.fas"))(beg "")(setq ssss nam1s ghs ghs1)(begm "1")(dwgout "a")(dwgxyt "m" nil))
(defun c:gx () (dwgxyt "s" nil))
(defun c:fs () (load "rr.fas")(beg)(load "ss.fas")(beg)(qd4 (car f4b)(cadr f4b)(nth 2 f4b)(last f4b ))(beg2))
(defun c:fj () (load "rr.fas")(beg)(load "ss.fas")(beg))
(defun c:qs () (load "ee.fas")(beg))
(defun c:q0 () (bendl ""))
(defun c:sd () (load "ee.fas")(beg))
(defun c:xxd () (load "aa.fas")(beg))
(defun c:uu () regenall (command "redraw")(command "ucs" "")(command "osnap" "none")(command "units" "2" "4" "1" "2" "" "")(command "graphscr"))
(defun c:i1 ()(command "osnap""near" "insert""spl1" pause "1""1""10"))
(defun c:i2 ()(command "osnap""near" "insert""spl2" pause "1""1""1"))
(defun c:db1 ()(command "osnap""near" "insert""60x60" pause "1""1""0"))
(defun c:db2 ()(command "osnap""near" "insert""50x50" pause "1""1""0"))
(defun c:ar1 ()(command "copy" (ssget) """m" pause pause pause """-array" (ssget)"""r" pause "10""-0.2102""0.3223"))
(defun c:ar2 ()(command "copy" (ssget) """m" pause pause pause """-array" (ssget)"""r" pause "10""-0.2108""0.3223"))