初来报到

wangfan213

(defun c:a4( /  v1 v2 v3 ljmch cl shl bl);定义命令的名字为a4
  (setq v1(getvar "osmode"));获取当前的目标捕捉类型，将其赋给变量v1
  (setq v2(getvar "cmdecho"));获取当前的普通命令提示状态，将其赋给变量v2
  (setq v3(getvar "blipmode"));获取当前的光标痕迹显示状态，将其赋给变量v3
  (setvar "osmode" 0);关闭目标捕捉状态
  (setvar "cmdecho" 0);不显示普通命令的提示
  (setvar "blipmode" 0) ;不显示光标痕迹
  (setq ljmch(getstring "\n输入零件名称："));将输入的零件名称赋给变量ljmch
  (setq cl(getstring "\n输入零件材料："));将输入的零件材料赋给变量cl
  (setq shl(getint "\n输入零件数量："));将输入的零件数量赋给变量shl
  (setq shl(itoa shl));将整数shl转换为字符串
  (setq bl(getstring "\n输入绘图比例："));将输入的绘图比例赋给变量bl
  (command "style" "hz" "gbcbig" "" "" "" "" "" "");定义汉字的字样名为hz
  (command "layer" "m" "xixian" "c" "1" """");创建当前图层xixian
  (command "limits" "0,0" "210,297");设置图纸范围
  (command "line" "0,0" "210,0" "210,297" "0,297" "c");绘制A4图纸边框
  (command "layer" "m" "cuxian" "c" "7" "" "lw"  0.6 "" "");创建当前图层cuxian
  (command "line" "25,5" "205,5" "205,292" "25,292" "c");绘制图框
  (command "line" "85,5" "85,27" "205,27" "");绘制标题栏
  (command "line" "85,13" "205,13" "")
  (command "line" "100,13" "100,27" "")
  (command "line" "120,13" "120,27" "")
  (command "line" "132,5" "132,27" "")
  (command "line" "162,5" "162,13" "")
  (command "line" "180,5" "180,27" "")
  (command "layer" "m" "xixian" "")
  (command "line" "85,20" "132,20" "")
  (command "layer" "m" "wenzi" "c" "5" "" "");创建当前图层wenzi
  (command "text" "m" (list 108.5 9) 5 0 "清 华 大 学 机 械 厂");填写标题栏
  (command "text" "m" (list 147 9) 5 0 (strcat "材 料  " cl))
  (command "text" "m" (list 171 9) 5 0 (strcat "数 量  " shl))
  (command "text" "m" (list 192.5 9) 5 0 (strcat "比 例  " bl))
  (command "text" "m" (list 92.5 23.5) 5 0 "制 图")
  (command "text" "m" (list 92.5 16.5) 5 0 "校 核")
  (command "text" "m" (list 156 20) 10 0 ljmch)
  (setvar "osmode");恢复目标捕捉的原来状态
  (setvar "cmdecho" v2) ;恢复普通命令提示原来的显示状态
  (setvar "blipmode" v3) ;恢复光标痕迹原来的显示状态
  (princ);静默退出
)

wangfan213

多多分享 ， 希望大家喜欢

Gu_xl

回复 wangfan213 的帖子

欢迎来报道！有交流才有进步！