初学者的最好的例子（原创）

迈克老狼

(defun c:a3()
(setq os (getvar "OSMODE")) ;; Save OSNAP mode
(setvar "OSMODE" 0)
(command "layer" "s" "0" "")
(setq scal(getreal "\n请输入比例<回车为100>:"))
(if(null scal)
(setq scal 100.0)
)
(command "zoom" "a")
(setq pt1(list(* 420 scal) 0))
(setq pt2(list(* 420 scal)(* 297 scal)))
(setq pt3(list 0 (* 297 scal)))
(setq pt_1(list(* 25 scal)(* 5 scal)))
(setq pt_2(list(* 415 scal)(* 5 scal)))
(setq pt_3(list(* 415 scal)(* 292 scal)))
(setq pt_4(list(* 25 scal)(* 292 scal)))
(command "line" "0,0" pt1 pt2 pt3 "c")
(command "pline" pt_1 "w" scal scal pt_2 pt_3 pt_4 "c")
(command "zoom" "a")
(command "insert" "图标块" pt_2 scal scal 0)
(command "explode" "last")
(command "insert" "会签栏块" pt_4 scal scal 0)
(command "explode" "last")
(setvar "OSMODE" os) ;; Restore OSNAP mode
(setvar "LTSCALE" scal)
(princ)
) 说明 1.在AutoCAD中输入如下: 命令: a2 请输入比例<回车为100>: 命令:ax 水平间距，逗号隔开:3600,4200,3600,3300,3900,3300,4200 垂直间距，逗号隔开:3600,4200,3600,3300 2.a2表示2号图，a1表示1号图等。 参见http://asp.6to23.com/liqianghust

迈克老狼

打错字了


应该是“初学者最好的例子”


输入a2后然后输入ax


自动画轴线