cad怎样右上角页数怎么搞

增加cad右上角页数：

1、打开CAD，点击上方绘图选项。

2、在该页面中点击文字选项。

3、在该页面中点击选择多行文字或单行文字选项。

4、在该页面中在CAD页面的空白处绘制一个文本框，在文本框中即可打字了。

提供两种方法：

1.lisp程序

(defun C:ppp()

  (setq TextHeight (getreal"\n文字高度："))

  (setq StartPage (getint"开始页码："))

  (setq TotalPage (getint"总页数："))

  (setq pt (getpoint "插入点：\n"))

  (while pt

    (COMMAND "TEXT" pt TextHeight 0 (strcat "第" (itoa StartPage) "页"  " 共" (itoa TotalPage) "页\n"))

    (setq StartPage (1+ StartPage))

    (if (>StartPage TotalPage)

      (setq pt nil)

      (setq pt (getpoint "\n插入点：\n"))

    )

  )

)

对该程序进行简单的修改，即可进行文字的批量递增。

2.vb程序

先在excel中形成页码，然后依次导入cad中。

vb程序参见“将excel中的数据导入cad的vb程序”

http://bbs.hcbbs.com/thread-313983-1-1.html

页码的格式可根据要求进行修改，比如有的只有页码没有页数等。

有如图所示的一张图纸，给其添加一个A4图纸。

cad中给图纸假如A4纸图框的方法

输入矩行命令“rec”，回车。

cad中给图纸假如A4纸图框的方法

输入矩形的参数为：”297,210“，回车。.因为A4纸张为297x210的规格（横向），故输入矩形的参数为"297,210".

cad中给图纸假如A4纸图框的方法

得到一个A4纸的图框。接下来就需要调整框的大小了。

cad中给图纸假如A4纸图框的方法

量取图纸两处的长度，如图所示，本次为11。

cad中给图纸假如A4纸图框的方法

缩小/放大图框至合适大小，本次为缩小，缩小的倍数确定为297除以11等于27，故缩小的倍数为27.输入缩放命令“sc”，回车，输入缩放数值“1/27”，将图框缩小27倍。

cad中给图纸假如A4纸图框的方法

移动图框，至合适位置，完成。

cad中给图纸假如A4纸图框的方法

---