明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1295|回复: 0

标注镜像后判断是否是垂直标注且文字是否移动过,并将文字复位

[复制链接]
发表于 2011-4-25 17:02:24 | 显示全部楼层 |阅读模式
  • 76370642 (76370642)
    2011-04-23 19:02:59


    [honker1981](4241798) 2011-4-23 10:35:53
    尺寸镜像时,凡是文字移动过的,镜像后都不正常
    [honker1981](4241798) 2011-4-23 10:37:22
    我写了个命令,镜像后判断是否是垂直标注且文字是否移动过,
    如果是则将文字复位
    [honker1981](4241798) 2011-4-23 10:37:34
    请问如何获得镜像后的图元名称?
    碰到过

  • 76370642 (76370642)
    2011-04-23 19:03:33

    标注复位判断等

  • [198526]DZ (250563800)
    2011-04-23 19:04:06

    标注组码里好像可以得到是否镜像过

  • 76370642 (76370642)
    2011-04-23 19:06:45

    不跟镜像搞在一起,单独搞成通用程序

  • 76370642 (76370642)
    2011-04-23 19:07:36

    (DEFUN C:DTCS (/ SS A1 I ENT A0 A1)
    (SETVAR "BLIPMODE" 0)
    (SETVAR "CMDECHO" 0)
    (IF (NOT (MEMBER (STRCASE "GEOMCAL.ARX" T) (ARX)))
    (ARXLOAD "GEOMCAL")
    )
    (SETQ SS (SSADD))
    (INITGET 7)
    (WHILE (= (SSLENGTH SS) 0)
    (PROMPT "\n 请选择需要调整文字朝向的标注对象:")
    (SETQ SS (SSGET '((0 . "DIMENSION"))))
    )
    (SETQ I 0)
    (REPEAT (SSLENGTH SS)
    (SETQ ENT (ENTGET (SSNAME SS I)))
    (SETQ A1 (CDR (ASSOC 51 ENT)))
    (COND ((= (CDR (ASSOC 70 ENT)) 32)
    (SETQ A0 (CDR (ASSOC 50 ENT)))
    (SETQ UA (ANGLE '(0 0 0) (GETVAR "UCSXDIR")))
    (IF (EQUAL (REM (- A0 UA) PI) 0 1E-4)
    (PROGN
    (SETQ ENT (SUBST (CONS 50 UA) (ASSOC 50 ENT) ENT))
    (ENTMOD ENT)
    (SETQ A0 UA)
    )
    )
    )
    ((= (CDR (ASSOC 70 ENT)) 33)
    (SETQ A0 0)
    )
    )
    (SETQ A (REM (+ A0 A1) (* 2 PI)))
    (IF (OR (AND (> A (* 0.5 PI)) (<= A (* 1.5 PI)))
    (AND (> A (* -1.5 PI)) (<= A (* -0.5 PI)))
    )
    (PROGN
    (SETQ A1 (CONS 51 (- A1 PI)))
    (SETQ ENT (SUBST A1 (ASSOC 51 ENT) ENT))
    (ENTMOD ENT)
    )
    )
    (SETQ I (1+ I))
    )
    (SETVAR "CMDECHO" 1)
    (PRINC)
    )
    (PRINC "\n 调整标注文字朝上程序已加载,运行命令:DTCS")

  • "觉得好,就打赏"
    还没有人打赏,支持一下

    小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
    ©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

    GMT+8, 2024-11-6 11:41 , Processed in 0.160723 second(s), 30 queries , Gzip On.

    Powered by Discuz! X3.4

    Copyright © 2001-2021, Tencent Cloud.

    快速回复 返回顶部 返回列表