循环指令问题
大家好！我是新来的。所以，请温柔一点。
我在日常生活中遇到了问题。我必须打开同一文件夹中的所有图形，将图形的特定区域与参考进行比较，并在必要时更改该区域。但是我有很多参考文献要比较，所以我需要做很多次。
我已经有一批打开在同一个文件夹中的所有图纸。所以我只是修改了它，将面积与参考值进行比较，效果非常好。唯一的问题是：当我将该批放入循环指令中（以更改将要比较的引用）时，该批不起作用。出现以下错误：
; 错误：错误的参数类型：streamp nil
代码在这里。有人能帮我吗？
（defun c:testloop（/）
（setq c 1）
（虽然(
（c：开放式图纸）
（setq c（1+c））
); 结束时
); 测试回路的结束函数
（默认c:opendrawings（/dwglist dwgname dwgpre file openfile uhoh len）
（vl load com）
（if（and（setq dwgpre（getvar'dwgprefix））
（setq dwglist（vl sort（vl remove）（strcat dwgpre（getvar’dwgname））
（mapcar’（lambda（dwgname）（strcat dwgpre dwgname））
（vl目录文件dwgpre“*.dwg”）
)
)
'
)
)
（setq uhoh）
“将不处理只读图形！”
)
（setq len（斯特伦uhoh））
)
（progn（setq openfile（open（setq file（strcat dwgpre“myscript.scr”）））“w”））
（程序（foreach f dwglist
（如果（和
（非（Is_只读f））
（/=（checkAttFile f）1）
)
（程序
（写入行（strcat“u0.open”f“openfile）
（写入行“_u.audit _y”openfile）
;
（写入行“_.qsave _.close”openfile）
)
（setq uhoh（strcat uhoh“\n”f））
)
)
（关闭openfile）
（命令“_.script”文件）
（如果（=（strlen uhoh）len）
（普林斯“所有图纸均已成功处理…”
（警报uhoh）
)
)
)
)
（普林斯）
); 结束打开所有图形的功能 “streamp nil”错误表示在计算写线时，“openfile”变量为null。 请阅读代码发布指南，并编辑代码以包含在代码标签中。
Your Code Here=
Your Code Here 好啊很抱歉
大家好！
我是新来的。所以，请温柔一点。
我在日常生活中遇到了问题。我必须打开同一文件夹中的所有图形，将图形的特定区域与参考进行比较，并在必要时更改该区域。但是我有很多参考文献要比较，所以我需要做很多次。
我已经有一批人打开了所有的图纸。所以我修改了它，将面积与参考值进行比较，效果非常好。唯一的问题是：当我将该批放入循环指令中（以更改将要比较的引用）时，该批不起作用。出现以下错误：
; 错误：错误的参数类型：streamp nil
代码在这里。有人能帮我吗？
（defun c:testloop（/）（setq c 1）（而（ 我没有看到张贴的代码有任何明显的错误。代码在什么时候失败？脚本是否已创建？张贴遗漏的代码可能会有所帮助。
页:
[1]