标注基点修正

newer · 发表于 2018-6-18 12:49:00

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

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

t666666 · 发表于 2018-6-18 13:15:57

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

liunian0524 · 发表于 2018-6-18 13:38:24

感谢分享,节日快乐

kqqt6236 · 发表于 2018-6-20 06:53:04

谢谢分享。

hejiho · 发表于 2018-7-10 14:09:34

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

zhc19930728 · 发表于 2018-9-1 11:29:40

这个插件真牛啊

lixiaolin · 发表于 2018-9-1 12:54:46

感谢分享

账号		自动登录	找回密码
密码			立即注册

[标注] 标注基点修正

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。