[求助]请大哥帮忙修改!

wengsg

以下是建层程序,这是一个示例,麻烦帮忙修改.谢谢! (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)
)
)
)

CADghost

我用的2005,看看你的子程序还是有点问题 (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))
)
)
(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)
)

wengsg

哪里有问题?请指教.


我也是使用2005的呀.

CADghost

看看你的括号是否匹配,后面的子函数都包含在主程序里了

wengsg

括号没问题呀!


还请高手来帮我解决吧?

龙龙仔

括号没问题呀!-->问题特多 (SSGET "X" '((0 . "hatch"))) ;= nil 会出错

wengsg

龙龙仔发表于2005-1-7 8:04:00括号没问题呀!-->问题特多 (SSGET \"X\" '((0 . \"hatch\"))) ;= nil 会出错

可以把上面的去掉，但程序还是不行． 有请＂meflying"帮我修改，可以吗？