只需一步,快速开始
[honker1981](4241798) 2011-4-23 10:35:53尺寸镜像时,凡是文字移动过的,镜像后都不正常[honker1981](4241798) 2011-4-23 10:37:22我写了个命令,镜像后判断是否是垂直标注且文字是否移动过,如果是则将文字复位[honker1981](4241798) 2011-4-23 10:37:34请问如何获得镜像后的图元名称?碰到过
标注复位判断等
标注组码里好像可以得到是否镜像过
不跟镜像搞在一起,单独搞成通用程序
(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:33 , Processed in 0.162758 second(s), 31 queries , Gzip On.
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.