[编程申请]：将文字旋转角度d(45≤d＜135)的文字放到新建的颜色为5的图层“角度一”中

lengliqun · 发表于 2008-4-10 09:42:00

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

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

×

lsp编程申请：将文字旋转角度d(45≤d＜135)的文字放到新建的颜色为5的图层“角度一”中，其余角度的文字放到新建的颜色为6的图层“角度二”中。

zxq0220 · 发表于 2008-4-10 22:57:08

[php]
(DEFUN C:TT ()
(SETVAR "CMDECHO" 0)
(if (setq ss (ssget '((0 . "*TEXT")))) (progn
  (setq i -1 s1 (ssadd) s2 (ssadd))
  (repeat (sslength ss)
(setq en (ssname ss (setq i (1+ i)))
      ent (entget en)
      an (cdr (assoc 50 ent)))
(if (< (/ pi 4) an (* pi 0.75))
(setq s1 (ssadd en s1))
(setq s2 (ssadd en s2))
)
  )
  (if (> (sslength s1) 0) (progn
(command ".layer" "M" "角度一" "C" 5 "角度一" "")
(command "CHPROP" s1 "" "LA" "角度一" "")
  ))
  (if (> (sslength s2) 0) (progn
(command ".layer" "M" "角度二" "C" 6 "角度二" "")
(command "CHPROP" s2 "" "LA" "角度二" "")
  ))
))
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/php]

lengliqun · 发表于 2008-4-11 12:58:36

CAD2004测试可用，谢谢zxq0220大侠。

ljttjl · 发表于 2008-4-13 19:15:39

如未解决的话，可以联系ljttjl@tom.com

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

[编程申请]：将文字旋转角度d(45≤d＜135)的文字放到新建的颜色为5的图层“角度一”中

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

相关帖子