请高手来完美这个刷子，谢谢，做好了有答谢，20币吧，应该不只是我一个人要哈哈

tranney · 发表于 2013-6-4 23:03:11

本帖最后由 tranney 于 2013-6-5 00:58 编辑

上论坛，看到某个刷子想法非常好，特贴出来
;;; 　　　    《相同刷》v1.0
;;; 功能：将目标文字内容刷成源文字内容，将目标圆大小刷成源圆
;;;    的大小，将目标块刷成源块一样，将目标线、圆、圆弧、
;;;    多段线等刷成源多段线相同的线宽。源为线、尺寸、填充
;;;    圆弧则目标特性匹配
;;; 使用：命令：xts，选择一个源对象，程序自动判断，再选择集
;;; 作者：langjs    qq:59509100       日期:2011年12月19日

*********************************************************************
可惜这个程序在cad2011的时候总是有问题,刷线的时候不能成功，会停顿在转换复合线的地方
贴图所示不知道怎么回事，很多线刷都会停顿在这里

2楼的设置现在还没用，可能是我加错地方了吧，，我加在
(setq tp (cdr (assoc 0 ent)))
(setvar "PEDITACCEPT" 1)
(if (member tp '("LINE" "ARC"))
(command "pedit" na "Y" "w" uu "x")
)
(if (member tp '("POLYLINE" "LWPOLYLINE"))
(command "pedit" na "w" uu "x")
)
这里了
********************************
我一直在用个线刷，非常好，一直没出过问题，而且支持的线的类型也比较多(线刷.lsp)
还有个一直在用个字刷，也非常好，还支持天正字体(字刷.lsp)

我希望大神能合并这3个程序，使得《相同刷》满足下面
;;; 功能：1选择是各种文字时候，将目标文字内容刷成源文字内容（支持天正文字），将目标圆大小刷成源圆
;;;          2选择是有宽度的线时候，可以刷各种线（线，复合线，弧，圆）不能刷不下去哦
;;;          3选择是无宽度的圆、弧、可以刷半径(意义不大)
;;;          4选择是尺寸、填充时候，直接特性匹配
;;;          5选择是块时候，将目标块刷成源块一样
;;;          6快捷键就sz吧，不要中间搞好多按键哦，最好是这1个按键不用设置
各位大佬尽情的挑战吧。。附带3个lisp,1为相同刷，2为线刷，3为字刷

wowan1314 · 发表于 2013-6-5 00:20:26

就是刷线不成功？

(setvar "PEDITACCEPT" 1)试试

junkegg · 发表于 2013-6-5 00:38:23

天正的文字如何得到属性

tranney · 发表于 2013-6-5 00:48:43

都是源代码，你看看他本来是如何得到的嘛

vlisp2012 · 发表于 2013-6-5 07:35:37

还没试用，先谢过楼主了！

lingduwx · 发表于 2013-6-5 11:33:42

顶一个，一直用相同刷，感觉就是有些地方需要完善，可惜不会LSP，期待高手

wowan1314 · 发表于 2013-6-5 11:56:00

1、用了那个变量就可以把
command "pedit" 后面的"Y"删掉。
2、或者把那个变量设为0

langjs · 发表于 2013-6-5 21:42:05

源码作者在此一游，感谢使用

海盗曹 · 发表于 2013-6-7 19:17:10

好源码啊，支持~

lingduwx · 发表于 2013-6-7 22:59:50

哎
这个帖子一定要顶起啊
期待高手关注

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

[讨论] 请高手来完美这个刷子，谢谢，做好了有答谢，20币吧，应该不只是我一个人要哈哈

本帖子中包含更多资源

点评

相关帖子

评分