关于INSERT插入块的问题

XTdwynij

我想要的功能是插入指定DWG文件。这个DWG文件里面的图是只读并且随时更新的。我想要随着不断的更新，插入的图形也随着更新。有没有大佬帮帮忙呢？

start4444

XTdwynij 发表于 2019-11-14 13:01
大佬可以否出手一下。上传的附件第一次用 sz的时候满足需求，但当12.dwg图改变时，再sz依然还是第一次插 ...

把块名改一下就行了，怎么搞那么复杂的代码。

把12.dwg 放d盘根目录：
(defun c:tt5 (/ bn)
        (setq bn "12")
        (if (/= (TBLSEARCH "BLOCK" bn) nil)
            (progn (while (/= (TBLSEARCH "BLOCK" bn) nil)
                                         (setq bn (strcat bn "^")))
                             (command "rename" "b" "12" bn)))
        (command "INSERT" "D:\\12.dwg" '(0 0 0) 1 1 0)
        (princ)
)

XTdwynij

插入块时，块名称还是之前的，所以不能够随着图形更新面更新？解决方法是插入块时解决名称的问题？或者直接就插入图形完事？

satan421

为什么不用参照呢，不了解具体需求，但感觉参照应该能满足需要。

XTdwynij

satan421 发表于 2019-11-14 10:53
为什么不用参照呢，不了解具体需求，但感觉参照应该能满足需要。

嗯，只要能把dwg的图拿出来就可以。不管赚块还是外部参照。我上传的附件就是插入块。但不能满足需求。

XTdwynij

satan421 发表于 2019-11-14 10:53
为什么不用参照呢，不了解具体需求，但感觉参照应该能满足需要。

不行，我想要的需求就是把A图中的图形拿到B图中使用。大小尺寸不变。外部参照好像只能参照使用。

start4444

改块名=>删旧块=>全部基点重新插入新快

XTdwynij

我用cad操作就是，打开a图纸(这a图纸名字不变，内容会随时变)，复制里面所有的图形。放到当前打开的图纸中。附件中的lisp文件只能调用一次，调用第二次因为块名称的原因，即使a图纸改变了，调用的图形不会改变。功能很简单呀。就是调用a图纸的图形，大小不变，到当前打开的图纸。

XTdwynij

start4444 发表于 2019-11-14 12:16
改块名=>删旧块=>全部基点重新插入新快

大佬可以否出手一下。上传的附件第一次用 sz的时候满足需求，但当12.dwg图改变时，再sz依然还是第一次插入的图。不能更新。我想要每次调用sz时，调用的都是12.dwg的图形。不管插入的是块还是别的。

1205这样时代

(defun c:sz()
(vl-load-com)
(setq old (getvar "cmdecho")
       path (strcat (Vlax-Get (Vlax-Get-Acad-Object) 'Path) "\\Support")
       files (vl-directory-files path "*.dwg" 1)
  )
(setvar "cmdecho" 0)
(command "_undo" "be")
(setq wjh "12")
(setq wjm (strcat path "\\" wjh ".dwg"))
(if (member (strcat wjh ".dwg") files)
(progn
   (command "_insert" "*12" '(0 0 0) "" "" "")
   (command "_zoom" "e")
)
(alert (strcat wjm ", 不存在!"))
)
(command "_undo" "e")
(setvar "cmdecho" old)
(princ)
)

插入块自动炸开 就不会因为名称一样就一样的块。