设置UCS到实体对齐

Lispboy · 发表于 2016-11-3 11:32:56

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

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

×

本帖最后由 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]

yoyoho · 发表于 2016-11-3 17:32:10

学习 UCS 程序,感谢 Lispboy 大大分享!!!!!

Lispboy · 发表于 2016-11-3 18:27:00

有更新，加入对*POLYLINE子段的处理。

URD911 · 发表于 2017-3-19 07:03:38

不错很实用的功能感谢分享优化完善AutoCAD功能

jian2dan · 发表于 2017-6-12 15:32:45

有时，这个很有用！！，感谢

land100 · 发表于 2017-11-4 21:46:40

拉萨看vjsasd搭顺风车的短时电池

land100 · 发表于 2017-11-9 07:48:22

有更新，加入对*POLYLINE子段的处理。讽德诵功第三方

abenmao168 · 发表于 2017-11-11 19:30:00

好资源感谢分享

kswym88888` · 发表于 2018-7-31 07:18:21

UCS加F8相当于绘图的“丁字尺”我最喜欢。谢谢楼主分享！

qxwangtao · 发表于 2018-7-31 08:37:32

感谢分享，不错

lixiaolin · 发表于 2018-7-31 08:38:35

感谢分享

kiwiairui · 发表于 2018-7-31 09:17:19

t666666 · 发表于 2018-7-31 09:45:09

谢谢楼主的分享！

xcy0105 · 发表于 2019-12-17 13:48:04

knaknakn.........................

天龙八部乔峰 · 发表于 2019-12-19 09:58:39

感谢楼主分享

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

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

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