|
|
(defun c:a3()
(setq os (getvar "OSMODE")) ;; Save OSNAP mode
(setvar "OSMODE" 0)
(command "layer" "s" "0" "")
(setq scal(getreal "\n请输入比例:"))
(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.在中输入如下: 命令: a2 请输入比例:
命令:ax
水平间距，逗号隔开:3600,4200,3600,3300,3900,3300,4200 垂直间距，逗号隔开:3600,4200,3600,3300 2.a2表示2号图，a1表示1号图等。
参见本帖以下内容被隐藏保护；需要你回复后，才能看到！ 游客，如果您要查看本帖隐藏内容请 回复 |
|
置顶卡
