快速插入目录图档下图块

timmy521

太好了。好东西。

zhouwanweihf

请版主帮我编辑一下，固定一个块为插入图块，只需插入一次，这样就不用输入图块名称了。

zhouwanweihf

本人不懂语言,请问此源码在哪呢?谢谢

zhouwanweihf

嗯,天天进来逛一下也就高级会员了,请大哥帮小弟一把,这程序急用,谢谢
需要固定一个块为插入图块，只需插入一次,万分感激!

zhouwanweihf

期待您的举手之劳。万分感谢！

zhouwanweihf

期盼高人回复，万分感谢！

726613

(defun c:kk ()   
    (setvar "cmdecho" 0)
    (command "insert" "C:\\cad\\图库.dwg" "0,0" "1" "" "")
    (entdel(entlast))
     (setq a (getstring "\n输入块名:")
        a (strcat "*" a)
        )
      (WHILE(setq p1 (getpoint "\n插入点:  "))
      (command "insert" a p1 "" ""))
     (princ)
   )

【KAIXIN】你好，运行KK命令后，输入国库中的xJB图块，选取插入点后如下

问题：

1、插入的图块被分解了

2、被插入的图块所属图层也被改掉

请版主帮忙看一下如何解决，谢谢。

【KAIXIN】

726613 发表于 2012-8-29 11:11
(defun c:kk ()   
    (setvar "cmdecho" 0)
    (command "insert" "C:\\cad\\图库.dwg" "0,0" "1" " ...

这个是插入当前层，分解是在程序里面......

726613

【KAIXIN】 发表于 2012-8-29 14:52
这个是插入当前层，分解是在程序里面......

怎样才能不在程序里面被分解呢？请帮忙，谢谢

alexmai

这个很有用，有时候要直接找到块～如标高～