[求助]请龙龙仔帮忙你的程式为何得不到想要的结果？

jdhszh

我改了龙龙仔的“一个VLISP的批量处理范例”可得不到想要的结果,我想要的结果是每个图形符合条件的文本，可得到的却是

"Drawing1.dwg" "Drawing1"
"Drawing1.dwg" "Drawing1"
"Drawing1.dwg" "Drawing1"
"Drawing1.dwg" "Drawing1"
"Drawing1.dwg" "Drawing1"
"Drawing1.dwg" "Drawing1"
"Drawing1.dwg" "Drawing1"
"Drawing1.dwg" "Drawing1"
"Drawing1.dwg" "Drawing1"
"Drawing1.dwg" "Drawing1"
"Drawing1.dwg" "Drawing1"
"Drawing1.dwg" "Drawing1"
"Drawing1.dwg" "Drawing1"

请高手告诉我为什么？

jdhszh

原来的程序是这样的

;;一个VLISP的批量处理范例
;;从这个范例可以了解VLISP批量处理图档
;;虽然速度慢了点,但非常实用
;;By LUCAS(龙龙仔)
;;从文件移除未使用之具名参考                                
;;                                                          
;;虽配合Expresstools__(acetutil.arx)                        
;;为加度程序执行,程序将设定系统变量ACADLSPASDOC             
;;即<只载入 acad.lsp 至 AutoCAD 执行期所开启的第一个图面>   
;;当然程序结束后,会还原系统变量ACADLSPASDOC
;;                
;;Usage: (PURGEALL <循环次数>)                                                           
;;command: (PURGEALL 5)                                       

(arxload "acetutil.arx" NIL)
(vl-load-com)
(defun PURGEALL (times/ HOLDECHO APP DWGNAME PREFIX_DWG NN QQ HOLDLSP
   WW)
  (setq HOLDECHO (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq PREFIX_DWG
  (strcat
    (strcase (acet-ui-pickdir
;; "选择目录"
;;(vl-string-right-trim "\\" (getvar "dwgprefix"))
;;"移除未使用之具名参考"
      )
    )
    "\\"
  )
  )
  (setq HOLDLSP (getvar "ACADLSPASDOC"))
  (setvar "acadlspasdoc" 0)
  (setq QQ (vl-directory-files PREFIX_DWG "*.DWG"))
  (setq NN 0)
  (if (/= QQ NIL)
    (progn
      (setq APP (vlax-get-acad-object))
      (repeat (length QQ)
(setq DWGNAME (strcase (strcat PREFIX_DWG (nth NN QQ))))
(setq WW (vla-open (vla-get-documents APP) DWGNAME))
(repeat times (vla-PURGEALL ww))
(vla-save WW)
(prompt (strcat "\n" DWGNAME " !!!"))
(vla-close WW :vlax-false)
(setq NN (1+ NN))
      )
      (vlax-release-object WW)
      (vlax-release-object APP)
    )
    (prompt "\n所选目录中未有任何图档!!!")
  ))
我仅仅把(repeat times (vla-PURGEALL WW))改为了我的子程序(TM)

怎么就不行了呢?

jdhszh

很想弄明白什么原因，自顶下。

alin

当然要看看你的子程序(TM)里的内容

jdhszh

(tm)一楼有的，有烦版主帮忙，我用脚本完全可以的，我想龙龙仔更好，想试一下可是结果不对不能用，分析应该没什么问题，就是打开一幅处理一幅，可完全不是程序对对打开的图形不起作用，只对刚开始的起作用，迷惑？？？

无痕

你的tm写入的是 (setq name(getvar "dwgname"))

没错啊

jdhszh

应该没错,可就是行不通,我想是随后打开的图形不能作为当前激活文档,我对(setq WW (vla-open
   (vla-get-documents APP) DWGNAME)) 不太懂,请指教!

jdhszh

唉，还是老问题，lsp只能用于单文档界面，我想这个问题无法用lsp解决！

xxsheng

(defun tm()
 (setq name(getvar "dwgname"))
这里的问题,你现在对的是当前激活的图形文档而不是刚打开的文档,简单的就是
改为(setq name(vlax-get ww "name"))
其实可以这么理解,现在ww就是对应一个不是活动文档的根对象而已,要得到什么,都要通过ww来获得.我没有acet-ui-pickdir,大概理解应该是这样,,,,