（XD::DIM:SELen）获取尺寸标注实体界限的实际长度

marting

1. (defun xd::dim:selen (e / styl xline1point xline2point dimlinepoint dimexo dimscale fxlen
   
2.                      )
   
3.   (setq styl         (xdrx_getpropertyvalue e "dimensionstyle" t)
   
4.         xline1point  (xdrx_getpropertyvalue e "xline1point")
   
5.         xline2point  (xdrx_getpropertyvalue e "xline2point")
   
6.         dimlinepoint (xdrx_getpropertyvalue e "dimlinepoint")
   
7.   )
   
8.   (if (and xline1point xline2point)
   
9.     (progn (or (setq dimexo (xdrx_getpropertyvalue e "dimexo"))
   
10.                (setq dimexo (xdrx_getpropertyvalue styl "dimexo"))
    
11.            )
    
12.            (or (setq dimscale (xdrx_getpropertyvalue e "dimscale"))
    
13.                (setq dimscale (xdrx_getpropertyvalue styl "dimscale"))
    
14.            )
    
15.            (cond ((or (= 1 (xdrx_getpropertyvalue e "dimfxlenon"))
    
16.                       (xdrx_getpropertyvalue styl "dimfxlenon")
    
17.                   )
    
18.                   (if (setq fxlen (xdrx_getpropertyvalue e "dimfxlen"))
    
19.                     (setq fxlen (* dimscale fxlen))
    
20.                     (setq fxlen (* dimscale (xdrx_getpropertyvalue styl "dimfxlen")))
    
21.                   )
    
22.                  )
    
23.                  (t
    
24.                   (setq fxlen (- (distance dimlinepoint xline2point) (* dimscale dimexo)))
    
25.                  )
    
26.            )
    
27.     )
    
28.   )
    
29. )
    
30. 
    

(defun xd::dim:selen (e / styl xline1point xline2point dimlinepoint dimexo dimscale fxlen<br />                      )<br />   (setq styl         (xdrx_getpropertyvalue e "dimensionstyle" t)<br />         xline1point  (xdrx_getpropertyvalue e "xline1point")<br />         xline2point  (xdrx_getpropertyvalue e "xline2point")<br />         dimlinepoint (xdrx_getpropertyvalue e "dimlinepoint")<br />   )<br />   (if (and xline1point xline2point)<br />     (progn (or (setq dimexo (xdrx_getpropertyvalue e "dimexo"))<br />                (setq dimexo (xdrx_getpropertyvalue styl "dimexo"))<br />            )<br />            (or (setq dimscale (xdrx_getpropertyvalue e "dimscale"))<br />                (setq dimscale (xdrx_getpropertyvalue styl "dimscale"))<br />            )<br />            (cond ((or (= 1 (xdrx_getpropertyvalue e "dimfxlenon"))<br />                       (xdrx_getpropertyvalue styl "dimfxlenon")<br />                   )<br />                   (if (setq fxlen (xdrx_getpropertyvalue e "dimfxlen"))<br />                     (setq fxlen (* dimscale fxlen))<br />                     (setq fxlen (* dimscale (xdrx_getpropertyvalue styl "dimfxlen")))<br />                   )<br />                  )<br />                  (t<br />                   (setq fxlen (- (distance dimlinepoint xline2point) (* dimscale dimexo)))<br />                  )<br />            )<br />     )<br />   )<br /> )<br /> <br />

kqqt6236

沙发，谢谢分享。

lixiaolin

谢谢分享。

yoyoho

非常谢谢分享!!!!!

ibelieves

去除多线段上的点编程序怎么编