文字转遮罩并制作（矩形、圆、椭圆边框）

newer · 发表于 2018-12-25 23:34:38

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

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

×

本帖最后由 newer 于 2018-12-25 23:35 编辑

(defun c:XDTB_Text2Wipeout (/ ss pts blk e e1)
(if (and (xdrx_initssget "选择要转遮罩的文字<退出>:")
(setq ss (xdrx_ssget '((0 . "*text"))))
)
(progn (if (not #xd_var_global_woframe_type)
(setq #xd_var_global_woframe_type 0)
)
(xdrx_initget "0 1 2")
(if (setq val (getint (xdrx_prompt
"\n边界类型[矩形(0)/圆(1)/椭圆(2)]<"
#xd_var_global_woframe_type
">:"
t
)
)
)
(setq #xd_var_global_woframe_type val)
)
(xdrx_begin)
(xdrx_setvar "woframetype" #xd_var_global_woframe_type)
(mapcar '(lambda (x) (xdrx_setpropertyvalue x "toattributewithmask"))
(xdrx_pickset->ents ss)
)
(xdrx_prompt "\n成功制作了 " (sslength ss) " 个文字遮罩.")
(xdrx_end)
)
)
(princ)
)

(defun c:XDTB_Text2Wipeout (/ ss pts blk e e1) 
  (if (and (xdrx_initssget "选择要转遮罩的文字<退出>:") 
           (setq ss (xdrx_ssget '((0 . "*text")))) 
      ) 
    (progn (if (not #xd_var_global_woframe_type) 
             (setq #xd_var_global_woframe_type 0) 
           ) 
           (xdrx_initget "0 1 2") 
           (if (setq val (getint (xdrx_prompt 
                                   "\n边界类型[矩形(0)/圆(1)/椭圆(2)]<" 
                                   #xd_var_global_woframe_type 
                                   ">:" 
                                   t 
                                 ) 
                         ) 
               ) 
             (setq #xd_var_global_woframe_type val) 
           ) 
           (xdrx_begin) 
           (xdrx_setvar "woframetype" #xd_var_global_woframe_type) 
           (mapcar '(lambda (x) (xdrx_setpropertyvalue x "toattributewithmask")) 
                   (xdrx_pickset->ents ss) 
           ) 
           (xdrx_prompt "\n成功制作了 " (sslength ss) " 个文字遮罩.") 
           (xdrx_end) 
    ) 
  ) 
  (princ) 
)

hch8682005 · 发表于 2018-12-26 08:07:37

学习一下！

2767836360 · 发表于 2018-12-26 08:19:25

谢谢分享谢谢分享

qxwangtao · 发表于 2018-12-26 08:32:37

暂时用不到，帮顶了

konglong604 · 发表于 2018-12-26 10:47:57

谢谢分享这么实用的程序

landzy · 发表于 2018-12-27 14:14:19

请问图签里面有文字，有线可以转遮罩不

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

[矩形] 文字转遮罩并制作（矩形、圆、椭圆边框）

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