lisp程序调用mtext命令运行时经常丢失部分文字,怎么回事呀？

xhbcdut

lisp程序调用mtext命令运行时经常丢失部分文字，不知道是怎么回事
以下为一个简单的测试实例，总共40行数据，实际写入cad后只有32行。大家帮忙看看，谢谢！

(defun c:txt()
( setq str1 "1工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str2 "2工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str3 "3工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str4 "4工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str5 "5工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str6 "6工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str7 "7工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str8 "8工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str9 "9工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str10 "10工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str11 "11工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str12 "12工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str13 "13工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str14 "14工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str15 "15工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str16 "16工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str17 "17工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str18 "18工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str19 "19工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str20 "20工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str21 "21工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str22 "22工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str23 "23工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str24 "24工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str25 "25工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str26 "26工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str27 "27工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str28 "28工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str29 "29工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str30 "30工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str31 "31工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str32 "32工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str33 "33工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str34 "34工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str35 "35工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str36 "36工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str37 "37工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str38 "38工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str39 "39工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查" )
( setq str40 "40工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查end" )

(setq all (strcat
"  "  str1  "\n"
"  "  str2  "\n"
"  "  str3  "\n"
"  "  str4  "\n"
"  "  str5  "\n"
"  "  str6  "\n"
"  "  str7  "\n"
"  "  str8  "\n"
"  "  str9  "\n"
"  "  str10  "\n"
"  "  str11  "\n"
"  "  str12  "\n"
"  "  str13  "\n"
"  "  str14  "\n"
"  "  str15  "\n"
"  "  str16  "\n"
"  "  str17  "\n"
"  "  str18  "\n"
"  "  str19  "\n"
"  "  str20  "\n"
"  "  str21  "\n"
"  "  str22  "\n"
"  "  str23  "\n"
"  "  str24  "\n"
"  "  str25  "\n"
"  "  str26  "\n"
"  "  str27  "\n"
"  "  str28  "\n"
"  "  str29  "\n"
"  "  str30  "\n"
"  "  str31  "\n"
"  "  str32  "\n"
"  "  str33  "\n"
"  "  str34  "\n"
"  "  str35  "\n"
"  "  str36  "\n"
"  "  str37  "\n"
"  "  str38  "\n"
"  "  str39  "\n"
"  "  str40  "\n"
))

(princ all)
(command "mtext" "0,0" "j" "TL" "h" "0.5" "w" "5"  all  "")
)

ZZXXQQ

估计是MTEXT命令不能一下接受这么多字符。这样试试:

3. (defun c:txt()
4. (setq str1 "1工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
5. (setq str2 "2工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
6. (setq str3 "3工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
7. (setq str4 "4工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
8. (setq str5 "5工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
9. (setq str6 "6工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
10. (setq str7 "7工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
11. (setq str8 "8工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
12. (setq str9 "9工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
13. (setq str10 "10工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
14. (setq str11 "11工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
15. (setq str12 "12工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
16. (setq str13 "13工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
17. (setq str14 "14工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
18. (setq str15 "15工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
19. (setq str16 "16工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
20. (setq str17 "17工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
21. (setq str18 "18工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
22. (setq str19 "19工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
23. (setq str20 "20工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
24. (setq str21 "21工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
25. (setq str22 "22工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
26. (setq str23 "23工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
27. (setq str24 "24工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
28. (setq str25 "25工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
29. (setq str26 "26工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
30. (setq str27 "27工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
31. (setq str28 "28工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
32. (setq str29 "29工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
33. (setq str30 "30工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
34. (setq str31 "31工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
35. (setq str32 "32工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
36. (setq str33 "33工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
37. (setq str34 "34工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
38. (setq str35 "35工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
39. (setq str36 "36工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
40. (setq str37 "37工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
41. (setq str38 "38工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
42. (setq str39 "39工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查")
43. (setq str40 "40工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查end")
44. (setq i 1)
45. (repeat 40
46. (princ (eval(read(strcat "str" (itoa i)))))
47. (princ "\n")
48. (setq i (1+ i))
49. )
50. (setq i 1)
51. (command "mtext" "0,0" "j" "TL" "h" "0.5" "w" "5")
52. (repeat 40
53.   (command (strcat " " (eval(read(strcat "str" (itoa i))))))
54.   (setq i (1+ i))
55. )
56. (command "")
57. )

(defun c:txt() (setq str1 "1工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str2 "2工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str3 "3工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str4 "4工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str5 "5工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str6 "6工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str7 "7工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str8 "8工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str9 "9工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str10 "10工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str11 "11工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str12 "12工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str13 "13工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str14 "14工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str15 "15工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str16 "16工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str17 "17工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str18 "18工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str19 "19工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str20 "20工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str21 "21工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str22 "22工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str23 "23工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str24 "24工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str25 "25工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str26 "26工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str27 "27工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str28 "28工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str29 "29工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str30 "30工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str31 "31工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str32 "32工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str33 "33工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str34 "34工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str35 "35工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str36 "36工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str37 "37工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str38 "38工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str39 "39工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查") (setq str40 "40工程负责人按规范及方案要求认真负责地进行各项工作的完善和检查end") (setq i 1) (repeat 40 (princ (eval(read(strcat "str" (itoa i))))) (princ "\n") (setq i (1+ i)) ) (setq i 1) (command "mtext" "0,0" "j" "TL" "h" "0.5" "w" "5") (repeat 40   (command (strcat " " (eval(read(strcat "str" (itoa i))))))   (setq i (1+ i)) ) (command "") )

jxlsp

可能是这个原因.

xhbcdut

谢谢，版主分析的对