找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 4436|回复: 18

[工具] 设置UCS到实体对齐

[复制链接]

已领礼包: 51个

财富等级: 招财进宝

发表于 2016-11-3 11:32:56 | 显示全部楼层 |阅读模式
  • 插件名称 : 实体UCS
  • 作  者 : Lispboy
  • 运行环境 :XDRX API 晓东工具箱 
  • 发布时间 :2016-11-03
  • 命令名称 :XDTB_UCSOBJ
  • 插件介绍 :设置UCS到实体对齐
  • 备  注 : (点击图片可以放大)
(点击图片可以放大)

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

插件详细内容

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

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

×
本帖最后由 newer 于 2016-11-3 18:24 编辑

UCS加F8相当于绘图的“丁字尺”,善用UCS,画图会效率提高很高。本插件可以将UCS设置到实体对齐,同UCS命令的OB选项对比,本插件可以解决UCS命令不能设置的一些情况,比如射线,XLINE等等。


[sell=5]
(defun c:XDTB_UCSOBJ ( / ang e e1 el epa ept g1 mpa ori pa pt seg spa spt xdir ydir zdir)
  (if (setq e (entsel "\n拾取实体确定UCS<退出>:"))
    (progn
      (setq pt (cadr e)
            e (car e)
      )
      (mapcar
        'set
        '(ori xdir ydir zdir)
        (xdrx_entity_getecs e)
      )
      (cond
        ((= (wcmatch (car (xdrx_object_classname e)) "*POLYLNE"))
           (setq g1 (xdge::constructor e)
                 pa (xdge::getpropertyvalue g1 "paramof" (trans pt 1 0))
           )
           (mapcar 'set '(seg el) (xdge::getpropertyvalue g1 "globalToLocalParam" pa "getcurvelist"))
           (setq e1 (nth (last seg) el)
                 pa (car seg)
           )
           (mapcar 'set '(spt ept spa epa)(xdge::getpropertyvalue e1 "hasstartpoint" "hasendpoint" "startparam" "endparam"))
           (setq xdir (xdrx_vector_normalize (mapcar '- ept spt))
                 ydir (xdrx_vector_perpvector xdir)
                 zdir (xdrx_vector_crossproduct xdir ydir)
                 ori spt
                 mpa (/ (+ spa epa) 2.0)
           )
           (if (> pa mpa)
             (setq ori ept xdir (xdrx_vector_negate xdir) ydir (xdrx_vector_negate ydir))
           )
           (xdge::free (cons g1 el))
        )
        (t
        )
      )
      (setq ang (xdrx_vector_angle xdir))
      (if (and
            (> ang (/ pi 2.0))
            (< ang (* 3 (/ pi 2.0)))
          )
        (progn
          (setq xdir (xdrx_vector_negate xdir)
                ydir (xdrx_vector_negate ydir)
          )
        )
      )
      (xdrx_ucs_set ori xdir ydir zdir)
    )
  )
  (princ)
)

[/sell]

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

已领礼包: 8711个

财富等级: 富甲天下

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

使用道具 举报

已领礼包: 51个

财富等级: 招财进宝

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

使用道具 举报

已领礼包: 1个

财富等级: 恭喜发财

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

使用道具 举报

已领礼包: 1个

财富等级: 恭喜发财

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

使用道具 举报

已领礼包: 63个

财富等级: 招财进宝

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

使用道具 举报

已领礼包: 63个

财富等级: 招财进宝

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

使用道具 举报

已领礼包: 233个

财富等级: 日进斗金

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

使用道具 举报

发表于 2018-7-31 07:18:21 | 显示全部楼层
UCS加F8相当于绘图的“丁字尺”我最喜欢。谢谢楼主分享!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 154个

财富等级: 日进斗金

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

使用道具 举报

已领礼包: 12个

财富等级: 恭喜发财

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

使用道具 举报

已领礼包: 381个

财富等级: 日进斗金

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

使用道具 举报

已领礼包: 100个

财富等级: 招财进宝

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 13:46 , Processed in 0.447923 second(s), 59 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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