[编程申请]：插入另一张图中某个块

dhxf · 发表于 2006-6-3 21:27:46

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

图B中有a,b,c 3个图块,想b块插入图A中;
有这样的函数么,类似于INSERT

qjcpj · 发表于 2006-6-4 19:02:38

在lisp中没有类似函数，在VBA中使用ObjectDBX能够解决楼主问题。

lidejun_55 · 发表于 2006-6-5 01:40:55

最初由 qjcpj 发布
[B]在lisp中没有类似函数，在VBA中使用ObjectDBX能够解决楼主问题。 [/B]

lisp也可以用dbx

fsxm · 发表于 2006-6-5 08:30:30

这个问题上次讨论过了的！ eachy老板给了个链：
http://www.mjtd.com/a2/list.asp?id=314
使用VLISP添加未打开图形中的图块到当前图形中！
不过我个人希望还是要打设计中心的所有功能都写出对应的函数来
如：图层，标注样式等等!这样以后就省事不少了!

;; COPYBLOCK.LSP Copyright ?999 Tony Tanzillo
;;
;; AutoCAD 2000 Visual LISP / ObjectDBX 示例
;;
;; [url]http://www.caddzone.com[/url]
;; [email]tony.tanzillo@caddzone.com[/email]
;;
;; 该范例演示了怎样在Visual LISP中使用ObjectDBX将任意
;; 图形文件中的图块定义添加到当前图形中。
;;
;; (CopyBlock <文件名> <图块名>)
;;
;; 该函数可从名称为<文件名>(字符串)的.DWG文件中复制名称为
;; <图块名>(字符串)的图块定义到当前图形的图块表中。
;;
;; CopyBlock返回新复制过来的在当前图形的图块表中的图块对象。
;;
;; Note that this example performs none of the
;; error checking that is required, and does not
;; attempt to determine what actually happened
;; within the deep clone operation.
(vl-load-com)
(setq *acad* (vlax-get-acad-object))
(defun CopyBlock (DwgName BlkName / blocks dbxDoc)
(setq blocks
(vla-get-blocks
(vla-get-ActiveDocument *acad*)
)
)
(setq dbxDoc
(vla-GetInterfaceObject
*acad*
"ObjectDBX.AxDbDocument"
)
)
(vla-open dbxDoc DwgName)
(vla-CopyObjects
dbxDoc
(vlax-safearray-fill
(vlax-make-safearray
vlax-vbObject
'(0 . 0)
)
(list
(vla-item
(vla-get-blocks dbxDoc)
BlkName
)
)
)
blocks
)
(vlax-release-object dbxDoc)
(vla-item blocks BlkName)
)
(princ "\n(CopyBlock <图形文件名> <图块名>)")
(princ)
;;;;;;;;;;;;;;;;; CopyBlock.lsp ;;;;;;;;;;;;;;;;;;;;

;; COPYBLOCK.LSP  Copyright ?999  Tony Tanzillo 
;; 
;; AutoCAD 2000  Visual LISP / ObjectDBX 示例 
;; 
;;   [url]http://www.caddzone.com[/url] 
;;   [email]tony.tanzillo@caddzone.com[/email] 
;; 
;; 该范例演示了怎样在Visual LISP中使用ObjectDBX将任意 
;; 图形文件中的图块定义添加到当前图形中。 
;; 
;; (CopyBlock <文件名> <图块名>) 
;; 
;; 该函数可从名称为<文件名>(字符串)的.DWG文件中复制名称为 
;; <图块名>(字符串)的图块定义到当前图形的图块表中。 
;; 
;; CopyBlock返回新复制过来的在当前图形的图块表中的图块对象。 
;; 
;; Note that this example performs none of the 
;; error checking that is required, and does not 
;; attempt to determine what actually happened 
;; within the deep clone operation. 
 
(vl-load-com) 
 
(setq *acad* (vlax-get-acad-object)) 
 
(defun CopyBlock (DwgName BlkName / blocks dbxDoc) 
 
   (setq blocks 
      (vla-get-blocks 
         (vla-get-ActiveDocument *acad*) 
      ) 
   ) 
    
   (setq dbxDoc 
      (vla-GetInterfaceObject 
         *acad* 
         "ObjectDBX.AxDbDocument" 
      ) 
   ) 
    
   (vla-open dbxDoc DwgName) 
    
   (vla-CopyObjects 
      dbxDoc 
      (vlax-safearray-fill 
         (vlax-make-safearray 
            vlax-vbObject 
           '(0 . 0) 
         ) 
         (list 
            (vla-item 
               (vla-get-blocks dbxDoc) 
               BlkName 
            ) 
         ) 
      ) 
      blocks 
   ) 
    
   (vlax-release-object dbxDoc) 
    
   (vla-item blocks BlkName) 
 
) 
(princ "\n(CopyBlock <图形文件名> <图块名>)") 
(princ) 
;;;;;;;;;;;;;;;;;  CopyBlock.lsp ;;;;;;;;;;;;;;;;;;;;

dhxf · 发表于 2006-6-6 20:08:15

局部调一下:
........
(if (= "15" (substr (getvar "acadver") 1 2))
   (setq
   DBXDOC (vla-getinterfaceobject *acad* "ObjectDBX.AxDbDocument")
   )
(setq
   DBXDOC (vla-getinterfaceobject *acad* "ObjectDBX.AxDbDocument.16")
)
  )
................
额外有个问题,xp系统+cad02
上面函数不好用,发现注册表没有下列项:
hkey_classes_root\\ObjectDBX.AxDbDocument
有关系么?
怎么样才能加上此项?

wl1221 · 发表于 2006-6-6 23:25:16

我用02也不好用

weishi12 · 发表于 2006-6-7 03:46:34

我的AutoCAD是英文版，LISP程序中有中文好像用不了，怎么办。

fsxm · 发表于 2006-6-7 10:39:33

这个问题还是去问版主吧！
本人对vlisp一无所知。哎！

账号		自动登录	找回密码
密码			立即注册

[编程申请]：插入另一张图中某个块

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子