中文变量名赋值冲突

xyp1964

zgs378530220 发表于 2025-7-20 18:05
dcl有几十个控件，lable肯定要使用中文，key会加英文前缀，然后在过程中同样使用中文变量，主要是方便理解 ...

可以试试前面加个序号

1. (foreach x '("1背部竖杆" "2走道前杆" "3走道连杆" "4走道后杆" "5顶部前杆" "6顶部连杆" "7顶部后杆" "8底部前杆" "9底部连杆" "10底部后杆")
   
2.   (princ "\n")
   
3.   (princ (read x))
   
4. )
   
5. (foreach x '("1走道斜杆" "2走道踏杆" "3第二背条")
   
6.   (princ "\n")
   
7.   (princ (read x))
   
8. )

(foreach x '("1背部竖杆" "2走道前杆" "3走道连杆" "4走道后杆" "5顶部前杆" "6顶部连杆" "7顶部后杆" "8底部前杆" "9底部连杆" "10底部后杆")<br />   (princ "\n")<br />   (princ (read x))<br /> )<br /> (foreach x '("1走道斜杆" "2走道踏杆" "3第二背条")<br />   (princ "\n")<br />   (princ (read x))<br /> )