批量bind图纸(绑定xref)

citykunan

我从前看了龙版主的一些批量处理文件的程序，我想做一个可以批量bind外部引用(xref)的程序，不知怎么改。请那位高手帮忙看看。 ;;一个VLISP的批量处理范例
;;从这个范例可以了解VLISP如何批量处理图档
;;虽然速度慢了点,但非常实用
;;By LUCAS(龙龙仔)
;;批量修改图层颜色
;;
;;虽配合Expresstools__(acetutil.arx)
;;为加速程序执行,程序将设定系统变量ACADLSPASDOC
;;即<只载入 acad.lsp 至 AutoCAD 执行期所开启的第一个图面>
;;当然程序结束后,会还原系统变量ACADLSPASDOC
;;
;;For AutoCad 2000+
;;Usage: (CH_LAY_COLOR (acad_colordlg 7))
;;Usage: (CH_LAY_COLOR 7) (arxload "acetutil.arx" NIL)
(vl-load-com)
(defun CH_LAY_COLOR (COL / HOLDECHO APP DWGNAME
PREFIX_DWG NN QQ HOLDLSP
WW ENT_LAY
)
(setq HOLDECHO (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq PREFIX_DWG
(strcat
(vl-string-right-trim
"\\"
(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))
(vlax-for ENT_LAY (vla-get-layers WW)
(vla-put-color ENT_LAY COL)
)
(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所选目录中未有任何图档!!!")
)
(setvar "acadlspasdoc" HOLDLSP)
(setvar "cmdecho" HOLDECHO)
(princ)
)
(princ) 我知道要把 (vlax-for ENT_LAY (vla-get-layers WW)
(vla-put-color ENT_LAY COL)
) 改掉。 但不知怎么改，试了很久也是不出，望高手指点。 谢谢。

meflying

你想改成什么呢？


这是ACTIVEX对象操作，你熟悉一下ACTIVEX就容易了

citykunan

飞版主我知道这是activex的操作，可是我手边没有这样的书，程序中的一些参数我也看不懂。


我是想有一些图纸用了xref命令去引用其他的图纸，这些被引用的图纸如果改变了路径，引用这些图纸的图，就找不到他们。我们可以用(command "-xref" "b" "*")把这些所有被引用图纸绑定进来，这样就不会被影响了。但这必须打开每一张图进行单独操作。我看了用activex的办法可以实现批量操作，这样就方便很多了。但又不知如何更改，真是难者不会啊。


       

citykunan

我用vb编了一个，可到vb开发区去看看。

龙龙仔

;;BIND XREF BY OBJECTDBX做出来了(.VLX)--只供测试       


;;使用前请copy原图

citykunan

万分感谢。

citykunan

好象不能用，是不是和CAD的版本有关，我用的是2002. Error: ActiveX Server returned the error: unknown name: Path"ActiveX Server
returned the error: unknown name: Path"

龙龙仔

有测试图吗?

citykunan

其中a,b是有xref的。 (你复制到本地后，xref的路径变了，可以在库搜索路径上添加，这样就可以看到xref了）
       

龙龙仔

;;注意:只BIND进看到的东西
;;OBJECTDBX METHOD 缺点:会失去预览图
;;BY 龙龙仔(LUCAS)
->注意:附件已更新