【e派】tkcl(图块处理)——功能全集
本帖最后由 xyp1964 于 2014-8-12 00:55 编辑更新：2014-08-12
;; 当前功能列表：
'("zwbj(在位编辑)" "zdck(炸多重块)" "zwmk(炸无名块)" "kgbl(块改比例)" "kmsc(块名删除)"
"xtkm(写图块名)" "dfck(等分插块)" "sjqz(随机群组)" "strq(实体入群)" "stcq(实体出群)"
"blpp(比例匹配)" "tkgm(图块改名)" "swmk(删无名块)" "gcrd(改插入点)" "tkth(图块替换)"
"tkrb(图块入表)" "tqck(提取插块)" "tkll(图块浏览)" "tkcp(图块存盘)" "plck(批量插块)"
"knfz(块内复制)" "knsc(块内删除)" "ep-knps(块内批删)" "kngs(块内改色)" "kngc(块内改层)"
"nbjk(内部建块)" "strk(实体入块)" "stck(实体出块)" "tktj(图块统计)" "czbd(参照绑定)"
"tkjs(图块解锁)" "sjtk(随机图块)" "tkpb(图块排版)" "tkbl(图块比例)" "ydck(原点插块)"
"dqfz(对齐复制)" "djck(等距插块)" "dttk(动态图块)" "skjd(刷块角度)" "tqrk(提取入库)"
"kzrt(库值入图)" "tkcz(图块重载)" "tkwb(图块文本)" "jdck(交点插块)" "sxtk(属性图块)"
"sxgc(属性改层)" "mltk(目录图块)" "tksx(图块属性)" "kxpp(块线匹配)" "tkzb(图块遮蔽)"
"tklx(图块连线)" "knyx(块内隐显)" "ep-ystc(颜色图层)" "ep-sxxg(属性修改)" "ep-xhtk(序号图块)"
"ep-kncl(块内处理)" "ep-sxth(属性替换)" "ep-czbd(参照绑定)" "ep-czhf(参照恢复)" "cjtk(超级图库)"
) 感謝院長分享 类似快捷键自己编写 (defun c:tt()(c:tkcl))这句画重点 本帖最后由 xyp1964 于 2014-8-9 15:39 编辑
;; 同名图块在插入点缩放
;; kgbl块改比例
(defun c:kgbl (/ ed bname ss1 n nth1 new41 s1 pt1)
(cmdla0)
(if (and (setq ed (car (entsel "\n选择改比例之图块: ")))
(xyp-etype s1"INSERT")
)
(progn
(setq bname (xyp-dxf 2 ed)
ss1 (ssget "X" (LIST (cons 2 bname) (CONS 0 "INSERT")))
n -1
NTH1 (sslength ss1)
)
(princ "\n待处理图块: ")
(princ bname)
(princ " ，共 ")
(princ NTH1)
(princ " 个。")
(setq new41 (ureal 1 "" "缩放比例" (xyp-dxf 41 ed))
new41 (/ new41 (xyp-dxf 41 ed) 1.0)
)
(repeat NTH1
(setq s1(ssname ss1 (setq n (+ 1 n)))
pt1 (xyp-dxf 10 s1)
)
(command "scale" s1 "" "non" pt1 new41)
)
)
)
(cmdla0)
) 支不支持天正对象啊院长 好像需要xyq的自定义函数吧！ 大部分可以用 感谢院长！
块内批量删除
块内批量复制
块内批量移出
顶啊 顶出所有的源代码啊 确实强悍，院长又出手了。期待很久了。 花币下载了，确实可以再不用院长大人的函数库的基础上就可以使用了，但是有一点很遗憾，面板上的功能全是指定了命令，基本是四个字的开头拼音简写，建议能否不指定命令，像贱人工具箱那样，可以自定义命令？这样是不是更人性化呢？毕竟其他插件还有和院长大人的插件里面的命令冲突的!