[求助]：文字可选择属性匹配刷！

hust_laohu

我先下载了
看看好不好用

bluesky1000

楼主呢？能否解答我们的困惑，为什么要点选二次？

dingding54

点两次的问题解决了吗？
已经下载，的确很好用，并且是源码，可以整合到我的工具中，谢谢上传的朋友。

coolyxw

madman，为什么要点第二次？再修正修正

zhuquanmao

我在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]

smilingapple

谢谢madman 这功能挺实用的 现下了试试：）

xzg_hello

增加允许多选和记忆上次定制参数组的功能，第二次选择时默认为上次设定参数组

zhuquanmao

最初由 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]

ydf7332462

楼上象是不能匹配att呀

xzg_hello

还是只能输入一个参数，我希望一次能输入几个参数，匹配其中几项
另外，请增加一个当前默认值的提示

piaoyu51

我的输入wzs 没有反应啊？ 是和其他的lsp文件冲突吗？

zhouz200

我还不知道怎么用啊，请教。

yjtdkj

最初由 madman 发布
[B]

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

我来试一下

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

<br />   [FONT=courier new]<br /> <br /> ;;; ;; 文字刷 <br /> (defun c:WZS (/ key ent1 el en n ss th val)<br />   (if (not #key#)<br />     (setq #key# "G")<br />   )<br />   (initget "N G Q T Y X C") <br />   (setq key (getkword (strcat "\n/ 内容-N / 高度-G / 图层-C / 样式-Y / 倾斜角-Q / 旋转角-X <" #key# ">: ")))<br />   (if (or (not key) (equal key ""))                <br />     (setq key #key#)                        <br />     (setq #key# key)                        <br />   )                <br />   (cond <br />     ((= key "N") <br />       (setq val 1) <br />     ) <br />     ((= key "G") <br />       (setq val 40) <br />     ) <br />     ((= key "C") <br />       (setq val 8) <br />     ) <br />     ((= key "Y") <br />       (setq val 7) <br />     ) <br />     ((= key "Q") <br />       (setq val 51) <br />     ) <br />     ((= key "X") <br />       (setq val 50) <br />     ) <br />     (t <br />       nil <br />     ) <br />   ) <br />   (if (setq ent1 (car (entsel "\n先点选源文本:"))) <br />     (progn <br />       (setq en (entget ent1)) <br />       (= "TEXT" (cdr (assoc 0 en))) <br />       (setq th (cdr (assoc val en))) <br />       (princ "\n再选择目标文本：") <br />       (if (setq ss (ssget '((0 . "TEXT")))) <br />     (progn <br />       (setq n 0) <br />       (while (< n (sslength ss)) <br />         (setq el (entget (ssname ss n))) <br />         (entmod (subst <br />               (cons (car (assoc val el)) th) <br />               (assoc val el) <br />               el <br />             ) <br />         ) <br />         (setq n (1+ n)) <br />       ) <br />     ) <br />       ) <br />     ) <br />   ) <br />   (princ) <br /> )<br /> <br />   [/FONT]<br />

yjtdkj

最初由 yjtdkj 发布
[B]
我来试一下
[CODE]
  

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

就没有人测试一下吗？支持一下嘛!!

rascle_323

都是高人！！学习了