标注基点修正申请

宏光 · 发表于 2018-6-13 22:01:12

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

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

×

本帖最后由宏光于 2018-6-28 09:32 编辑

如图，客户提供的图纸内，出现这种标注。但是在编辑这种图纸时很容易误选择标注
所以希望能一建实现右侧的标注的插件。谢谢

XDSoft · 发表于 2018-6-13 22:14:25

上传DWG啊，必须的。

宏光 · 发表于 2018-6-13 23:15:23

不好意思，上传数据

宏光 · 发表于 2018-6-13 23:18:54

不好意思再上传一下

newer · 发表于 2018-6-14 00:38:25

宏光发表于 2018-6-13 23:18
不好意思再上传一下

你是希望改成右边的尺寸样式，还是保持原样子，变成右边的样子？

宏光 · 发表于 2018-6-14 07:34:58

谢谢，希望改成右边的样子。但不是改变标注类型，想通过改变标注的属性实现右边的样子

yangjian001 · 发表于 2018-6-14 08:40:49

路过学习学习

XDSoft · 发表于 2018-6-15 15:45:43

宏光发表于 2018-6-13 23:18
不好意思再上传一下

试试，安装2018.06.15日更新的API

尺寸线DIMEXO.gif

(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:tt ()
(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 (mapcar '- p2 (xdrx_vector_product xdir len))
)
(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:tt () 
  (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   (mapcar '- p2 (xdrx_vector_product xdir len)) 
                               ) 
                               (xdrx_setpropertyvalue x "dimfxlenon" nil "dimexo" 0.0) 
                               (xdrx_setpropertyvalue 
                                 x "xline1point" p1 "xline2point" p2 "dimlinepoint" #dimlinepoint 
                                ) 
                        ) 
                      ) 
                    ) 
                   (xdrx_pickset->ents ss) 
           ) 
           (xdrx_end) 
    ) 
  ) 
  (princ) 
)

宏光 · 发表于 2018-6-16 08:57:00

好的，谢谢，正在学习中，谢谢无私指导！

宏光 · 发表于 2018-6-18 11:18:18

不好意思，插件运行是，会出现基点出现偏移误差的情况，是否是参数设置的问题，请多指教

newer · 发表于 2018-6-18 12:11:20

宏光发表于 2018-6-18 11:18
不好意思，插件运行是，会出现基点出现偏移误差的情况，是否是参数设置的问题，请多指教

帮你修改下，下载下面的代码试试

(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:tt ()
(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:tt () 
  (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) 
)

宏光 · 发表于 2018-6-18 13:34:04

端午节快乐！！
可能是我的API有问题，
Application Error: 0 :- no function definition: XD::PNTS:ORTHOPROJECT
会提示有错误。

newer · 发表于 2018-6-18 13:38:12

宏光发表于 2018-6-18 13:34
端午节快乐！！
可能是我的API有问题，
Application Error: 0 :- no function definition: XD::PNTS:ORTH ...

安装XDRX API 或者晓东工具箱

宏光 · 发表于 2018-6-24 21:47:04

谢谢已经完美解决

newer · 发表于 2018-6-24 22:01:58

宏光发表于 2018-6-24 21:47
谢谢已经完美解决

如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；

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

[编程申请] 标注基点修正申请

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

点评

点评

点评

点评