帮忙看看这段代码，提示参数太少
(defun c:a4( / v1 v2 v3 ljmch cl shl bl)<br/> (setq v1(getvar "osmode"))<br/> (setq v2(getvar "cmdecho"))<br/> (setq v3(getvar "bilpmode"))<br/> (setvar "osmode" 0)<br/> (setvar "cmdecho" 0)<br/> (setvar "bilpmode" 0)<br/> (setq ljmch(getstring "\n输入零件名称:"))<br/> (setq cl(getstring "\n输入零件材料："))<br/> (setq shl (getint "\n输入零件数量："))<br/> (setq shl(itoa shl))<br/> (setq bl(getstring "\n输入绘图比例"))<br/> (command "style" "hz" "gbcgig" "" "" "" "" "" "" "")<br/> (command "layer" "m" "xixian" ) ;设置图纸边框线<br/> (command "c" 1)<br/> (command "limits" "0,0" "210,297")<br/> (command "zoom" "a")<br/> (command "line" "0,0" "210,0" "210,297" "c")<br/> (command "layer" "m" "cuxian" "c" 7 "" "lw" 0.6 "");设置图框<br/> (command "line" "25,5" "205,5" "205,292" "25，292" "c")<br/> (command "line" "85,5" "85,27" "205,13" "")<br/> (command "line" "85,13" "205,13" "")<br/> (command "line" "100,13" "100,27" "")<br/> (command "line" "120,13" "120,27" "")<br/> (command "line" "132,5" "132,27" "")<br/> (command "line" "162,5" "162,13" "")<br/> (command "line" "180,5" "180,27" "")<br/> (command "layer" "m" "xixian")<br/> (command "line" "85,20" "132,20")<br/> (command "layer" "m" "wenzi" "c" "5" "" "")<br/> (command "text" "m" (list 188.5 9) 5 0 "清华大学机械厂")<br/> (command "text" "m" (list 147 9) 5 0 (strcat"材料" cl))<br/> (command "text" "m" (list 171 9) 5 0 (strcat"数量" shl))<br/> (command "text" "m" (list 192.5 9) 5 0 (strcat"比例" bl))<br/> (command "text" "m" (list 92.5 23.5) 5 0 "制图")<br/> (command "text" "m" (list 92.5 16.5) 5 0 "校核")<br/> (command "text" "m" (list 156 20) 10 0 ljmch)<br/> (setvar "osmode")<br/> (setvar "cmdecho" v2)<br/> (setvar "blipmode" v3)<br/> (princ)<br/> ) <p> ...</p><p> (setvar "osmode" <font color="#ff0000">v1</font>)<br/> (setvar "cmdecho" v2)<br/> (setvar "blipmode" v3)<br/> (princ)<br/> )</p> <p>More .....<br/> (command "layer" "m" "xixian" ) ;设置图纸边框线<br/> (command "c" 1)<br/>==> <br/> (command "c" 1 "" "")</p><p><br/>(command "line" "25,5" "205,5" "205,292" "25，292" "c")<br/>===><br/>(command "line" "25,5" "205,5" "205,292" "25,292" "c")</p><p>.....</p><p>(command "line" "180,5" "180,27" "")<br/>(command "layer" "m" "xixian")<br/>==><br/>;; (command "layer" "m" "xixian" "") ; 重复了</p><p></p>
页:
[1]