[求助]怎样用VLSP获得多个图形中所插入块的属性？

lolou

我需要对很多图形文件的图框（块）进行修改，也就是对其属性进行修改，比如填入图纸编号。现在能做到依次打开和关闭各个文件，但是用VLSP怎样在图形打开后找到其中的图框块（块插入而非块定义）？请各位高人不吝指教啊！

zsh8012

用(tblsearch "block" blockname) 找到你要找的块blockname

然后entget就可以修改他了。

 

lolou

谢谢关照。

我的问题是用VLSP打开别的文件，然后对其中的块属性进行修改。在VLSP中文件打开后，当前文档 不是所打开的那个文件啊。

zsh8012

提供一个思路给你,应该是解决你这个问题的好办法

用脚本来实现.

将你要修改的图库放在一个文件夹呢

先用LSP函数取文件夹内所有文件名;;;;用vl-directory-files可实现

然后在AUTOCAD的支持目录下创建一个文auto.scr;;;;文件名可随意的*.SCR类型的文件,然后依次写入该文件如下内容:

"open"  "filename1" ;;;文件名为用vl-directory-files获得的文件名

"editdwg";;;;;自己根据你的需要写的更改图框参数的函数

"qsave"

如:

open y 536.0-374.0.DWG
autotk
qsave
open 536.0-374.5.DWG
autotk
qsave
open 536.0-375.0.DWG
autotk
qsave

然后最后执行(command "script" "auto.scr") 脚本将自动打开你要的文件,然后修改它,在保存.

lolou

你这个思路很好，我已经实现。谢谢

ljt

刚做了2个插入图号的东东,抛个砖头,不过插了2000多张图,累啊,希望大虾能搞个批处理,这里谢了!

1:只适合A3图框,"T"是我事先做好的带属性的块,

(defun c:tg(/ tuh zhh)

(setvar "cmdecho" 0)

(setq tuh (getstring "输入图号"))

(setq zhh (getstring "输入张号"))

(command"insert" "t"  "328.6,1.2" "1"  "1" "0"  tuh  zhh )

(command"zoom" "w" "268,-17" "410,55")

(prin1)

 )

2:都适用,就是还要用手选,郁闷,做"T"块时插入点没选好,故有第6行.

(defun c:tg1(/ jidian tuh zhh)

(setvar "cmdecho" 0)

(setq jidian (getpoint "\n选择图框右下角点:"))

(setq tuh (getstring "\n输入图号:"))

(setq zhh (getstring "输入张号:"))

(setq jid (polar jidian pi 72.45))

(command"insert" "t"  jid  "1"  "1" "0"  tuh  zhh )

(command"zoom" "w" (polar jidian (/ (* pi 8) 9) 120) (polar jidian  (/ (* pi 5) 6) -50))

(prin1)

 )

ljt

4楼的大哥,我的1个文件包含有4或5张图,还需要加图号和图纸张数,怎么搞啊?

例如:

AAA1.DWG 需编为 XXXXX-001-(1)

AAA2.DWG 需编为 XXXXX-001-(2)

AAA3.DWG 需编为 XXXXX-001-(3)

BBB1.DWG 需编为 XXXXX-002-(1)

BBB2.DWG 需编为 XXXXX-002-(2)

BBB3.DWG 需编为 XXXXX-002-(3)