【e派】tkcl(图块处理)——功能全集

xyp1964 · 发表于 2014-8-9 15:37:22

本帖最后由 xyp1964 于 2014-8-12 00:55 编辑

更新：2014-08-12

木个木 · 发表于 2018-10-31 23:49:51

;; 当前功能列表：
'("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(超级图库)"
)

ming1789_55399 · 发表于 2018-5-7 23:39:13

感謝院長分享

木个木 · 发表于 2018-10-31 23:49:01

类似快捷键自己编写 (defun c:tt()(c:tkcl)) 这句画重点

xyp1964 · 发表于 2014-8-9 15:37:59

本帖最后由 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)
)

aihuyujian · 发表于 2014-8-9 16:27:32

支不支持天正对象啊院长

spp_wall · 发表于 2014-8-9 17:18:40

好像需要 xyq的自定义函数吧！

429014673 · 发表于 2014-8-9 19:52:56

大部分可以用

bzhjl · 发表于 2014-8-9 20:07:52

感谢院长！

xyp1964 · 发表于 2014-8-9 20:41:21

块内批量删除

块内批量复制

块内批量移出

杜阳 · 发表于 2014-8-9 21:22:31

顶啊顶出所有的源代码啊

yizhi4669 · 发表于 2014-8-9 22:32:41

确实强悍，院长又出手了。期待很久了。

tianyi1230 · 发表于 2014-8-9 22:43:46

花币下载了，确实可以再不用院长大人的函数库的基础上就可以使用了，但是有一点很遗憾，面板上的功能全是指定了命令，基本是四个字的开头拼音简写，建议能否不指定命令，像贱人工具箱那样，可以自定义命令？这样是不是更人性化呢？毕竟其他插件还有和院长大人的插件里面的命令冲突的!

账号		自动登录	找回密码
密码			注册

[讨论] 【e派】tkcl(图块处理)——功能全集

本帖子中包含更多资源

点评

评分

本帖被以下淘专辑推荐:

点评

点评

点评

本帖子中包含更多资源

点评