【已解决】求CAD中字体标准化插件

spring8801 · 发表于 2018-5-8 09:43:11

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

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

×

本帖最后由 spring8801 于 2018-5-26 14:21 编辑

CAD设置好“standard”和“SZ”两种字体样式，如何将CAD中全部汉字改为“standard”，汉字以外的数字、字母、符号等字改为“SZ”样式？

Lisphk · 发表于 2018-5-8 10:04:36

你的汉字和字母数字要分开独立，才有可能。楼主上个图啊。

spring8801 · 发表于 2018-5-8 10:41:07

本帖最后由 spring8801 于 2018-5-26 14:20 编辑

如下图所示，文本中有汉字的全部改为“standard”样式，不含汉字的全部改为“SZ”样式。

Lispboy · 发表于 2018-5-8 10:59:15

spring8801 发表于 2018-5-8 10:41
如下图所示，文本中有汉字的全部改为“standard”样式，不含汉字的全部改为“SZ”样式。

试试

(defun c:tt ()
(if (and (/= "" (setq hz (getstring "\n输入汉字的文字样式:")))
(/= "" (setq xw (getstring "\n输入非汉字的文字样式:")))
(xdrx_initssget "选择修改样式的文字[ALL-全选]<退出>:")
(setq ss (xdrx_ssget '((0 . "TEXT"))))
)
(progn
(mapcar '(lambda (x)
(setq txt (xdrx_getpropertyvalue x "textstring"))
(if (xdrx_string_regexps "[\\u4e00-\\u9fa5]" txt)
(xdrx_setpropertyvalue x "textstyle" hz)
(xdrx_setpropertyvalue x "textstyle" xw)
)
)
(xdrx_pickset->ents ss)
)
)
)
(princ)
)

spring8801 · 发表于 2018-5-8 12:03:57

Lispboy 发表于 2018-5-8 10:59
试试

可以用的，请问如何给非汉字样式“SZ”所有文字均倾斜10度？

marting · 发表于 2018-5-8 12:09:38

spring8801 发表于 2018-5-8 12:03
可以用的，请问如何给非汉字样式“SZ”所有文字均倾斜10度？

命令: (xdrx_setpropertyvalue x)

Class AcDbText:

  ├─AlignmentPoint(Point)
  ├─Height(Real)
  ├─HorizontalMode(T or Nil)
  ├─Normal(Point)
  ├─Oblique(Real)
  ├─Position(Point)
  ├─Rotation(Real)
  ├─TextHeight(Real)
  ├─TextStyle(STR or Ename)
  ├─TextString(STR)
  ├─Thickness(Real or Int)
  ├─MirrorInX(T or NIL)
  ├─MirrorInY(T or Nil)
  ├─VerticalMode(T or Nil)
  ├─WidthFactor(Real or Int)
  ├─ToAttributeWithMask(None)

Class AcDbEntity:

  ├─Color(Int)
  ├─Elevation(Int or Real)
  ├─Layer(STR)
  ├─Linetype(STR)
  ├─LinetypeScale(Real or Int)
  ├─LineWeight(INT)
  ├─PlotStyleName(STR)
  ├─Transparency(0-100)
  ├─Visibility(T or Nil)

Class AcDbObject:

  ├─RemovePersistentReactor (ENAME)
  ├─releaseExtensionDictionary (None)
  ├─SetXdata (STR val1...valn)
  ├─xDataTransformBy (matrix)

上面是xdrx_setpropertyvalue这个函数的用法，你修改什么，就加什么

你把上面代码
(xdrx_setpropertyvalue x "textstyle" xw)改成下面：
(xdrx_setpropertyvalue x "textstyle" xw "oblique" (/ pi 18)) 就是再倾斜10度
如果改成：
(xdrx_setpropertyvalue x "textstyle" xw "oblique" (/ pi 18) "color" 1) 就是再设置颜色为红，
依此类推，举一反三。

spring8801 · 发表于 2018-5-8 12:13:21

marting 发表于 2018-5-8 12:09
命令: (xdrx_setpropertyvalue x)

Class AcDbText:

非常感谢！

newer · 发表于 2018-5-8 14:41:44

spring8801 发表于 2018-5-8 12:13
非常感谢！

如果解决了，请编辑下一楼帖子，前面粘贴上【已解决】，谢谢！

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

[已解决] 【已解决】求CAD中字体标准化插件

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

【已解决】

点评

点评

点评