如何修改下面代码实现插入该图形

qfkxc

求助：下面代码为点击合图表图号则打开与该图号同名的DWG文件，如何修改才能实现点击合图表号则指定基点（0,0）插入于图号同名的DWG文件(以块的方式，不分解)?
(defun C:opendwg()
(setq filel (getvar "users1"))
(if (= filel "")
  (progn
  (setq filel (qf_getFolder "选择图幅所在文件夹:"))
  (setvar "users1" filel)
))
(setq filename(strcat filel "\\" (setq name(cdr(assoc 1 (entget(car(entsel "\n选择图幅号:")))))) ".dwg"))
(if (findfile filename)
(progn
  (princ))
(progn
  (setq filel (qf_getFolder "重新指定图幅所在文件夹:"))
  (setvar "users1" filel)
  (setq filename(strcat filel "\\" name ".dwg"))
  ))
(vla-activate (vla-open (vla-get-documents (vlax-get-acad-object)) filename))
)
;;
(defun qf_getFolder (msg / WinShell shFolder path catchit)
  (vl-load-com)
  (setq winshell (vlax-create-object "Shell.Application"))
  (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))
  (setq
    catchit (vl-catch-all-apply
      '(lambda ()
(setq shFolder (vlax-get-property shFolder 'self))
(setq path (vlax-get-property shFolder 'path))
       )
    )
  )
  (if (vl-catch-all-error-p catchit)
    nil
    path
  )
)

xyp1964

2. (defun c:tt (/ name a path)
   
3.   (setq        name (cdr (assoc 1 (entget (car (entsel "\n选择图幅号:")))))
   
4.         name (strcat name ".dwg")
   
5.   )
   
6.   (if (setq a (findfile name))
   
7.     (command "insert" a '(0 0) "" "" "")
   
8.     (progn
   
9.       (setq path (getvar "users1"))
   
10.       (if (= path "")
    
11.         (progn
    
12.           (setq path (getFolder "选择图幅所在文件夹: "))
    
13.           (setvar "users1" path)
    
14.         )
    
15.       )
    
16.       (setq name (strcat path "\" name))
    
17.       (if (setq a (findfile name))
    
18.         (command "insert" a '(0 0) "" "" "")
    
19.       )
    
20.     )
    
21.   )
    
22.   (princ)
    
23. )
    
24. 
    
25. (defun getFolder (msg / WinShell shFolder path catchit path)
    
26.   (vl-load-com)
    
27.   (setq        winshell (vlax-create-object "Shell.Application")
    
28.         shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1)
    
29.         catchit         (vl-catch-all-apply
    
30.                    '(lambda ()
    
31.                       (setq shFolder (vlax-get-property shFolder 'self)
    
32.                             path     (vlax-get-property shFolder 'path)
    
33.                       )
    
34.                     )
    
35.                  )
    
36.   )
    
37.   (if (vl-catch-all-error-p catchit)
    
38.     nil
    
39.     path
    
40.   )
    
41. )

(defun c:tt (/ name a path)<br />   (setq        name (cdr (assoc 1 (entget (car (entsel "\n选择图幅号:")))))<br />         name (strcat name ".dwg")<br />   )<br />   (if (setq a (findfile name))<br />     (command "insert" a '(0 0) "" "" "")<br />     (progn<br />       (setq path (getvar "users1"))<br />       (if (= path "")<br />         (progn<br />           (setq path (getFolder "选择图幅所在文件夹: "))<br />           (setvar "users1" path)<br />         )<br />       )<br />       (setq name (strcat path "\" name))<br />       (if (setq a (findfile name))<br />         (command "insert" a '(0 0) "" "" "")<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> (defun getFolder (msg / WinShell shFolder path catchit path)<br />   (vl-load-com)<br />   (setq        winshell (vlax-create-object "Shell.Application")<br />         shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1)<br />         catchit         (vl-catch-all-apply<br />                    '(lambda ()<br />                       (setq shFolder (vlax-get-property shFolder 'self)<br />                             path     (vlax-get-property shFolder 'path)<br />                       )<br />                     )<br />                  )<br />   )<br />   (if (vl-catch-all-error-p catchit)<br />     nil<br />     path<br />   )<br /> )

qfkxc

多谢xyp1964的帮助，上面的功能程序很好用