vl file delete始终返回

MastroLube · 发表于 2022-7-5 15:21:34

你好！

我编写这个lisp是为了更快地清理FEM的输出。

我不明白为什么我不能删除源dxf。发生了什么？

(defun C:arm (/ laylist)
(_SetCLayer "BORDO")
 ;(command "._layer" "_OFF" "*" "_YES" "")
 (setq laylist (list "ARMAT_INF_DIR_X"
                 "ARMAT_INF_DIR_Y"
                 "ARMAT_SUP_DIR_X"
                 "ARMAT_SUP_DIR_Y"
                 "BORDO"    
                ))
 
(foreach ln laylist
(if (tblsearch "LAYER" ln)
(progn
(command "_.LAYER" "_LOCK" ln "")
(princ (strcat "\nLayer " ln " Blocked"))
)
 )
 )
 (command "_.ERASE" "_ALL" "")
(foreach ln laylist
 (if (tblsearch "LAYER" ln)
(progn
(command "_.LAYER" "_UNLOCK" ln "")
(princ (strcat "\nLayer " ln " Now Visible"))
)
 )
 )
 (command "_.purge" "_all" "" "_no")
 (command "_.erase" (ssget "_A" '((420 . 85))) "")
 (setq filename (strcat (getvar "dwgprefix")(getvar "dwgname")))
 (command "_.save" "" "_Y")
 (vl-file-delete filename)
 (command "_.close" "")
 )

我可以提个建议吗？我在图形中使用dwg作为外部参照。我将其导入4次，并更改图层可视化。。有一种方法可以用这些层生成4个dwg：BORDO+ARMAT\u INF\u DIR\u X，BORDO+ARMAT\u INF\u DIR\u Y，BORDO+ARMAT\u SUP\u DIR\u X，BORDO+ARMAT\u SUP\u DIR\u Y？

谢谢你的帮助，

丹尼斯

rlx · 发表于 2022-7-5 15:28:50

不能删除正在使用的文件（如活动图形）

MastroLube · 发表于 2022-7-5 15:33:51

嗨，rxl，在代码中，我将文件保存为。这是当前的，不是我要删除的。

看代码：我在保存之前得到文件名，我在保存之后尝试删除它。

rlx · 发表于 2022-7-5 15:38:54

好吧，使用Grrr的代码，假设它是要删除的dxf：

copy

 (setq filename (apply '(lambda (a b c) (strcat a b ".dxf")) (fnsplitl (apply 'strcat (mapcar 'getvar '(dwgprefix dwgname))))))

否则，您必须先关闭图形，然后才能删除它。

p、您可能希望使用saveas而不是save。。。

gr.Rlx

MastroLube · 发表于 2022-7-5 15:42:50

有了这段代码，我得到了与我相同的，无论如何，vl文件删除不会删除dxf。也许这与权限有关？

rlx · 发表于 2022-7-5 15:48:14

你先尝试saveas了吗？

MastroLube · 发表于 2022-7-5 15:51:40

你好
是的，我试过：

copy

  (setq filename (strcat (getvar "dwgprefix") "arm"))
 ;(command "_.save" "" "_Y")
 (vla-SaveAs (vla-get-ActiveDocument(vlax-get-acad-object)) filename ac2004_dwg)
 (command "_.close" "")
 (vl-file-delete (strcat filename ".dxf"))

不幸的是，在_u之后看起来是这样的。关闭lisp停止工作：S

编辑：我真的不知道。。事件放入（vl file delete..或命令_.del I无法删除此文件。。
随着saveas的dxf不再是当前的，所以我不知道该怎么办。。

rlx · 发表于 2022-7-5 15:54:20

只要松开关闭。。。打开dxf时，它将变为活动状态。仅使用“保存”时，可以生成dwg，但仍在dxf中。将dxf另存为dwg时，dwg将变为活动状态，您可以删除dxf。

rlx · 发表于 2022-7-5 16:02:03

类似这样：

copy


(defun c:dxf2dwg ( / dwg old-exp)
 (vl-load-com)
 ; no nagging when dwg allready exists , don't use if you don't want to overwrite existing dwg's
 (setq old-exp (getvar "EXPERT"))(setvar "EXPERT" 2)
 (setq dwg (strcat (getvar "dwgprefix")(vl-filename-base (getvar "dwgname"))))
 ;(vla-SaveAs (vla-get-ActiveDocument (vlax-get-acad-object)) dwg ac2004_dwg); doesn't seem to release dxf
 (command ".saveas" "" dwg) ; looks like this works better
 (gc) ; garbage collection, a little flushing after save / write never hurt anybody
 (vl-file-delete (strcat dwg ".dxf"))
 (setvar "EXPERT" old-exp)
 (princ)
)

Jef! · 发表于 2022-7-5 16:07:00

我同意。不仅如此，lisp执行是特定图形的局部执行。关闭图形时，即使lisp中的最后一个命令是命令/commands/vlcmf close/vla quit/exit，lisp也会挂起。。我以前使用一个非常简单的lisp，当打开一个图形时，它以只读方式第二次打开它，然后关闭第一次。使用31次后，会话中无法再打开图形，此时会出现一个弹出窗口，显示“每个会话最多可以打开32个图形”。被一些人称为bug，可能是因为我似乎能够qnew超过32个dwg，但这就像使用close/quit/exit在堆栈中的某个地方留下一些东西（比如可能局部变量没有超出范围）。。

我的猜测是，每当你快速操作文件时（如另存为并删除以前的文件，或立即关闭并删除文件），根据操作和其他各种事情，cad可能/将在windows释放文件句柄之前尝试删除文件，导致操作失败。尝试在调用删除文件之前添加延迟。

[编程交流] vl file delete始终返回

发表回复

精选推荐