（XDGE几何库应用－35）多段线局部双偏移

Lispboy · 发表于 2017-5-17 23:56:20

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

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

×

本帖最后由 newer 于 2017-5-18 00:01 编辑

多段线局部双偏移.gif

(defun c:tt ()
(and
(setq e (car (xdrx_entsel "\n选取多段线<退出>:" '((0 . "LWPOLYLINE")))))
(setq dis (getreal "\n输入偏移距离<退出>:"))
(setq p1 (getpoint "\n起始点<退出>:"))
(setq p1 (trans p1 1 0))
(setq p1 (xdrx_curve_getclosestpoint e p1))
(setq p2 (getpoint p1 "\n第二点<退出>:"))
(xdrx_begin)
(setq p2 (trans p2 1 0))
(setq p2 (xdrx_curve_getclosestpoint e p2))
(setq g (xd::curve:getsub e p1 p2 p1))
(setq normal (xdrx_getpropertyvalue e "normal"))
(setq g1 (xd::vla:catchapply 'xdge::getpropertyvalue (list g "getTrimmedOffset"
dis normal 2
)
)
)
(setq g2 (xd::vla:catchapply 'xdge::getpropertyvalue (list g "getTrimmedOffset"
(- dis)
normal 2
)
)
)
(setq ss (xdge::entity:make g1 g2))
(mapcar
'(lambda (x)
(xdrx_entity_setpropertiesfrom x e)
)
(xdrx_pickset->ents ss)
)
(xdge::free g g1 g2)
(xdrx_end)
)
(princ)
)

(defun c:tt () 
  (and 
    (setq e (car (xdrx_entsel "\n选取多段线<退出>:" '((0 . "LWPOLYLINE"))))) 
    (setq dis (getreal "\n输入偏移距离<退出>:")) 
    (setq p1 (getpoint "\n起始点<退出>:")) 
    (setq p1 (trans p1 1 0)) 
    (setq p1 (xdrx_curve_getclosestpoint e p1)) 
    (setq p2 (getpoint p1 "\n第二点<退出>:")) 
    (xdrx_begin) 
    (setq p2 (trans p2 1 0)) 
    (setq p2 (xdrx_curve_getclosestpoint e p2)) 
    (setq g (xd::curve:getsub e p1 p2 p1)) 
    (setq normal (xdrx_getpropertyvalue e "normal")) 
    (setq g1 (xd::vla:catchapply 'xdge::getpropertyvalue (list g "getTrimmedOffset" 
                                                               dis normal 2 
                                                         ) 
             ) 
    ) 
    (setq g2 (xd::vla:catchapply 'xdge::getpropertyvalue (list g "getTrimmedOffset" 
                                                               (- dis) 
                                                               normal 2 
                                                         ) 
             ) 
    ) 
    (setq ss (xdge::entity:make g1 g2)) 
    (mapcar 
      '(lambda (x) 
         (xdrx_entity_setpropertiesfrom x e) 
       ) 
      (xdrx_pickset->ents ss) 
    ) 
    (xdge::free g g1 g2) 
    (xdrx_end) 
  ) 
  (princ) 
)

sh_h · 发表于 2017-5-18 09:58:35

真的好厉害啊！！！

longer1000 · 发表于 2017-5-18 10:31:49

好厉害啊！！！

zc15477648 · 发表于 2019-4-18 01:08:02

牛逼~~~~~~~~~~

msp233 · 发表于 2019-5-13 13:27:29

谢谢楼主分享

striver · 发表于 2024-1-8 20:16:01

测试报错，不知何故，提示如下：
错误: 函数错误: FOO

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

[每日一码] （XDGE几何库应用－35）多段线局部双偏移

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