[编程申请]：属性直接变文字

doongs · 发表于 2006-9-21 18:16:03

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

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

×

虽然属性是一个好用的功能
但有时也想把它直接变成文字，就会更好编辑

xshrimp · 发表于 2006-9-21 19:33:32

[php]
;;;属性文字转化为文字
;;;xshrimp 2006.9.21
(DEFUN C:test( / entlist entname i ip jd no nr ss zg)
(setq SS (ssget '((0 . "ATTDEF"))))
(SETQ NO (SSLENGTH SS))
(SETQ I 0)
(WHILE (< I NO)
   (PROGN
   (setq entname (ssname ss i))
   (SETQ entlist (ENTGET entname))
   (SETQ ip (cdr (assoc 10 entlist)))
   (SETQ nR (cdr (assoc 2 entlist)))
   (SETQ zg (cdr (assoc 40 entlist)))
   (SETQ jd (cdr (assoc 50 entlist)))
   (command "erase" entname "")
   (command "text" ip zg jd nR "")
   (SETQ I (+ 1 I))
      ))
)[/php]

doongs · 发表于 2006-9-22 12:34:58

经测试，正常使用，非常感谢
转化后的字体为当前字体，注意不要用已经定义字高的字体做当前字体

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

[编程申请]：属性直接变文字

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

相关帖子

浏览过的版块