下面是我做的画图框的程序,各个单位可能不一样,不过可以参考一下。但愿对你有用!

- [FONT=courier new]
- (defun c:tukuang()
- (setq sp(getpoint"\请输入起始点<0,0,0>:"))
- (if (null sp)
- (progn
- (setq x 0 y 0)
- )
- (progn
- (setq x (car sp) y (cadr sp))
- )
- )
- (setq scale(getreal"\nThe scale<10>:"))
- (if (null scale)
- (setq scale 10)
- )
- (setq cm (getvar "cmdecho"))
- (setvar "cmdecho" 0)
- (setq os (getvar"osmode"))
- (setvar "osmode"0)
- (setq orth (getvar"orthomode"))
- (setvar "orthomode"0)
- (command "undo" "group")
- (command "color""7")
- (command "-linetype""set""continuous""")
- (command "RECTANGLE"(list x y) (list(+ x (* scale 42)) (+ y (* scale 29.7))))
- (command "color""5")
- (command "RECTANGLE"(list(+ x (* scale 3)) (+ y (* scale 1))) (list(+ x (* scale 41)) (+ y (* scale 28.7))))
- (command "color""1")
- (command "line"(list(+ x (* scale 3)) (+ y (* scale 2))) (list(+ x (* scale 41)) (+ y (* scale 2)))"")
- (command "line"(list(+ x (* scale 11)) (+ y (* scale 2))) (list(+ x (* scale 11)) (+ y (* scale 1)))"")
- (command "line"(list(+ x (* scale 19)) (+ y (* scale 2))) (list(+ x (* scale 19)) (+ y (* scale 1)))"")
- (command "line"(list(+ x (* scale 20.5)) (+ y (* scale 2))) (list(+ x (* scale 20.5)) (+ y (* scale 1)))"")
- (command "line"(list(+ x (* scale 22.5)) (+ y (* scale 2))) (list(+ x (* scale 22.5)) (+ y (* scale 1)))"")
- (command "line"(list(+ x (* scale 24)) (+ y (* scale 2))) (list(+ x (* scale 24)) (+ y (* scale 1)))"")
- (command "line"(list(+ x (* scale 26)) (+ y (* scale 2))) (list(+ x (* scale 26)) (+ y (* scale 1)))"")
- (command "line"(list(+ x (* scale 28)) (+ y (* scale 2))) (list(+ x (* scale 28)) (+ y (* scale 1)))"")
- (command "line"(list(+ x (* scale 30)) (+ y (* scale 2))) (list(+ x (* scale 30)) (+ y (* scale 1)))"")
- (command "line"(list(+ x (* scale 32)) (+ y (* scale 2))) (list(+ x (* scale 32)) (+ y (* scale 1)))"")
- (command "line"(list(+ x (* scale 34)) (+ y (* scale 2))) (list(+ x (* scale 34)) (+ y (* scale 1)))"")
- (command "line"(list(+ x (* scale 35.5)) (+ y (* scale 2))) (list(+ x (* scale 35.5)) (+ y (* scale 1)))"")
- (command "line"(list(+ x (* scale 37.5)) (+ y (* scale 2))) (list(+ x (* scale 37.5)) (+ y (* scale 1)))"")
- (command "line"(list(+ x (* scale 39)) (+ y (* scale 2))) (list(+ x (* scale 39)) (+ y (* scale 1)))"")
- (command"-style""""txt,tjhzd""0""0.58""""""")
- (command "color""7")
- (command"-style""""txt,tjhzd""0""0.58""""""")
- (command"text""j""mc"(list(+ x (* scale 27)) (+ y (* scale 1.5))) (* 0.7 scale) 0 "专业负责人")
- (command"text""j""mc"(list(+ x (* scale 31)) (+ y (* scale 1.5))) (* 0.7 scale) 0 "项目负责人")
- (command"-style""""""0""0.7""""""")
- (command"text""j""mc"(list(+ x (* scale 19.75)) (+ y (* scale 1.5))) (* 0.7 scale) 0 "设 计")
- (command"text""j""mc"(list(+ x (* scale 23.25)) (+ y (* scale 1.5))) (* 0.7 scale) 0 "复 核")
- (command"text""j""mc"(list(+ x (* scale 34.75)) (+ y (* scale 1.5))) (* 0.7 scale) 0 "审 核")
- (command"text""j""mc"(list(+ x (* scale 38.25)) (+ y (* scale 1.5))) (* 0.7 scale) 0 "图 号")
- (command"-style""""""0""0.43""""""")
- (command"text""j""mc"(list(+ x (* scale 7)) (+ y (* scale 1.5))) (* 0.7 scale) 0 "树屏至徐家磨二级汽车专用公路改造工程两阶段施工图设计")
- (command"-style""""""0""0.75""""""")
- (command"text""j""mc"(list(+ x (* scale 15)) (+ y (* scale 1.5))) (* 0.7 scale) 0 "中国兰天")
- (command"text""j""f"(list(+ x (* scale 39)) (+ y (* scale 1.15))) (list(+ x (* scale 40.96)) (+ y (* scale 1.15))) (* 0.7 scale) "S7-3-24(4)")
- (command"-linetype""set""bylayer""")
- (command "color""bylayer")
- (command "undo" "end")
- (setvar "cmdecho" cm)
- (setvar "osmode"os)
- (setvar "orthomode"orth)
- (princ)
- )
- [/FONT]
|