[LISP程序]：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  "")
)

TYEEXDD

经测试确实如此
建议使用entmake函数，可解决此问题！

sjj

似乎变量个数有限制