- 积分
- 2940
- 明经币
- 个
- 注册时间
- 2003-2-8
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
以下是建层程序,这是一个示例,麻烦帮忙修改.谢谢!
(defun c:jc () (initget "F S T") (setq bb (getstring "\n地质平面图(F),地质剖面图(T),地形地质图(S),<F>: " )
(if ((= bb "") (setq bb "F") ) (cond ((= bb "F") (f_l)) ((= bb "T") (t_l)) ((= bb "S") (s_l)) (setq bb (strcase bb) (defun f_l () (setvar "plinegen" 1) (command "layer" "m" "坐标线" "c" "6" "" "l" "ACAD_ISO02W100" "" "lw" "0.00" "" "" ) (command "layer" "m" "文字" "c" "3" "" "") (command "layer" "m" "填充" "c" "2" "" "") (command "layer" "m" "视口" "c" "7" "" "p" "n" "" "") (command "layer" "m" "底图" "c" "7" "" "p" "n" "" "") (command "style" "ST" "宋体" 2.5 1.0 0 "N" "N") (command "-style" "HT" "黑体" 10.0 1.0 0 "N" "N") (command "draworder" (SSGET "X" '((0 . "hatch"))) "" "b" ) ;;(8 . "填充")把填充这个图层排在最后 (command "ortho" "on") ;;打开正交 (command "limits") ;;(command "pline" "" "w" "0.8" "0.8" "" "" "") (prompt "\n地质 Copyright(c) 2005 By WWL. All Right Reserved! \n请用JC命令!" ) (princ) ) )
(defun t_l () (setvar "plinegen" 1) (command "layer" "m" "坐标线" "c" "6" "" "l" "ACAD_ISO02W100" "" "lw" "0.00" "" "" ) (command "layer" "m" "文字" "c" "3" "" "") (command "layer" "m" "填充" "c" "2" "" "") (command "layer" "m" "视口" "c" "7" "" "p" "n" "" "") (command "layer" "m" "底图" "c" "7" "" "p" "n" "" "") (command "style" "ST" "宋体" 2.5 1.0 0 "N" "N") (command "-style" "HT" "黑体" 10.0 1.0 0 "N" "N") (command "draworder" (SSGET "X" '((0 . "hatch"))) "" "b" ) (command "ortho" "on") (command "limits") (prompt "\n地质 Copyright(c) 2005 By WWL. All Right Reserved! \n请用JC命令!" ) (princ) ) ) )
(defun s_l () (setvar "plinegen" 1) ;;(setvar "OSMODE" 36) (command "layer" "m" "坐标线" "c" "6" "" "l" "ACAD_ISO02W100" "" "lw" "0.00" "" "" ) (command "layer" "m" "文字" "c" "3" "" "") (command "layer" "m" "填充" "c" "2" "" "") (command "layer" "m" "视口" "c" "7" "" "p" "n" "" "") (command "layer" "m" "底图" "c" "7" "" "p" "n" "" "") (command "style" "ST" "宋体" 2.5 1.0 0 "N" "N") (command "-style" "HT" "黑体" 10.0 1.0 0 "N" "N")
(command "draworder" (SSGET "X" '((0 . "hatch"))) "" "b" ) (command "ortho" "on")
(command "limits") (prompt "\n地质 Copyright(c) 2005 By WWL. All Right Reserved! \n请用JC命令!" ) (princ) ) ) ) |
|