【FTA】修复天正转角(基于当前UCS)

kucha007

复制天正对象到不同的UCS下时，转角改变通常需要手动调整。
但对象类型太多了，实操麻烦。干脆写个简单的程序代替这个过程吧。

1. ;基于当前UCS修复天正对象的转角(除文字外)
   
2. (defun C:FTA (/ DOC UCSAng SS i obj)
   
3.   (if (null vlax-dump-object) (vl-load-com));;将Visual LISP扩展功能加载到AutoLISP
   
4.   (setq DOC (vla-get-ActiveDOCument (vlax-get-acad-object)))
   
5.   (defun *error* (x) ;出错函数
   
6.     (vla-endundomark Doc) ;结束编组
   
7.   )
   
8.   
   
9.   (while (eq 8 (logand 8 (getvar 'undoctl)))
   
10.       (vla-endundomark DOC)
    
11.   );关闭以前的编组
    
12.   (vla-startundomark Doc) ;记录编组
    
13.     (setq UCSAng (atan (cadr (getvar 'ucsxdir)) (car (getvar 'ucsxdir))));UCS相对于世界坐标的夹角
    
14.     (if (<= UCSAng 0.0)(setq UCSAng (+ (* 2 pi) UCSAng)));负值修复
    
15.     (while
    
16.         (and
    
17.           (princ "\n——★★★ 请选择天正对象 ★★★——\n")
    
18.           (setq SS (ssget '((0 . "TCH_*"))))
    
19.         )
    
20.         (repeat (setq i (sslength SS))
    
21.           (setq obj (Vlax-Ename->Vla-Object (ssname SS (setq i (1- i)))))
    
22.           (if
    
23.             (and
    
24.                 (vlax-property-available-p obj "LayoutRotation") ;存在转角属性
    
25.                 (not (wcmatch (Vlax-Get obj 'ObjectName) "TDb*Text"));不是天正文字
    
26.             )
    
27.             (vlax-Put obj 'LayoutRotation (* 180 (/ UCSAng pi)))
    
28.           )
    
29.         )
    
30.     )
    
31.   (vla-endundomark Doc) ;结束编组
    
32.   (princ)
    
33. )
    

;基于当前UCS修复天正对象的转角(除文字外)<br /> (defun C:FTA (/ DOC UCSAng SS i obj)<br />   (if (null vlax-dump-object) (vl-load-com));;将Visual LISP扩展功能加载到AutoLISP<br />   (setq DOC (vla-get-ActiveDOCument (vlax-get-acad-object)))<br />   (defun *error* (x) ;出错函数<br />     (vla-endundomark Doc) ;结束编组<br />   )<br />   <br />   (while (eq 8 (logand 8 (getvar 'undoctl))) <br />       (vla-endundomark DOC)<br />   );关闭以前的编组<br />   (vla-startundomark Doc) ;记录编组<br />     (setq UCSAng (atan (cadr (getvar 'ucsxdir)) (car (getvar 'ucsxdir))));UCS相对于世界坐标的夹角<br />     (if (<= UCSAng 0.0)(setq UCSAng (+ (* 2 pi) UCSAng)));负值修复<br />     (while <br />         (and<br />           (princ "\n——★★★ 请选择天正对象 ★★★——\n")<br />           (setq SS (ssget '((0 . "TCH_*")))) <br />         )<br />         (repeat (setq i (sslength SS)) <br />           (setq obj (Vlax-Ename->Vla-Object (ssname SS (setq i (1- i)))))<br />           (if <br />             (and<br />                 (vlax-property-available-p obj "LayoutRotation") ;存在转角属性<br />                 (not (wcmatch (Vlax-Get obj 'ObjectName) "TDb*Text"));不是天正文字<br />             )<br />             (vlax-Put obj 'LayoutRotation (* 180 (/ UCSAng pi)))<br />           )<br />         )<br />     )<br />   (vla-endundomark Doc) ;结束编组 <br />   (princ)<br /> )<br />

陈伟

天正T20 V9.0  选取不了天正图元

kucha007

陈伟 发表于 2024-1-23 09:51
天正T20 V9.0  选取不了天正图元

代码之前写错了，已经更新，再试试