马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?立即注册
×
改图时发生了错误,临时写的。
- ;|
- 命令:c:tmirr
- 功能:假如在mirrtext=1时用了mirror,而正好其中又有text...
- 不用费时undo后重新mirror
- 说明:1. 配合XDRX_API使用
- XDRX_API最新版本请到“晓东CAD空间”
- [url]http://www.fspdi.com/forum/。[/url]
- 2. DXF组码: 71 文本生成标志(可选,缺省值= 0)
- 2 = 文本反向(在 X 方向上产生镜像)
- 4 = 文本倒置(在 Y 方向上产生镜像)
- 50 文字旋转(可选,缺省值= 0),单位弧度
-
- |;
- (defun c:tmirr (/ ss e)
- (xdrx_begin)
- (xdrx_ucson)
- (princ "\n选择文字......")
- (setq ss (ssget '((0 . "TEXT"))))
- (xdrx_setsstodb ss 0)
- (while (setq e (xdrx_getentdata 0))
- (if (or (/= (xdrx_getentdxf 71) 0)
- (and (> (xdrx_getentdxf 50) (/ pi 2))
- (<= (xdrx_getentdxf 50) (* pi 1.5))
- )
- )
- (progn
- (xdrx_modent 71 0 50 (- (xdrx_getentdxf 50) pi))
- (setvar "mirrtext" 0)
- )
- )
- )
- (xdrx_ucsoff)
- (xdrx_end)
- (princ)
- )
|