【KAIXIN】 发表于 2012-4-13 18:08:45

快速插入目录图档下图块

本帖最后由 【KAIXIN】 于 2012-4-13 18:14 编辑


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


alexmai 发表于 2012-8-30 13:17:31

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

tensir 发表于 2024-7-9 13:07:39

感谢作者的分享！

vlisp2012 发表于 2012-4-13 19:46:19

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

江湖远人 发表于 2012-4-15 10:41:14

开心版主，跟定你了

timmy521 发表于 2012-4-17 11:06:58

好东西啊，谢谢你了。

illcyt 发表于 2012-4-25 19:30:15

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

【KAIXIN】 发表于 2012-4-25 19:45:27

illcyt 发表于 2012-4-25 19:30 static/image/common/back.gif
新手，请教版主如何使用？

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

illcyt 发表于 2012-4-26 08:38:59

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

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

【KAIXIN】 发表于 2012-4-26 08:44:46

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

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

illcyt 发表于 2012-4-26 11:11:43

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

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

fdb2007 发表于 2012-4-26 11:18:20

楼主好东西很多啊，可惜我下载了消化不了
页: [1] 2 3 4
查看完整版本: 快速插入目录图档下图块