请教一下第一次画图的比例怎么控制

在CAD中一般原则都是按1：1比例绘制的~~，这样方便修改，做好后再按比例放大，出图时按1：1的比例输出打印即可，~~我平时都是这么做的，很方便。

1、如果是图纸比例的话，一般各行都有相关规定。
autocad绘图时，
图纸比例＝绘图比例×视口比例×打印比例
1：100 ＝1：100 × 1：1 × 1：1
譬如要出一份1：100的图纸（图纸比例），视口比例为1：1（不使用布局的话），打印比例为1：1（推荐），那么
绘图比例即为1：100，即1mm表示实际100mm，如上式。
如果使用布局的话，则绘图比例可为1：1，打印比例为1：1，视口比例为1：100，如下式：
1：100 ＝1：1 × 1：100 × 1：1，这时要注意标注和字体会随着视口放大或缩小。
2、坐标标注一般用工具，我用水利的ZDM，编得挺好。
以前写过一个较为简单的，*.txt改为*.lsp加载后test命令可使用，代码如下：
(defun c:test ()
(setvar "cmdecho" 0)
(setvar "plinewid" 0)
(if (= nil (setq th (getreal "\n输入文字高度<300>:")))
(setq th 300)
)
(while (setq pt (getpoint "\n选取座标点:"))
(setq ptx (cadr pt)
pty (car pt)
pt2 (getpoint pt "\n选取导出线位置:")
chr_x (strcat "x=" (rtos ptx 2 3))
chr_y (strcat "y=" (rtos pty 2 3))
)
(command "point" pt)
(setq ang (angle pt pt2))
(if (and (> ang (/ pi 2)) (< ang (* pi 1.5)))
(setq ang2 pi)
(setq ang2 0.0)
)
(setq pt3 (polar pt2 ang2 (* th 8.0))
p21 (car pt2)
p22 (cadr pt2)
p31 (car pt3)
p32 (cadr pt3)
p41 (/ (+ p21 p31) 2)
p42 (/ (+ p22 p32) 2)
pt4 (list p41 p42 0)
)
(command "pline" pt pt2 pt3 "")
(command "text" "bc" (polar pt4 (* pi 0.5)100) th "" chr_x)
(command "text" "tc" (polar pt4 (* pi 1.5)100) th "" chr_y)
)
(princ)
)