初学者的最好的例子（原创）
(defun c:a3()<BR> (setq os (getvar "OSMODE")) ;; Save OSNAP mode<BR> (setvar "OSMODE" 0)<BR> (command "layer" "s" "0" "")<BR> (setq scal(getreal "\n请输入比例<回车为100>:"))<BR> (if(null scal)<BR> (setq scal 100.0)<BR> )<BR> (command "zoom" "a")<BR> (setq pt1(list(* 420 scal) 0))<BR> (setq pt2(list(* 420 scal)(* 297 scal)))<BR> (setq pt3(list 0 (* 297 scal)))<BR> (setq pt_1(list(* 25 scal)(* 5 scal)))<BR> (setq pt_2(list(* 415 scal)(* 5 scal)))<BR> (setq pt_3(list(* 415 scal)(* 292 scal)))<BR> (setq pt_4(list(* 25 scal)(* 292 scal)))<BR> (command "line" "0,0" pt1 pt2 pt3 "c")<BR> (command "pline" pt_1 "w" scal scal pt_2 pt_3 pt_4 "c")<BR> (command "zoom" "a")<BR> (command "insert" "图标块" pt_2 scal scal 0)<BR> (command "explode" "last")<BR> (command "insert" "会签栏块" pt_4 scal scal 0)<BR> (command "explode" "last")<BR> (setvar "OSMODE" os) ;; Restore OSNAP mode<BR> (setvar "LTSCALE" scal)<BR> (princ)<BR> )<IMG height=363 src="http://asp.6to23.com/liqianghust/%D6%E1%CF%DF510x363.gif" width=510>
<FONT color=#0033cc>说明</FONT> 1.在AutoCAD中输入如下: 命令: a2 请输入比例<回车为100>:
命令:ax
水平间距，逗号隔开:3600,4200,3600,3300,3900,3300,4200 垂直间距，逗号隔开:3600,4200,3600,3300 2.a2表示2号图，a1表示1号图等。
参见<A href="http://asp.6to23.com/liqianghust" target="_blank" >http://asp.6to23.com/liqianghust</A> 打错字了
应该是“初学者最好的例子”
输入a2后然后输入ax
自动画轴线
页:
[1]