[试用]：重写“轴符缩放”，保持位置不变同时缩放多个轴号标注...

XDSoft

重新写了“轴符缩放”工具，该工具可以让多个轴符块保持和界线端点位置不变，自身缩放。


下载地址：http://www.xdcad.net/tech/xd_tbox/xdtb_axiscscl.swf

<embed src=http://www.xdcad.net/tech/xd_tbox/xdtb_axiscscl.swf quality=high width=512 height=482 loop=true type="application/x-shockwave-flash">
</embed>

程序如下：大家把它存一个LISP文件，在晓东工具箱环境下加载，用命令XDTB_AxisCScl

2. [font=courier new]
   
3. ;|
   
4.    命令：XDTB_AxisCScl
   
5.    功能：保持位置的轴号缩放
   
6.    说明：轴号图层AXIS
   
7. |;
   
8. (defun c:XDTB_AxisCScl (/ scl scl1 tf ss m0 e pj ang pj1 mS ss1 p1 p2 nearpt)
   
9.   (initget 6)
   
10.   (if (setq scl (getreal "\n请输入缩放比例<退出>:"))
    
11.     (progn
    
12.       (prompt "\n请选取缩放的轴符<全选>:")
    
13.       (if (not (setq ss (ssget '((8 . "AXIS") (0 . "INSERT")))))
    
14.         (progn
    
15.           (xdrx_drawing_viewsave)
    
16.           (setq tf (xdrx_drawing_zoome))
    
17.           (setq ss (ssget "x" '((8 . "AXIS") (0 . "INSERT"))))
    
18.         )
    
19.       )
    
20.       (xdrx_setsstodb ss 0)
    
21.       (setq m0 (xdrx_matrix_identity 3))
    
22.       (while (setq e (xdrx_getentdata 0))
    
23.         (setq pj (xdrx_getentdxf 10)
    
24.               scl1 (xdrx_getentdxf 41)
    
25.               box (xdrx_entity_box e)
    
26.               box (apply 'xdrx_pointsoffset (cons (/ scl1 8) box))
    
27.               box (reverse (cons (car box) (reverse box)))
    
28.               ss1 (ssget "f" box '((0 . "line")(8 . "AXIS")))
    
29.         )
    
30.         (if (and ss1
    
31.               (= 1 (sslength ss1))
    
32.               (setq e1 (ssname ss1 0))
    
33.               (setq pj1 (xdrx_getinters box e1))
    
34.             )
    
35.            (progn
    
36.               (xdrx_setenttodb e1)
    
37.               (setq p1 (xdrx_getentdxf 10)
    
38.                     p2 (xdrx_getentdxf 11)
    
39.                     nearpt (xdrx_getnearpt (car pj1) p1 p2)
    
40.                     pj (car nearpt)
    
41.               )
    
42.            )
    
43.         )
    
44.         (setq mS (xdrx_matrix_setScale m0 scl pj))
    
45.         (xdrx_entity_transForm e ms)
    
46.       )
    
47.       (if tf
    
48.         (xdrx_drawing_viewres)
    
49.       )
    
50.     )
    
51.   )
    
52.   (princ)
    
53. )
    
54. [/font]

[font=courier new]<br /> ;|<br />    命令：XDTB_AxisCScl<br />    功能：保持位置的轴号缩放<br />    说明：轴号图层AXIS<br /> |;<br /> (defun c:XDTB_AxisCScl (/ scl scl1 tf ss m0 e pj ang pj1 mS ss1 p1 p2 nearpt)<br />   (initget 6)<br />   (if (setq scl (getreal "\n请输入缩放比例<退出>:"))<br />     (progn<br />       (prompt "\n请选取缩放的轴符<全选>:")<br />       (if (not (setq ss (ssget '((8 . "AXIS") (0 . "INSERT")))))<br />         (progn<br />           (xdrx_drawing_viewsave)<br />           (setq tf (xdrx_drawing_zoome))<br />           (setq ss (ssget "x" '((8 . "AXIS") (0 . "INSERT"))))<br />         )<br />       )<br />       (xdrx_setsstodb ss 0)<br />       (setq m0 (xdrx_matrix_identity 3))<br />       (while (setq e (xdrx_getentdata 0))<br />         (setq pj (xdrx_getentdxf 10)<br />               scl1 (xdrx_getentdxf 41)<br />               box (xdrx_entity_box e)<br />               box (apply 'xdrx_pointsoffset (cons (/ scl1 8) box))<br />               box (reverse (cons (car box) (reverse box)))<br />               ss1 (ssget "f" box '((0 . "line")(8 . "AXIS")))<br />         )<br />         (if (and ss1<br />               (= 1 (sslength ss1))<br />               (setq e1 (ssname ss1 0))<br />               (setq pj1 (xdrx_getinters box e1))<br />             )<br />            (progn<br />               (xdrx_setenttodb e1)<br />               (setq p1 (xdrx_getentdxf 10)<br />                     p2 (xdrx_getentdxf 11)<br />                     nearpt (xdrx_getnearpt (car pj1) p1 p2)<br />                     pj (car nearpt)<br />               ) <br />            )<br />         )<br />         (setq mS (xdrx_matrix_setScale m0 scl pj))<br />         (xdrx_entity_transForm e ms)<br />       )<br />       (if tf<br />         (xdrx_drawing_viewres)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> [/font]

aeo

试用了一下
两轴号靠很近,出错
我想是ssget "F"应该不用box,点再多一点就好了(十边形).

tiansuper

在3。X下可以直接使用吗？