动态辅助线

Lispboy · 发表于 2020-5-14 00:26:59

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

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

×

(defun c:xdtb_dynhelpline (/ ints e p1 p2 box v1 v2 g pt lyr)
(defun XD::DOC:GetView4Pnt
(/ h h1 h2 l l1 pt1 pt2 pt3 pt4 vm1 vm2 vt)
(setq h2 (getvar "viewsize")
vt (trans (getvar "viewctr") 1 0)
l (* (apply '/ (getvar "screensize")) h2)
l (/ l 2.0)
h (/ h2 2.0)
pt1 (mapcar '- vt (list l h))
pt2 (mapcar '+ vt (list l (- h)))
pt3 (mapcar '+ vt (list l h))
pt4 (mapcar '+ vt (list (- l) h))
)
(list pt1 pt2 pt3 pt4)
)
(defun _callback (dynpt)
(redraw)
(setq p1 (xdrx-curve-getclosestpoint e dynpt)
v1 (xdrx-getpropertyvalue e "firstderiv" p1)
v2 (xdrx-vector-perpvector v1)
p2 (mapcar '+ p1 v2)
box (XD::DOC:GetView4Pnt)
box (xd::pnts:close box)
g (xdge::constructor "kcompositecrv3d" box)
)
(if (setq ints (xdrx-get-inters (list p1 p2) g 1))
(progn
(xdrx-grdraw 8 -1 ints)
)
)
(xdge::free g)
)
(if (setq e (car (xdrx-entsel
"\n拾取曲线<退出>:"
'((0 . "*line,arc,ellipse,circle"))
)
)
)
(progn
(xd::begin)
(xdrx-sysvar-push '("osmode" 545))
(xdrx-pointmonitor "_callback")
(if (setq pt (getpoint "\n点取构造线的位置<退出>:"))
(progn
(setq lyr (xdrx_layer_make "辅助线" '(128 128 128) t))
(xdrx_setpropertyvalue lyr "Locked" t)
(xdrx-xline-make (setq pt (trans pt 1 0)) (mapcar '+ pt v2))
)
)
(xdrx-pointmonitor)
(xdrx-sysvar-pop)
(redraw)
(xd::end)
)
)
(princ)
)

(defun c:xdtb_dynhelpline (/ ints e p1 p2 box v1 v2 g pt lyr) 
  (defun XD::DOC:GetView4Pnt 
         (/ h h1 h2 l l1 pt1 pt2 pt3 pt4 vm1 vm2 vt) 
    (setq h2  (getvar "viewsize") 
          vt  (trans (getvar "viewctr") 1 0) 
          l   (* (apply '/ (getvar "screensize")) h2) 
          l   (/ l 2.0) 
          h   (/ h2 2.0) 
          pt1 (mapcar '- vt (list l h)) 
          pt2 (mapcar '+ vt (list l (- h))) 
          pt3 (mapcar '+ vt (list l h)) 
          pt4 (mapcar '+ vt (list (- l) h)) 
    ) 
    (list pt1 pt2 pt3 pt4) 
  ) 
  (defun _callback (dynpt) 
    (redraw) 
    (setq p1  (xdrx-curve-getclosestpoint e dynpt) 
          v1  (xdrx-getpropertyvalue e "firstderiv" p1) 
          v2  (xdrx-vector-perpvector v1) 
          p2  (mapcar '+ p1 v2) 
          box (XD::DOC:GetView4Pnt) 
          box (xd::pnts:close box) 
          g   (xdge::constructor "kcompositecrv3d" box) 
    ) 
    (if        (setq ints (xdrx-get-inters (list p1 p2) g 1)) 
      (progn 
        (xdrx-grdraw 8 -1 ints) 
      ) 
    ) 
    (xdge::free g) 
  ) 
  (if (setq e (car (xdrx-entsel 
                     "\n拾取曲线<退出>:" 
                     '((0 . "*line,arc,ellipse,circle")) 
                   ) 
              ) 
      ) 
    (progn 
      (xd::begin) 
      (xdrx-sysvar-push '("osmode" 545)) 
      (xdrx-pointmonitor "_callback") 
      (if (setq pt (getpoint "\n点取构造线的位置<退出>:")) 
        (progn 
          (setq lyr (xdrx_layer_make "辅助线" '(128 128 128) t)) 
          (xdrx_setpropertyvalue lyr "Locked" t) 
          (xdrx-xline-make (setq pt (trans pt 1 0)) (mapcar '+ pt v2)) 
        ) 
      ) 
      (xdrx-pointmonitor) 
      (xdrx-sysvar-pop) 
      (redraw) 
      (xd::end) 
    ) 
  ) 
  (princ) 
)

Michael527 · 发表于 2020-5-14 06:33:21

谢谢楼主的分享，楼主辛苦了

fyzld · 发表于 2020-5-14 07:50:01

XUEXIXUEXI

kyky1002 · 发表于 2020-5-14 08:07:30

非常特别的功能，看看怎么用

昵称不要脸 · 发表于 2020-5-14 21:59:01

这个好似很牛的样子

liuwenxuan8351 · 发表于 2020-5-18 12:53:43

感谢楼主分享收藏了

974778504 · 发表于 2020-5-28 13:45:03

不错的，谢谢楼主分享。

13678642166 · 发表于 2021-2-23 13:58:17

太好用了，感谢大神

yaojing38 · 发表于 2022-4-11 11:26:57

谢谢分享，，非常好用！！！

aklakl49 · 发表于 2024-1-16 17:35:52

非常特别的功能

striver · 发表于 2024-1-26 16:43:51

动态辅助线在做线段垂线的时候很有用。

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

[工具] 动态辅助线

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