找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 2145|回复: 10

[试用]:新写了”图层匹配“刷子工具,请试用...

[复制链接]

已领礼包: 145个

财富等级: 日进斗金

发表于 2002-10-9 01:13:52 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
;|
  命令:XDTB_LayerMatch
  功能:图层匹配,刷子,把选取的实体图层和目标实体匹配。
|;


  1. [FONT=courier new]

  2. (defun c:XDTB_LayerMatch (/ $XDTB_LayerMatch_change ss sel lyr)
  3.   (defun $XDTB_LayerMatch_change (ss lyr / e)
  4.     (xdrx_setsstodb ss 0)
  5.     (while (setq e (xdrx_getentdata 0))
  6.       (xdrx_modent 8 lyr)
  7.     )
  8.   )
  9.   (prompt "\n请选取要改变的实体<退出>:")
  10.   (if (setq ss (ssget))
  11.     (progn
  12.       (xdrx_begin)
  13.       (if (setq sel (car (xdrx_entsel "\n请选取匹配的目标层的实体<输入>:")))
  14.         (progn
  15.           (setq lyr (xdrx_getentdxf 8))
  16.         )
  17.         (progn
  18.           (if (= "" (setq lyr (getstring "\n请输入匹配的层名:")))
  19.             (progn
  20.               (if (= 1 (xdrx_yesorno "\n是否使用当前层" 1))
  21.                 (progn
  22.                   (setq lyr (getvar "clayer"))
  23.                 )
  24.                 (setq lyr nil)
  25.               )
  26.             )
  27.           )
  28.         )
  29.       )
  30.       (if lyr
  31.         (progn
  32. ;|          ($XDTB_LayerMatch_change ss lyr)|;
  33.           (xdrx_entity_SetLayer ss lyr)
  34.           (prompt (strcat "\n已经将选取的" (itoa (sslength ss))
  35.                           "个实体图层匹配到"" lyr ""层!"
  36.                   )
  37.           )
  38.         )
  39.       )
  40.       (xdrx_end)
  41.     )
  42.   )
  43.   (princ)
  44. )
  45. [/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 145个

财富等级: 日进斗金

 楼主| 发表于 2002-10-9 10:22:34 | 显示全部楼层
最初由 Tangent 发布
[B]这种刷层用CAD的Matchprop就可以,只不过对块内的实体还是无能为力,对块改层除非块内实体都是在0层做的,否则改层没有多大的实用意义。 [/B]


好,将加上子实体的处理。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2002-10-10 19:51:44 | 显示全部楼层
要能将一种填充刷成另一种填充图案,cad的matchprop经常不能正确刷出来,不知道什么原因?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2002-10-10 20:56:58 | 显示全部楼层
是否能写一个把文字内容也能够“刷”成相同内容得“刷子”呢?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 145个

财富等级: 日进斗金

 楼主| 发表于 2002-10-11 01:04:36 | 显示全部楼层
最初由 小菜 发布
[B]要能将一种填充刷成另一种填充图案,cad的matchprop经常不能正确刷出来,不知道什么原因? [/B]


程序写好了,去看看:

http://www.xdcad.net/forum/showthread.php?postid=72831#post72831
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 145个

财富等级: 日进斗金

 楼主| 发表于 2002-10-11 01:08:20 | 显示全部楼层
最初由 caibaobao 发布
[B]是否能写一个把文字内容也能够“刷”成相同内容得“刷子”呢? [/B]


文字内容相同,这种应用多吗?用ACAD自己的刷子就可以了吧?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2002-10-29 21:41:52 | 显示全部楼层
不知道你的源程序怎么个用法儿

说说,谢谢!!:)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 145个

财富等级: 日进斗金

 楼主| 发表于 2002-10-29 21:46:40 | 显示全部楼层
最初由 Zhang830406 发布
[B]不知道你的源程序怎么个用法儿

说说,谢谢!!:) [/B]


你要安装“晓东工具箱”。

在论坛提供的程序都是上版本“工具箱”发布后,根据朋友要求新写的程序。

LISP程序如何用,你用 LISP 做关键字搜索下论坛。论坛讲过很多的。

再有不清楚的地方,发贴到论坛来!

欢迎你常来!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2002-10-30 20:11:12 | 显示全部楼层
能不能讲解一下!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 145个

财富等级: 日进斗金

 楼主| 发表于 2002-10-30 20:47:51 | 显示全部楼层
最初由 wufei1 发布
[B]能不能讲解一下! [/B]


需要讲解什么呢?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-12-26 03:27 , Processed in 0.442424 second(s), 47 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表