属性文字平齐坐标轴

newer

请加载 XDRX API 2014.1218以上版本。

游客，如果您要查看本帖隐藏内容请回复

守仁格竹GM

针对没有测试版API的平齐坐标轴，:lol

2. (defun c:XDTB_AttAlign ( / ang attribs ss)
   
3.   (princ "\n选取要平齐坐标轴的属性实体<退出>:")
   
4.   (xdrx_begin)
   
5.   (setq ss (ssget '((0 . "INSERT") (66 . 1)))
   
6.         ang (angle '(0 0 0) (getvar "ucsxdir"))
   
7.   )
   
8.   (mapcar
   
9.     '(lambda (x)
   
10.        (setq attribs (xdrx_getpropertyvalue x "AttributeEntities"))
    
11.        (mapcar
    
12.          '(lambda (y)
    
13.             (xdrx_SetPropertyValue y "Rotation" ang)
    
14.          )
    
15.          attribs
    
16.        )
    
17.     )
    
18.     (xdrx_pickset->ents ss)
    
19.   )
    
20.   (princ (strcat "\n “" (vl-princ-to-string(sslength ss)) "”个属性文字已经平齐到坐标轴。"))
    
21.   (xdrx_end)
    
22.   (princ)
    
23. )

(defun c:XDTB_AttAlign ( / ang attribs ss)<br />   (princ "\n选取要平齐坐标轴的属性实体<退出>:")<br />   (xdrx_begin)<br />   (setq ss (ssget '((0 . "INSERT") (66 . 1)))<br />         ang (angle '(0 0 0) (getvar "ucsxdir"))<br />   )<br />   (mapcar<br />     '(lambda (x)<br />        (setq attribs (xdrx_getpropertyvalue x "AttributeEntities"))<br />        (mapcar<br />          '(lambda (y)<br />             (xdrx_SetPropertyValue y "Rotation" ang)<br />          )<br />          attribs<br />        )<br />     )<br />     (xdrx_pickset->ents ss)<br />   )<br />   (princ (strcat "\n “" (vl-princ-to-string(sslength ss)) "”个属性文字已经平齐到坐标轴。"))<br />   (xdrx_end)<br />   (princ)<br /> )

守仁格竹GM

不错，实用型{:soso_e179:}

liuyj

再来个与sanpang设定的角度一样的

newer

liuyj 发表于 2014-12-17 22:21
再来个与sanpang设定的角度一样的

没必要了吧，灵活用 UCS  OB吧。
想对齐哪个，就设UCS。

819534890

不错不错，谢谢

zhangq_cai1

很实用~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~·

czcxxx_01

好好好好好，谢谢！！！！！！！！！！！！

zsw23

不错，实用型

yansu

经常用到，太方便啦，谢谢分享

wyldd

好用，谢谢，谢谢

freedake

学习一下~~

天若有情007

不错，学习学习

liulisheng

tht-0

不错，学习学习