类似于ET的文字分解代码

lucas3 · 发表于 2014-4-19 18:34:04

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

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

×

本帖最后由 lucas3 于 2014-4-19 20:15 编辑

类似于ET工具种的txtexp，文字分解后可以拉伸成3D字

(Defun C:XT (/ lvl lul lvp lvs lss ViewPL) (SetQ lvs (GetVar "viewsize")
lss (GetVar "screensize")
)
(SetVar "cmdecho" 0)
(Defun ViewPL (/ vi vw vh vc)
(setq vi (* lvs (/ (Car lss) (Cadr lss)))
vc (GetVar "viewctr")
vw (list (- (car vc) (* 0.5 vi)) (- (cadr vc) (* 0.5 lvs)))
vh (list (+ (car vc) (* 0.5 vi)) (+ (cadr vc) (* 0.5 lvs)))
)
(List vw vh)
)
(PrinC "\n要分解的文字行: ")
(SetQ ltl (SSGet)
lvl (ViewPL)
lul (List (Caar lvl) (Cadadr lvl))
lvp (GetVar "viewctr")
)
(Command "wmfout" "textb" ltl "" "erase" ltl "" "wmfin" "textb" lul "2" ""
"" "explode" (EntLast) "erase" (ssget "p") "R" "W"
(polar (car lvl) (* 0.25 Pi) (Max
(Abs (/ lvs (Cadr lss)))
(Abs (/ (* lvs (/ (Car lss)
(Cadr lss)
)
) (Car lss)
)
)
)
) (cadr lvl) ""
)
(SetVar "cmdecho" 1)
(PrinC)
)

(Defun C:XT (/ lvl lul lvp lvs lss ViewPL)  (SetQ lvs (GetVar "viewsize") 
        lss (GetVar "screensize") 
  ) 
  (SetVar "cmdecho" 0) 
  (Defun ViewPL (/ vi vw vh vc) 
    (setq vi (* lvs (/ (Car lss) (Cadr lss))) 
          vc (GetVar "viewctr") 
          vw (list (- (car vc) (* 0.5 vi)) (- (cadr vc) (* 0.5 lvs))) 
          vh (list (+ (car vc) (* 0.5 vi)) (+ (cadr vc) (* 0.5 lvs))) 
    ) 
    (List vw vh) 
  ) 
  (PrinC "\n要分解的文字行: ") 
  (SetQ ltl (SSGet) 
        lvl (ViewPL) 
        lul (List (Caar lvl) (Cadadr lvl)) 
        lvp (GetVar "viewctr") 
  ) 
  (Command "wmfout" "textb" ltl "" "erase" ltl "" "wmfin" "textb" lul "2" "" 
           "" "explode" (EntLast) "erase" (ssget "p") "R" "W" 
           (polar (car lvl) (* 0.25 Pi) (Max 
                                          (Abs (/ lvs (Cadr lss))) 
                                          (Abs (/ (* lvs (/ (Car lss) 
                                                            (Cadr lss) 
                                                         ) 
                                                  ) (Car lss) 
                                               ) 
                                          ) 
                                        ) 
           ) (cadr lvl) "" 
  ) 
  (SetVar "cmdecho" 1) 
  (PrinC) 
)

XDSoft · 发表于 2014-4-19 18:39:22

做个演示动画图片更好了。

/db_自贡黄明儒_ · 发表于 2014-4-19 19:52:32

楼主很棒，我有点建议{:soso_e106:}。
1 如果文字有一半在屏幕外，就部分就没有了。是不是可以考虑zoom "_o" ,炸完后， zoom "_p"
2 如果不炸碎，只炸成一个个文字，可能用处更大。

st788796 · 发表于 2014-4-20 08:51:21

一般这种字用量不大，有一个软件 ArtOutLine 可以写空心文字并输出 dxf，不过有时候会丢失中心的单笔划

xtdwynij · 发表于 2014-4-21 17:28:30

有用。收了

怒放的生命acai · 发表于 2014-7-5 20:11:37

新人路过学习谢谢分享...

yoyoho · 发表于 2014-7-7 14:30:20

感谢 lucas3 分享程序!

xvjiex · 发表于 2021-6-25 00:17:39

感谢分享类似于ET的文字分解代码！

账号		自动登录	找回密码
密码			立即注册

[每日一码] 类似于ET的文字分解代码

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

评分

点评