标注基点修正

newer

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 c:XDTB_DIMJDXZ (/ ss selen height xdir len ydir p1 p2 x)
    
31.   (if (and (xdrx_initssget "\n选择标注实体<退出>:")
    
32.            (setq ss (xdrx_ssget '((0 . "dimension"))))
    
33.       )
    
34.     (progn (xdrx_begin)
    
35.            (mapcar '(lambda (x)
    
36.                       (xdrx_getpropertyvalue
    
37.                         x
    
38.                         "xLine1Point"
    
39.                         "xLine2Point"
    
40.                         "DimLinePoint"
    
41.                       )
    
42.                       (setq selen  (xd::dim:selen x)
    
43.                             height (distance #xline2point #dimlinepoint)
    
44.                       )
    
45.                       (if (not (equal selen height 1e-5))
    
46.                         (progn (setq ecs  (xdrx_entity_getecs x)
    
47.                                      xdir (nth 1 ecs)
    
48.                                      len  (distance #xline1point #xline2point)
    
49.                                      ydir (if (not (equal #xline2point #dimlinepoint 1e-5))
    
50.                                             (xdrx_vector_normalize (mapcar '- #xline2point #dimlinepoint))
    
51.                                             (nth 2 ecs)
    
52.                                           )
    
53.                                      p2   (mapcar '+ #dimlinepoint (xdrx_vector_product ydir selen))
    
54.                                      p1 (car (xd::pnts:orthoproject (list p2) #xline1point (mapcar '+ #xline1point ydir)))
    
55.                                )
    
56.                                (xdrx_setpropertyvalue x "dimfxlenon" nil "dimexo" 0.0)
    
57.                                (xdrx_setpropertyvalue
    
58.                                  x "xline1point" p1 "xline2point" p2 "dimlinepoint" #dimlinepoint
    
59.                                 )
    
60.                         )
    
61.                       )
    
62.                     )
    
63.                    (xdrx_pickset->ents ss)
    
64.            )
    
65.            (xdrx_end)
    
66.     )
    
67.   )
    
68.   (princ)
    
69. )
    
70. 
    

(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 /> (defun c:XDTB_DIMJDXZ (/ ss selen height xdir len ydir p1 p2 x)<br />   (if (and (xdrx_initssget "\n选择标注实体<退出>:")<br />            (setq ss (xdrx_ssget '((0 . "dimension"))))<br />       )<br />     (progn (xdrx_begin)<br />            (mapcar '(lambda (x)<br />                       (xdrx_getpropertyvalue<br />                         x<br />                         "xLine1Point"<br />                         "xLine2Point"<br />                         "DimLinePoint"<br />                       )<br />                       (setq selen  (xd::dim:selen x)<br />                             height (distance #xline2point #dimlinepoint)<br />                       )<br />                       (if (not (equal selen height 1e-5))<br />                         (progn (setq ecs  (xdrx_entity_getecs x)<br />                                      xdir (nth 1 ecs)<br />                                      len  (distance #xline1point #xline2point)<br />                                      ydir (if (not (equal #xline2point #dimlinepoint 1e-5))<br />                                             (xdrx_vector_normalize (mapcar '- #xline2point #dimlinepoint))<br />                                             (nth 2 ecs)<br />                                           )<br />                                      p2   (mapcar '+ #dimlinepoint (xdrx_vector_product ydir selen))<br />                                      p1 (car (xd::pnts:orthoproject (list p2) #xline1point (mapcar '+ #xline1point ydir)))<br />                                )<br />                                (xdrx_setpropertyvalue x "dimfxlenon" nil "dimexo" 0.0)<br />                                (xdrx_setpropertyvalue<br />                                  x "xline1point" p1 "xline2point" p2 "dimlinepoint" #dimlinepoint<br />                                 )<br />                         )<br />                       )<br />                     )<br />                    (xdrx_pickset->ents ss)<br />            )<br />            (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

t666666

放假了还有编程，辛苦了！端午安康！

liunian0524

感谢分享,节日快乐

kqqt6236

谢谢分享。

hejiho

这个有什么用，求详细解释

zhc19930728

这个插件真牛啊

lixiaolin

感谢分享