Ⅰ CAD裡面的插件命令，求高手翻譯一下！
(defun c:jo(/ jj jn p0 pt pc pt0 pt1 pt2) (setvar "cmdecho" 0) (command "style" "sModify" "txt.shx,gbcbig.shx" "" "1.6" "1.6" "" "" "") (setq jj(getstring (strcat "\n輸入焊口標記:"))) (setq jn(getint (strcat "\n輸入初始焊口號:"))) (while (/= nil (setq p0 (getpoint "\n輸入焊口定位點:"))) (setq pt (getpoint "\n輸入編號定位點:")) (setq pc(polar pt (angle pt p0) 4)) (command "circle" pt 4) (setq pt0 (polar pt (* 0.5 pi) 2)) (setq pt1 (polar pt 0 4)) (setq pt2 (polar pt pi 4)) (command "pline" pt1 pt2 "") (command "text" "J" "mc" pt0 2 "" (strcat jj (itoa jn))) (command "line" p0 pc "") (setq jn (1+ jn)) ) (setvar "cmdecho" 1) (princ) ) (princ "\nC:ws") (prin1)
(defun c:jo(/ jj jn p0 pt pc pt0 pt1 pt2) (setvar "cmdecho" 0) (command "style" "sModify" "txt.shx,gbcbig.shx" "" "1.6" "1.6" "" "" "") (setq jj(getstring (strcat "\n輸入焊口標記:"))) (setq jn(getint (strcat "\n輸入初始焊口號:"))) (while (/= nil (setq p0 (getpoint "\n輸入焊口定位點:"))) (setq pt (getpoint "\n輸入編號定位點:")) (setq pc(polar pt (angle pt p0) 4)) (command "circle" pt 4) (setq pt0 (polar pt (* 0.5 pi) 2)) (setq pt1 (polar pt 0 4)) (setq pt2 (polar pt pi 4)) (command "pline" pt1 pt2 "") (command "text" "J" "mc" pt0 2 "" (strcat jj (itoa jn))) (command "line" p0 pc "") (setq jn (1+ jn)) ) (setvar "cmdecho" 1) (princ) ) (princ "\nC:ws") (prin1)