KunG-n 发表于 2013-4-1 10:55:35

帮帮忙！

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

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





http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 KunG-n的微博

Gu_xl 发表于 2013-4-1 11:35:03

本帖最后由 Gu_xl 于 2013-4-1 15:42 编辑

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

KunG-n 发表于 2013-4-1 11:58:32

真的很谢谢你~但不会用

simpleye 发表于 2013-4-1 12:03:44

cuyongping 发表于 2013-4-1 12:51:46

KunG-n 发表于 2013-4-1 11:58 static/image/common/back.gif
真的很谢谢你~但不会用

无语了！

KunG-n 发表于 2013-4-1 13:10:32

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

Gu_xl 发表于 2013-4-1 14:58:43

本帖最后由 Gu_xl 于 2013-4-1 15:40 编辑

KunG-n 发表于 2013-4-1 13:10 static/image/common/back.gif
不是不会用，是用了没有想要的效果

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

;;如此类推...

KunG-n 发表于 2013-4-2 09:25:27

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

KunG-n 发表于 2013-4-3 11:14:45

有人可以帮帮忙吗

zml84 发表于 2013-4-3 13:32:51

参考：http://zml84.blog.sohu.com/47331560.html
建议楼主修改帖子标题。
页: [1] 2
查看完整版本: 帮帮忙！