帮帮忙！

KunG-n

各位大神帮帮，我想将已经编好的文字样式例如
1v1
1v2
1v3
1v4
.
.
.
等等
然后编一个lisp，
通过lisp来实现，

在cad里面选定文字后，
输入‘1’空格，然后就能把所选择的文字，指定到"1v1"的文字样式里！
输入‘2’空格，然后就能把所选择的文字，指定到"1v2"的文字样式里！
输入‘3’空格，然后就能把所选择的文字，指定到"1v3"的文字样式里！
输入‘4’空格，然后就能把所选择的文字，指定到"1v4"的文字样式里！
.
.
.
如此类推实现快速改文字样式！
但这个lisp编来编去都编不出
想请大神们帮帮忙！
谢谢！





该贴已经同步到 KunG-n的微博

Gu_xl

欢迎来到明经论坛！

1. (defun c:tt (/ i n ss st stl h sc)
   
2.   (initget 7)
   
3.   (setq i (getint "\n输入字体类型:"))
   
4.   (if
   
5.     (setq stl (TBLSEARCH "style" (setq st (strcat "1v" (itoa i)))))
   
6.     (progn
   
7.       (setq h (cdr (assoc 40 stl))
   
8.             sc (cdr (assoc 41 stl))
   
9.             )
   
10.       (if (equal h 0 1e-6) (setq h nil))
    
11.      (while (setq ss (ssget '((0 . "*text"))))
    
12.        (repeat (setq n (sslength ss))
    
13.          (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))
    
14.          (vla-put-stylename obj st)
    
15.          (if h (vla-put-height obj h))
    
16.         (vla-put-ScaleFactor obj sc)
    
17.          )
    
18.        )
    
19.      )
    
20.      (alert (strcat st " 字体不存在"))
    
21.      )
    
22.   )
    

(defun c:tt (/ i n ss st stl h sc)<br />   (initget 7)<br />   (setq i (getint "\n输入字体类型:"))<br />   (if<br />     (setq stl (TBLSEARCH "style" (setq st (strcat "1v" (itoa i)))))<br />     (progn<br />       (setq h (cdr (assoc 40 stl))<br />             sc (cdr (assoc 41 stl))<br />             )<br />       (if (equal h 0 1e-6) (setq h nil))<br />      (while (setq ss (ssget '((0 . "*text"))))<br />        (repeat (setq n (sslength ss))<br />          (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))<br />          (vla-put-stylename obj st)<br />          (if h (vla-put-height obj h))<br />         (vla-put-ScaleFactor obj sc)<br />          )<br />        )<br />      )<br />      (alert (strcat st " 字体不存在"))<br />      )<br />   )<br />

KunG-n

真的很谢谢你~但不会用

simpleye

cuyongping

KunG-n 发表于 2013-4-1 11:58
真的很谢谢你~但不会用

无语了！

KunG-n

不是不会用，是用了没有想要的效果

Gu_xl

KunG-n 发表于 2013-4-1 13:10
不是不会用，是用了没有想要的效果

1. (defun c:`1 (/ n ss stl h sc)
   
2.   (if (setq stl (TBLSEARCH "style" "1v1"))
   
3.     (progn
   
4.       (setq h (cdr (assoc 40 stl))
   
5.             sc (cdr (assoc 41 stl))
   
6.             )
   
7.       (if (equal h 0 1e-6) (setq h nil))
   
8.     (while (setq ss (ssget '((0 . "*text"))))
   
9.       (repeat (setq n (sslength ss))
   
10.         (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))
    
11.         (vla-put-stylename obj "1v1")
    
12.         (if h (vla-put-height obj h))
    
13.         (vla-put-ScaleFactor obj sc)
    
14.         )
    
15.       )
    
16.     )
    
17.     (alert " 1v1字体不存在")
    
18.     )
    
19.   (princ)
    
20.   )
    
21. 
    
22. ;;如此类推...
    

(defun c:`1 (/ n ss stl h sc)<br />   (if (setq stl (TBLSEARCH "style" "1v1"))<br />     (progn<br />       (setq h (cdr (assoc 40 stl))<br />             sc (cdr (assoc 41 stl))<br />             )<br />       (if (equal h 0 1e-6) (setq h nil))<br />     (while (setq ss (ssget '((0 . "*text"))))<br />       (repeat (setq n (sslength ss))<br />         (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))<br />         (vla-put-stylename obj "1v1")<br />         (if h (vla-put-height obj h))<br />         (vla-put-ScaleFactor obj sc)<br />         )<br />       )<br />     )<br />     (alert " 1v1字体不存在")<br />     )<br />   (princ)<br />   )<br /> <br /> ;;如此类推...<br />

KunG-n

楼上的版主已经帮了很大的忙了谢谢他，
但不能多项文字一起修改，只能修改一项文字，
那位大神，可以帮忙修改一下，能让选框内的多项文字，一起更改！
万分感谢！~~

KunG-n

有人可以帮帮忙吗

zml84

参考：http://zml84.blog.sohu.com/47331560.html
建议楼主修改帖子标题。