请高手对插入块函数进行改进

xiongqunan

我用这个函数
(defun c:XGK()
(command "insert" "侧面线割-快走丝" pause """"))
调出来的图形自动以文件名生成了了下块！！！
有没有方法调出来后不以文件名生成块？

牢固

(command "insert" "*侧面线割-快走丝" pause """"))

xiongqunan

牢固 发表于 2013-9-15 16:47
(command "insert" "*侧面线割-快走丝" pause """"))

这样是可以不生成块了！可是怎么也不行旋转了呢？
以前插入的时候是可以旋转的呀？

牢固

xiongqunan 发表于 2013-9-15 16:57
这样是可以不生成块了！可是怎么也不行旋转了呢？
以前插入的时候是可以旋转的呀？

(command "insert" "*侧面线割-快走丝 " pause pause)

xiongqunan

牢固 发表于 2013-9-15 17:02
(command "insert" "*侧面线割-快走丝 " pause pause)

兄弟这样不行呢！未知命令了！！！

命令: xgk 未知命令“XGK”。按 F1 查看帮助。

zxq0220

这样试一下，不知道行不行。

2. (defun c:tt ()
   
3. (setvar "CMDECHO" 0)
   
4. (command "LINE" "0,0" "10,0" "")
   
5. (command "BLOCK" "blockname" "0,0" "L" "")
   
6. (command "INSERT" "blockname=侧面线割-快走丝.dwg" PAUSE "" "" "")
   
7. (setvar "CMDECHO" 1)
   
8. (princ)
   
9. )

(defun c:tt ()<br /> (setvar "CMDECHO" 0)<br /> (command "LINE" "0,0" "10,0" "")<br /> (command "BLOCK" "blockname" "0,0" "L" "")<br /> (command "INSERT" "blockname=侧面线割-快走丝.dwg" PAUSE "" "" "")<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )

xiongqunan

zxq0220 发表于 2013-9-16 07:49
这样试一下，不知道行不行。

这样子也不行！并且在一个图档里面还只能调出一次。

zxq0220

我试过了，可以实现自定块名。程序中blockname可以改成你需要的名字
如果要一张图只插入一次，加个判断就行。

2. (defun c:tt ()
   
3. (setvar "CMDECHO" 0)
   
4. (if (not (tblsearch "BLOCK" "blockname")) (progn
   
5. (command "LINE" "0,0" "10,0" "")
   
6. (command "BLOCK" "blockname" "0,0" "L" "")
   
7. (command "INSERT" "blockname=侧面线割-快走丝.dwg" PAUSE "" "" "")
   
8. ))
   
9. (setvar "CMDECHO" 1)
   
10. (princ)
    
11. )
    

(defun c:tt ()<br /> (setvar "CMDECHO" 0)<br /> (if (not (tblsearch "BLOCK" "blockname")) (progn<br /> (command "LINE" "0,0" "10,0" "")<br /> (command "BLOCK" "blockname" "0,0" "L" "")<br /> (command "INSERT" "blockname=侧面线割-快走丝.dwg" PAUSE "" "" "")<br /> ))<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )<br />

xiongqunan

zxq0220 发表于 2013-9-16 08:27
我试过了，可以实现自定块名。程序中blockname可以改成你需要的名字
如果要一张图只插入一次，加个判断就 ...

好的！谢谢了,搞好了。