怎样建立无名块
www.dimcax.com
可用dbx預先修改圖塊名,只是圖塊名要用甚麼規則改而已,應不難處理!
要努力学习,不进则退
网络u盘：
没错！改图块名，按经验，在图块名后随便加几个字符就能解决。只是预先改文件中的图块名用什么函数？谢谢了！龙龙仔。
欢迎光临鹰阁
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
;;修改同名塊
;;by lucas
;;注意:修改後圖檔會失去預覽,處理的圖檔非打開中
( c:ch_blks_name ( dbxdoc dwgname fname holdecho name1 nn prefix_dwg echo ( "cmdecho"))
( "cmdecho" 0)
( prefix_dwg
(
( (acet-ui-pickdir
"選擇目錄"
( "\\" ( "dwgprefix"))
"更改同名塊"
)
)
"\\"
)
)
( wg "*.dwg"))
( ( bxdoc (vla-getinterfaceobject
()
( "objectdbx.axdbdocument."
( ( "acadver") 1 2)
)
)
)
( nn 0)
( ( wgname ( ( prefix_dwg ( nn bxdoc dwgname)
( name (vla-get-blocks dbxdoc)
( ( ( name1 ( (vla-get-name name)))
( ( dwgname))
)
(
( ( "\n" dwgname "---發現同名塊,已修改完成!"))
(vla-put-name name ( name1 "-new"))
(vla-saveas dbxdoc dwgname)
)
)
)
( nn ( nn))
)
( dbxdoc)
)
)
( "cmdecho" holdecho)
()
)
要努力学习,不进则退
网络u盘：
龙龙仔就是热心人！我慢慢消化。
欢迎光临鹰阁