请帮我看看这个函数是起什么用的？

lclclc

请帮我看看这个函数sub_gxzd在展点程序中是起什么用的?我在书中没找到这个函数. (defun c:zdp();主程序
(setq f (getstring "\n 输入坐标文件名:"))
(command "osnap" "")
(if (/= f "")
(progn
(setq fl (open f "r") gd nil)
(if fl
(progn
(command "style" "ROMANS" "hztxt" (* 2.0 key) 1.0 "" "" "" "")
(while (setq str (read-line fl))
(setq
dh (sub_gxzd str 1)
dh (strcase dh)
lb (substr dh 1 2)
y (atof (sub_gxzd str 2))
x (atof (sub_gxzd str 3))
h (sub_gxzd str 4)
BLOCK (substr str 43 4)
p (list x y)
)
(cond
((= LB "JC")(PROGN (COMMAND "layer" "m" "JCD" "")(command "layer" "c" "5" "JCD" "")))
((= LB "PY")(PROGN (COMMAND "layer" "m" "PYD" "")(command "layer" "c" "14" "PYD" "")))
((= LB "MQ")(PROGN (COMMAND "layer" "m" "MQD" "")(COMMAND "layer" "c" "6" "MQD" "")))
((= LB "DL")(PROGN (COMMAND "layer" "m" "DLD" "")(command "layer" "c" "1" "DLD" "")))
(princ (strcat dh "\n"))
(if (= (vl-string-trim " " block) "x3-")
(progn
(command "insert" block p "0.5" "0.5" "0")
(command "text" p "0" dh)
)
(progn
(command "insert" block p "0.5" "0.5" "0" DH)
(command "text" p "0" dh)
)
)
) ;end while
(close fl)
);end progn
(princ "\n输入文件不存在\n")
)
)
)
(princ)
)

meflying

自定义函数,按道理书上应该有。。。这个函数的功能应该是，在一字符串中取出第N个数字，

lclclc

我确实没有找到，在帮助也没找到．麻烦Meflying大哥，帮我看看告诉我吧．


这个程序是独立的文件方式保存的．没有发现其它自定义呀．

meflying

没有发现其它自定义，就说明这个程序不完整，不能使用。。。


你要我告诉你什么呢？大概的功能我在2楼也说了啊

lclclc

我明白了，已经找到了，谢谢了。以后可能还要麻烦大哥！THANK YOU