用户设置出错

trefan123 · 发表于 2022-7-5 15:59:18

很好的一天，
请你帮我发第一个帖子。。。。在这个领域不太好。。
当打开用户输入（userr*）而不是默认返回到输入屏幕时，我得到了参数错误。
我想要的是，一旦用户输入被更改，它就会修改userr*并返回到默认列表。。只有出口（5）将清除
Lisp程序
（定义C:isovars（）
（if（=（getvar“USERR1”）0）（setvar“USERR1”1））
（if（=（getvar“USERR2”）0）（setvar“USERR2”2））
（if（=（getvar“USERR3”）0）（setvar“USERR3”3））
（ERPI）
（ERPI）
（文本SCR）
（普林斯）
（提示“此绘图任务的系统变量”）
（提示“\n----------------------------------------------------”）
（ERPI）
（ERPI）
;
（提示“\n1.阀门、弯头和减速器比例因数”）
（ERPI）
（setq v1（getvar“userr1”））
（提示（strcat）（即1的比例因子=20mm配合尺寸焊缝到焊缝（阀门））“”：“”）
（ERPI）
;
（提示“\n2.仪器/符号大小”）
（ERPI）
（setq v2（getvar“userr2”））
（提示（strcat）（即1的比例因子=15mm符号大小）“：”）
（ERPI）
;
（setq v3（getvar“userr3”））
（提示（strcat“\n3.圆半径（气泡）”：“”）
（ERPI）
;
（ERPI）
（setq v4（getvar“textsize”））
（提示（strcat“4.TEXT SIZE”“：”）
（ERPI）
;
（ERPI）
（提示“5.退出-返回图纸”）
（ERPI）
（ERPI）
;
（initget“1 2 3 4 5”）
（setq sel（getkword“\n输入选择：”）
（如果（=选择“1”）（程序
（initget+1 2 4）
（setq valvar（getreal“\n输入新阀门、弯头和减速器比例系数：”）
（setvar“userr1”valvar）
（普林斯）
（isovars）
))
（如果（=选择“2”）（程序
（initget（+1 2 4））
（setq nozvar（getreal“\n输入新仪器/符号比例因子：”）
（setvar“userr2”nozvar）
（普林斯）
（isovars）
))
（如果（=选择“3”）（程序
（initget（+1 2 4））
（setq circlevar（getreal“\n输入新的圆半径：”））
（setvar“userr3”circlevar）
（普林斯）
（isovars）
))
（如果（=选择“4”）（程序
（initget（+1 2 4））
（setq textvar（getreal“\n输入新文本大小：”））
（setvar“textsize”textvar）
（普林斯）
（isovars）
))
（如果（=选择“5”）（程序
（图表）
（命令无）
))
)

谢谢

trefan123 · 发表于 2022-7-5 17:01:39

（isovars）替换为（c：isovars）仍然错误

[编程交流] 用户设置出错

发表回复

精选推荐