设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1648|回复: 6

[标注] 标注基点修正

[复制链接]

已领礼包: 40个

财富等级: 招财进宝

发表于 2018-6-18 12:49:00 | 显示全部楼层 |阅读模式
  • 插件名称 : 基点修正
  • 作  者 : XDSoft
  • 运行环境 :XDRX API 晓东工具箱 
  • 发布时间 :2018-06-18
  • 命令名称 :XDTB_DIMJDXZ
  • 插件介绍 :标注基点修正
  • 备  注 : (点击图片可以放大)
(点击图片可以放大)

晓东温馨提示 1、运行环境为 晓东工具箱XDRX API 的插件,请下载最新版本的 晓东工具箱XDRX API开发环境 一键安装
2、在ACAD中如何加载插件,请看 论坛插件使用方法
3、如果您有要求需要定制插件,请到 编程申请 论坛发帖求助

插件详细内容

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

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
  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. )


论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 100个

财富等级: 招财进宝

发表于 2018-6-18 13:15:57 | 显示全部楼层
放假了还有编程,辛苦了!端午安康!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 811个

财富等级: 财运亨通

发表于 2018-6-18 13:38:24 | 显示全部楼层
感谢分享,节日快乐
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 6051个

财富等级: 富甲天下

发表于 2018-6-20 06:53:04 | 显示全部楼层
谢谢分享。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 1个

财富等级: 恭喜发财

发表于 2018-7-10 14:09:34 | 显示全部楼层
这个有什么用,求详细解释
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2018-9-1 11:29:40 | 显示全部楼层
这个插件真牛啊
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 12个

财富等级: 恭喜发财

发表于 2018-9-1 12:54:46 | 显示全部楼层
感谢分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2021-9-22 01:28 , Processed in 0.683745 second(s), 44 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表