快速插入目录图档下图块

【KAIXIN】

2. 
   
3. (defun c:KK ()   
   
4.      (setvar "cmdecho" 0) ;指令执行过程不响应
   
5.      (PRINC "\n【开心CAD外挂】---插入图块（目录下)功能")(PRINC)
   
6. (command "insert" "d:\\33.dwg" "0,0" "1" "" "")
   
7. ;(command "insert" "E:\\33.dwg" "0,0" "1" "" "");此行可添加图档所在位置（也可加行）
   
8. (entdel(entlast))
   
9.   (setq a (getstring "\n输入块名:")
   
10.         a (strcat "*" a)
    
11.   )
    
12. (WHILE(setq p1 (getpoint "\n插入点:  "))
    
13. (command "insert" a p1 "" ""))
    
14. (princ)
    
15. )
    

<br /> (defun c:KK ()   <br />      (setvar "cmdecho" 0) ;指令执行过程不响应<br />      (PRINC "\n【开心CAD外挂】---插入图块（目录下)功能")(PRINC) <br /> (command "insert" "d:\\33.dwg" "0,0" "1" "" "")<br /> ;(command "insert" "E:\\33.dwg" "0,0" "1" "" "");此行可添加图档所在位置（也可加行）<br /> (entdel(entlast))<br />   (setq a (getstring "\n输入块名:")<br />         a (strcat "*" a)<br />   )<br /> (WHILE(setq p1 (getpoint "\n插入点:  "))<br /> (command "insert" a p1 "" ""))<br /> (princ)<br /> )<br />

alexmai

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

tensir

感谢作者的分享！

vlisp2012

最近开心，一直在分享啊。灰常灰常感谢。

江湖远人

开心版主，跟定你了

timmy521

好东西啊，谢谢你了。

illcyt

新手，请教版主如何使用？

【KAIXIN】

illcyt 发表于 2012-4-25 19:30
新手，请教版主如何使用？

一言难尽，百度LISP的用法，
如果不知里面的用法欢迎加入我的群......

illcyt

【KAIXIN】 发表于 2012-4-25 19:45
一言难尽，百度LISP的用法，
如果不知里面的用法欢迎加入我的群......

lisp用法是知道，只是复制代码，加载后运行提示

【KAIXIN】

illcyt 发表于 2012-4-26 08:38
lisp用法是知道，只是复制代码，加载后运行提示

设置图块路径，图框名称......

illcyt

【KAIXIN】 发表于 2012-4-26 08:44
设置图块路径，图框名称......

嘿嘿，感谢版主关注，建议能否做个对话框弹出，快速选择插入块
另外，我又一个想法，不知道能不能实现，就是以一个点为准划过一条直线，可以使某个层的直线或者多线与改点对齐，而其他层无影响，再次感谢你

fdb2007

楼主好东西很多啊，可惜我下载了消化不了