循环指令问题

andr3flaviano · 发表于 2022-7-5 16:22:11

大家好！
我是新来的。所以，请温柔一点。

我在日常生活中遇到了问题。我必须打开同一文件夹中的所有图形，将图形的特定区域与参考进行比较，并在必要时更改该区域。但是我有很多参考文献要比较，所以我需要做很多次。

我已经有一批打开在同一个文件夹中的所有图纸。所以我只是修改了它，将面积与参考值进行比较，效果非常好。唯一的问题是：当我将该批放入循环指令中（以更改将要比较的引用）时，该批不起作用。出现以下错误：

; 错误：错误的参数类型：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）
)
)
)
)
（普林斯）
); 结束打开所有图形的功能

Lee Mac · 发表于 2022-7-5 16:43:05

“streamp nil”错误表示在计算写线时，“openfile”变量为null。

SLW210 · 发表于 2022-7-5 16:58:14

请阅读代码发布指南，并编辑代码以包含在代码标签中。[NOPARSE]

copy

Your Code Here[/NOPARSE]

=

copy

Your Code Here

andr3flaviano · 发表于 2022-7-5 17:12:41

好啊很抱歉

大家好！
我是新来的。所以，请温柔一点。

我在日常生活中遇到了问题。我必须打开同一文件夹中的所有图形，将图形的特定区域与参考进行比较，并在必要时更改该区域。但是我有很多参考文献要比较，所以我需要做很多次。

我已经有一批人打开了所有的图纸。所以我修改了它，将面积与参考值进行比较，效果非常好。唯一的问题是：当我将该批放入循环指令中（以更改将要比较的引用）时，该批不起作用。出现以下错误：

; 错误：错误的参数类型：streamp nil

代码在这里。有人能帮我吗？

[code]（defun c:testloop（/）（setq c 1）（而（

Roy_043 · 发表于 2022-7-5 17:34:09

我没有看到张贴的代码有任何明显的错误。代码在什么时候失败？脚本是否已创建？张贴遗漏的代码可能会有所帮助。

[编程交流] 循环指令问题

发表回复

精选推荐