[求助]请各位高手帮忙看一下这个程序问题出在哪里?

aytxq

写这个程序的最初设想是由程序自己处理件号。件号可任意输入两位字母(如DA)或是四位带数字的(如D01A),程序自动识别输入。.如果是输入小于四位的件号或是不输入件号,则会多一个要求输入序号的步骤。 程序自己从四位件号或是输入的序号中提取起始值，在下次没有输入件号和序号自动从前次累加。前三个步骤均可回车跳过也不中断退出。

现在的问题是在“请输入件号首尾”这一步时，输入一个完整的件号，如S05A，程序只取头尾两个字母,而对中间的两个序号不予理会。要改变序号只在“请输入序号值”这一步中输入序号。而在我设想中，如果输入了一个完整的件号，请“输入序号值”这一步是不应该出现的。

 

ZZXXQQ

w2是字串，用numberp函数总是nil。

3. ;自动标件号
4. ;件号可任意输入两位字母(如DA)或是四位带数字的(如D01A),程序自动识别输入.
5. ;如果是输入小于四位的件号或是不输入件号,则会多一个要求输入序号的步骤.
6. ;程序自己从四位件号或是输入的序号中提取起始值,在下次没有输入件号和序号时自动从前次累加
7. ;前三个步骤均可回车跳过也不中断退出。
8. (defun c:jf (/ pt pt1 pt2 pt3 pt4 w1 w3 jh2)
9. (setvar "cmdecho" 0)
10. (if (= MoHao nil) (setq MoHao "如:D2-88273-TBX"))
11. (setq X1 MoHao)
12. (princ "\n 请输入模号:")(princ "<")(princ MoHao)(princ ">")
13. (setq MoHao (strcase (getstring) nil));所有输入的字符转为大写形式
14. (if (= MoHao "")(SETQ MoHao X1))
15. (if (= JianHao nil) (setq JianHao "如:D01A"))
16. (setq X2 JianHao)
17. (princ "\n 请输入件号首尾:")(princ "<")(princ JianHao)(princ ">");显示前一件号名称
18. (setq JianHao (strcase (getstring) nil));所有输入的字符转为大写形式
19. (if (= JianHao "") (SETQ JianHao X2))
20. (setq l1 (strlen JianHao)
21.        w1 (substr JianHao 1 1)
22.        w2 (substr JianHao 2 2)
23.        w3 (substr JianHao l1 4))
24. (if (wcmatch w2 "##")
25.   (setq XuHao (atoi w2))                  ;W2是有效数
26.   (setq XuHao (getint "\n 请输入序号值:"));W2不是有效数
27. );if end 如果输入的号号没有有效数字,则要求输入序号
28. (if (= counter nil) (setq counter 1))
29. (if (= XuHao nil)
30.   (setq XuHao (itoa counter))
31.   (setq counter XuHao XuHao (itoa XuHao)) ;  同时计算两个表达式
32. ); if end　一个条件表达式,计算三种表达式
33. (if (< counter 10)
34.   (setq JianHao (strcat w1 "0" XuHao w3))
35.   (setq JianHao (strcat w1 XuHao w3))
36. );IF END
37. (setq jh2 (strcat MoHao "-" JianHao))
38. (setq pt (getpoint "\n 请输入放置点:"))
39. (setq pt1 (list (car pt) (+ (cadr pt) 2.3));件号首字母位置
40.        pt2 (list (car pt) (- (cadr pt) 1.4));件号后三字符位置
41.        pt3 (list (+ (car pt) 66) (- (cadr pt) 97));材质位置
42.        pt4 (list (+ (car pt) 15) (- (cadr pt) 2)));模号位置
43. (setq la (getvar "clayer"))
44. (vl-cmdf ".layer" "thaw" "dim" "set" "dim" "")
45. (vl-cmdf ".text" "s" "complex" "j" "mc" pt1 "2.8" "0" w1)
46. (vl-cmdf ".text" "s" "complex" "j" "mc" pt2 "2.8" "0" (substr JianHao 2))
47. (vl-cmdf ".style" "" "" "" "0.7" "" "" "" "")
48. (if (= w3 "M")
49.   (vl-cmdf ".text" "s" "complex" "j" "mc" pt4 "2.2" "0" "SKD11 HRC60%%D%%")
50.   (if (= w3 "A")
51.    (if (wcmatch w1 "D,P")
52.     (vl-cmdf ".text" "s" "complex" "j" "mc" pt4 "2.2" "0" "KD20  HRA90%%D%%"))
53.    (if (wcmatch w1 "S")
54.     (vl-cmdf ".text" "s" "complex" "j" "mc" pt4 "2.2" "0" "G3    HRA90%%D%%"))
55.   );end if
56. );if end
57. ;;;  (vl-cmdf ".style" "" "" "" "0.8" "" "" "" "")
58. (vl-cmdf ".layer" "thaw" "T" "set" "T" "")
59. (vl-cmdf ".text" "s" "romans" "j" "mc" pt3 "1.5" "0" jh2)
60. (vl-cmdf ".layer" "set" la "")
61. ;;;  (vl-cmdf ".style" "" "" "" "1.0" "" "" "" "")
62. (setq counter (1+ counter))
63. (setvar "cmdecho" 1)
64. (princ)
65. )

;自动标件号 ;件号可任意输入两位字母(如DA)或是四位带数字的(如D01A),程序自动识别输入. ;如果是输入小于四位的件号或是不输入件号,则会多一个要求输入序号的步骤. ;程序自己从四位件号或是输入的序号中提取起始值,在下次没有输入件号和序号时自动从前次累加 ;前三个步骤均可回车跳过也不中断退出。 (defun c:jf (/ pt pt1 pt2 pt3 pt4 w1 w3 jh2) (setvar "cmdecho" 0) (if (= MoHao nil) (setq MoHao "如:D2-88273-TBX")) (setq X1 MoHao) (princ "\n 请输入模号:")(princ "<")(princ MoHao)(princ ">") (setq MoHao (strcase (getstring) nil));所有输入的字符转为大写形式 (if (= MoHao "")(SETQ MoHao X1)) (if (= JianHao nil) (setq JianHao "如:D01A")) (setq X2 JianHao) (princ "\n 请输入件号首尾:")(princ "<")(princ JianHao)(princ ">");显示前一件号名称 (setq JianHao (strcase (getstring) nil));所有输入的字符转为大写形式 (if (= JianHao "") (SETQ JianHao X2)) (setq l1 (strlen JianHao)        w1 (substr JianHao 1 1)        w2 (substr JianHao 2 2)        w3 (substr JianHao l1 4)) (if (wcmatch w2 "##")   (setq XuHao (atoi w2))                  ;W2是有效数   (setq XuHao (getint "\n 请输入序号值:"));W2不是有效数 );if end 如果输入的号号没有有效数字,则要求输入序号 (if (= counter nil) (setq counter 1)) (if (= XuHao nil)   (setq XuHao (itoa counter))   (setq counter XuHao XuHao (itoa XuHao)) ;  同时计算两个表达式 ); if end　一个条件表达式,计算三种表达式 (if (< counter 10)   (setq JianHao (strcat w1 "0" XuHao w3))   (setq JianHao (strcat w1 XuHao w3)) );IF END (setq jh2 (strcat MoHao "-" JianHao)) (setq pt (getpoint "\n 请输入放置点:")) (setq pt1 (list (car pt) (+ (cadr pt) 2.3));件号首字母位置        pt2 (list (car pt) (- (cadr pt) 1.4));件号后三字符位置        pt3 (list (+ (car pt) 66) (- (cadr pt) 97));材质位置        pt4 (list (+ (car pt) 15) (- (cadr pt) 2)));模号位置 (setq la (getvar "clayer")) (vl-cmdf ".layer" "thaw" "dim" "set" "dim" "") (vl-cmdf ".text" "s" "complex" "j" "mc" pt1 "2.8" "0" w1) (vl-cmdf ".text" "s" "complex" "j" "mc" pt2 "2.8" "0" (substr JianHao 2)) (vl-cmdf ".style" "" "" "" "0.7" "" "" "" "") (if (= w3 "M")   (vl-cmdf ".text" "s" "complex" "j" "mc" pt4 "2.2" "0" "SKD11 HRC60%%D%%")   (if (= w3 "A")    (if (wcmatch w1 "D,P")     (vl-cmdf ".text" "s" "complex" "j" "mc" pt4 "2.2" "0" "KD20  HRA90%%D%%"))    (if (wcmatch w1 "S")     (vl-cmdf ".text" "s" "complex" "j" "mc" pt4 "2.2" "0" "G3    HRA90%%D%%"))   );end if );if end ;;;  (vl-cmdf ".style" "" "" "" "0.8" "" "" "" "") (vl-cmdf ".layer" "thaw" "T" "set" "T" "") (vl-cmdf ".text" "s" "romans" "j" "mc" pt3 "1.5" "0" jh2) (vl-cmdf ".layer" "set" la "") ;;;  (vl-cmdf ".style" "" "" "" "1.0" "" "" "" "") (setq counter (1+ counter)) (setvar "cmdecho" 1) (princ) )

aytxq

ZZXXQQ大侠,我把你改的这个程序运行了一下.发现我输入了一个件号之后.如果再运行一次程序,程序不会对序号进行累加.而是还停留在第一次输入的件号中.请再帮忙看一下是什么原因.

还有你写的(if (wcmatch w2 "##")  这个句子我不是很明白.请问"##"的用法是怎么样的?

ZZXXQQ

原程序有逻辑错误：

  (if (= counter nil) (setq counter 1))
  (if (= XuHao nil)
   (setq XuHao (itoa counter))
   (setq counter XuHao XuHao (itoa XuHao)) ;  同时计算两个表达式
  ); if end　一个条件表达式,计算三种表达式
上面程序中当再次运行时，如果XuHao不为空，则将XuHao内容赋给counter，从而使counter已经加一的内容替换成XuHao的字串内容了。

至于(if (wcmatch w2 "##")中的"##"请看CAD的帮助。

aytxq

这才是我想要的效果啊.我的设想是如果我输入"D01A"后重复运行程序,只有没有再输入件号.序号就一直02,03,04...累加上去.而我再输入新的件号如"P01M"后,序号的起始值counter应该回到1.然后累加下去.直到我再输入一个带数值的件号来改变counter的值.

而且我还设想如果输入的件号只是两位的(如:DA),那么就要求输入序号.如果是四位的(如:D15A),则就提取15为序号值,同时把counter设为15.