找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

楼主: wzxwzx74

[求助]:文字可选择属性匹配刷!

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

使用道具 举报

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

使用道具 举报

发表于 2004-11-15 14:02:14 | 显示全部楼层
点两次的问题解决了吗?
已经下载,的确很好用,并且是源码,可以整合到我的工具中,谢谢上传的朋友。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

使用道具 举报

发表于 2004-11-15 21:03:23 | 显示全部楼层
我在2004 2005中都试验了 没问题啊 先选源文本 再选目标文本 目标文本可以多次选择 谢谢提供意见 不过还是稍微改了一下[PHP]
;;; ;; 文字刷
(defun c:WZS (/ key ent1 el en n ss th val)
  (initget "N G Q T Y X C")
  (setq key (getkword "\n/ 内容-N / 高度-G / 图层-C / 样式-Y / 倾斜角-Q / 旋转角-X : "))
  (cond
    ((= key "N")
      (setq val 1)
    )
    ((= key "G")
      (setq val 40)
    )
    ((= key "C")
      (setq val 8)
    )
    ((= key "Y")
      (setq val 7)
    )
    ((= key "Q")
      (setq val 51)
    )
    ((= key "X")
      (setq val 50)
    )
    (t
      nil
    )
  )
  (if (setq ent1 (car (entsel "\n先点选源文本:")))
    (progn
      (setq en (entget ent1))
      (= "TEXT" (cdr (assoc 0 en)))
      (setq th (cdr (assoc val en)))
      (princ "\n再选择目标文本:")
      (if (setq ss (ssget '((0 . "TEXT"))))
        (progn
          (setq n 0)
          (while (< n (sslength ss))
            (setq el (entget (ssname ss n)))
            (entmod (subst
                      (cons (car (assoc val el)) th)
                      (assoc val el)
                      el
                    )
            )
            (setq n (1+ n))
          )
        )
      )
    )
  )
  (princ)
)
[/PHP]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

使用道具 举报

发表于 2004-11-15 22:49:32 | 显示全部楼层
增加允许多选和记忆上次定制参数组的功能,第二次选择时默认为上次设定参数组
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-11-16 10:50:38 | 显示全部楼层
最初由 xzg_hello 发布
[B]增加允许多选和记忆上次定制参数组的功能,第二次选择时默认为上次设定参数组 [/B]


可以记忆上次定制参数组了 程序也烦琐了些 用是可以用 谁能帮精简一下 谢谢
[PHP] ;;; ;; 文字刷
(defun c:WZS (/ key ent1 el en n ss th val)
  (if (= key1 nil)
    (progn
      (initget 1 "N G Q T Y X C")
      (setq key (getkword "\n/ 内容-N / 高度-G / 图层-C / 样式-Y / 倾斜角-Q / 旋转角-X : "))
      (cond
        ((= key "N")
          (setq val 1)
        )
        ((= key "G")
          (setq val 40)
        )
        ((= key "C")
          (setq val 8)
        )
        ((= key "Y")
          (setq val 7)
        )
        ((= key "Q")
          (setq val 51)
        )
        ((= key "X")
          (setq val 50)
        )
        (t
          nil
        )
      )
      (setq key1 key)
    )
    (progn
      (initget "N G Q T Y X C")
      (setq key (getkword "\n/ 内容-N / 高度-G / 图层-C / 样式-Y / 倾斜角-Q / 旋转角-X : "))
      (if (= key nil)
        (progn
          (setq key key1)
          (cond
            ((= key "N")
              (setq val 1)
            )
            ((= key "G")
              (setq val 40)
            )
            ((= key "C")
              (setq val 8)
            )
            ((= key "Y")
              (setq val 7)
            )
            ((= key "Q")
              (setq val 51)
            )
            ((= key "X")
              (setq val 50)
            )
            (t
              nil
            )
          )
        )
        (progn
          (setq key1 key)
          (cond
            ((= key "N")
              (setq val 1)
            )
            ((= key "G")
              (setq val 40)
            )
            ((= key "C")
              (setq val 8)
            )
            ((= key "Y")
              (setq val 7)
            )
            ((= key "Q")
              (setq val 51)
            )
            ((= key "X")
              (setq val 50)
            )
            (t
              nil
            )
          )
        )
      )
    )
  )
  (if (setq ent1 (car (entsel "\n先点选源文本:")))
    (progn
      (setq en (entget ent1))
      (= "TEXT" (cdr (assoc 0 en)))
      (setq th (cdr (assoc val en)))
      (princ "\n再选择目标文本:")
      (if (setq ss (ssget '((0 . "TEXT"))))
        (progn
          (setq n 0)
          (while (< n (sslength ss))
            (setq el (entget (ssname ss n)))
            (entmod (subst
                      (cons (car (assoc val el)) th)
                      (assoc val el)
                      el
                    )
            )
            (setq n (1+ n))
          )
        )
      )
    )
  )
  (princ)
)
[/PHP]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

使用道具 举报

发表于 2004-11-16 23:30:25 | 显示全部楼层
还是只能输入一个参数,我希望一次能输入几个参数,匹配其中几项
另外,请增加一个当前默认值的提示
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-11-19 03:35:08 | 显示全部楼层
我的输入wzs 没有反应啊? 是和其他的lsp文件冲突吗?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

使用道具 举报

发表于 2004-11-23 20:47:38 | 显示全部楼层
最初由 madman 发布
[B]

可以记忆上次定制参数组了 程序也烦琐了些 用是可以用 谁能帮精简一下 谢谢
... [/B]

我来试一下

  1.   [FONT=courier new]

  2. ;;; ;; 文字刷
  3. (defun c:WZS (/ key ent1 el en n ss th val)
  4.   (if (not #key#)
  5.     (setq #key# "G")
  6.   )
  7.   (initget "N G Q T Y X C")
  8.   (setq key (getkword (strcat "\n/ 内容-N / 高度-G / 图层-C / 样式-Y / 倾斜角-Q / 旋转角-X <" #key# ">: ")))
  9.   (if (or (not key) (equal key ""))               
  10.     (setq key #key#)                       
  11.     (setq #key# key)                       
  12.   )               
  13.   (cond
  14.     ((= key "N")
  15.       (setq val 1)
  16.     )
  17.     ((= key "G")
  18.       (setq val 40)
  19.     )
  20.     ((= key "C")
  21.       (setq val 8)
  22.     )
  23.     ((= key "Y")
  24.       (setq val 7)
  25.     )
  26.     ((= key "Q")
  27.       (setq val 51)
  28.     )
  29.     ((= key "X")
  30.       (setq val 50)
  31.     )
  32.     (t
  33.       nil
  34.     )
  35.   )
  36.   (if (setq ent1 (car (entsel "\n先点选源文本:")))
  37.     (progn
  38.       (setq en (entget ent1))
  39.       (= "TEXT" (cdr (assoc 0 en)))
  40.       (setq th (cdr (assoc val en)))
  41.       (princ "\n再选择目标文本:")
  42.       (if (setq ss (ssget '((0 . "TEXT"))))
  43.     (progn
  44.       (setq n 0)
  45.       (while (< n (sslength ss))
  46.         (setq el (entget (ssname ss n)))
  47.         (entmod (subst
  48.               (cons (car (assoc val el)) th)
  49.               (assoc val el)
  50.               el
  51.             )
  52.         )
  53.         (setq n (1+ n))
  54.       )
  55.     )
  56.       )
  57.     )
  58.   )
  59.   (princ)
  60. )

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

使用道具 举报

发表于 2004-11-24 13:28:47 | 显示全部楼层
最初由 yjtdkj 发布
[B]
我来试一下
[CODE]
  

;;; ;; 文字刷
(defun c:... [/B]

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

使用道具 举报

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 22:55 , Processed in 0.409984 second(s), 53 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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