怎样建立无名块

龙龙仔

可用dbx預先修改圖塊名,只是圖塊名要用甚麼規則改而已,應不難處理!

thcad

没错！改图块名，按经验，在图块名后随便加几个字符就能解决。只是预先改文件中的图块名用什么函数？谢谢了！龙龙仔。

龙龙仔

3. ;;修改同名塊
4. ;;BY LUCAS
5. ;;注意:修改後圖檔會失去預覽,處理的圖檔非打開中
6. (defun C:CH_BLKS_NAME (/ DBXDOC DWGNAME FNAME HOLDECHO NAME1 NN PREFIX_DWG QQ)
7.   (vl-load-com)
8.   (setq HOLDECHO (getvar "cmdecho"))
9.   (setvar "cmdecho" 0)
10.   (setq PREFIX_DWG
11.   (strcat
12.     (strcase (acet-ui-pickdir
13.         "選擇目錄"
14.         (vl-string-right-trim "\" (getvar "dwgprefix"))
15.         "更改同名塊"
16.       )
17.     )
18.     "\"
19.   )
20.   )
21.   (setq QQ (vl-directory-files PREFIX_DWG "*.DWG"))
22.   (if (/= QQ NIL)
23.     (progn
24.       (setq DBXDOC (vla-getinterfaceobject
25.        (vlax-get-acad-object)
26.        (strcat "ObjectDBX.AxDbDocument."
27.         (substr (getvar "AcadVer") 1 2)
28.        )
29.      )
30.       )
31.       (setq NN 0)
32.       (repeat (length QQ)
33. (setq DWGNAME (strcase (strcat PREFIX_DWG (nth NN QQ))))
34. (vla-open DBXDOC DWGNAME)
35. (vlax-for NAME (vla-get-blocks DBXDOC)
36.    (if (eq (setq NAME1 (strcase (vla-get-name NAME)))
37.     (strcase (vl-filename-base DWGNAME))
38.        )
39.      (progn
40.        (prompt (strcat "\n" DWGNAME "---發現同名塊,已修改完成!"))
41.        (vla-put-name NAME (strcat NAME1 "-new"))
42.        (vla-saveas DBXDOC DWGNAME)
43.      )
44.    )
45. )
46. (setq NN (1+ NN))
47.       )
48.       (vlax-release-object DBXDOC)
49.     )
50.   )
51.   (setvar "cmdecho" HOLDECHO)
52.   (princ)
53. )

;;修改同名塊 ;;BY LUCAS ;;注意:修改後圖檔會失去預覽,處理的圖檔非打開中 (defun C:CH_BLKS_NAME (/ DBXDOC DWGNAME FNAME HOLDECHO NAME1 NN PREFIX_DWG QQ)   (vl-load-com)   (setq HOLDECHO (getvar "cmdecho"))   (setvar "cmdecho" 0)   (setq PREFIX_DWG   (strcat     (strcase (acet-ui-pickdir         "選擇目錄"         (vl-string-right-trim "\" (getvar "dwgprefix"))         "更改同名塊"       )     )     "\"   )   )   (setq QQ (vl-directory-files PREFIX_DWG "*.DWG"))   (if (/= QQ NIL)     (progn       (setq DBXDOC (vla-getinterfaceobject        (vlax-get-acad-object)        (strcat "ObjectDBX.AxDbDocument."         (substr (getvar "AcadVer") 1 2)        )      )       )       (setq NN 0)       (repeat (length QQ) (setq DWGNAME (strcase (strcat PREFIX_DWG (nth NN QQ)))) (vla-open DBXDOC DWGNAME) (vlax-for NAME (vla-get-blocks DBXDOC)    (if (eq (setq NAME1 (strcase (vla-get-name NAME)))     (strcase (vl-filename-base DWGNAME))        )      (progn        (prompt (strcat "\n" DWGNAME "---發現同名塊,已修改完成!"))        (vla-put-name NAME (strcat NAME1 "-new"))        (vla-saveas DBXDOC DWGNAME)      )    ) ) (setq NN (1+ NN))       )       (vlax-release-object DBXDOC)     )   )   (setvar "cmdecho" HOLDECHO)   (princ) )

thcad

龙龙仔就是热心人！谢谢，我慢慢消化。