有尺寸标注OFFSET的程序吗？

evayleung

OFFSET后尺寸标注点一样，就是尺寸线相距800，有这样的程序吗？自己不会编，只能求救了。谢谢。

鱼与熊掌

听不大明白

Gu_xl

需加载XLRX_API使用：

1. (defun c:tt (/ e d pts vec)
   
2.   (setq d (getdist "\n输入偏距<800>:"))
   
3.   (if (null d)
   
4.     (setq d 800)
   
5.   )
   
6.   (while (setq e (car (entsel "\n选择线性标注：")))
   
7.     (setq pts (xlrx-get e "stretchpoints")
   
8.           vec (XLRX-Vec-V*S
   
9.                 (XLRX-Vec-Unit (mapcar '- (caddr pts) (car pts)))
   
10.                 d
    
11.               )
    
12.     )
    
13.     (XLRX-moveStretchPoint e vec 2 3 4)
    
14.   )
    
15.   (princ)
    
16. )

(defun c:tt (/ e d pts vec)<br />   (setq d (getdist "\n输入偏距<800>:"))<br />   (if (null d)<br />     (setq d 800)<br />   )<br />   (while (setq e (car (entsel "\n选择线性标注：")))<br />     (setq pts (xlrx-get e "stretchpoints")<br />           vec (XLRX-Vec-V*S<br />                 (XLRX-Vec-Unit (mapcar '- (caddr pts) (car pts)))<br />                 d<br />               )<br />     )<br />     (XLRX-moveStretchPoint e vec 2 3 4)<br />   )<br />   (princ)<br /> )

lhngxy

好东西！！！！！

evayleung

Gu_xl 发表于 2015-3-2 14:45
需加载XLRX_API使用：

多谢版本。。。