偏移封闭

zhuizhu · 发表于 2014-9-22 09:27:06

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

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

×

$C7AG{8)V[EXTR5Y@}_9[UPT.png$

输入偏移距离，选直线，指定一个方向点，偏移封闭
(注意封闭的地方是垂直或水平线)

牢固 · 发表于 2014-9-22 10:01:17

本帖最后由牢固于 2014-9-22 10:22 编辑

这不是偏移，是相对水平方向或垂直方向复制后再封闭端口！

(defun c:tt (/ e e1 p pt v)
(if (and
(setq e (entsel "\n选择曲线:"))
(setq p (cadr e)
e (car e)
)
(WCMATCH (cdr (assoc 0 (entget e))) "*LINE,ARC,ELLIPSE")
)
(progn
(setq p (vlax-curve-getclosestpointto e (trans p 1 0)))
(while (not (setq pt (getpoint "\n偏移位置点:"))))
(setq pt (trans pt 1 0))
(setq v (mapcar '- pt p))
(if (> (abs (car v)) (abs (cadr v)))
(setq pt (list (+ (car p) (car v)) (cadr p) 0))
(setq pt (list (car p) (+ (cadr p) (cadr v)) 0))
)
(command "_copy"
e
""
"non"
(trans p 0 1)
"non"
(trans pt 0 1)
)
(setq e1 (entlast))
(command "line"
"non"
(trans (vlax-curve-getStartPoint e) 0 1)
"non"
(trans (vlax-curve-getStartPoint e1) 0 1)
""
)
(command "line"
"non"
(trans (vlax-curve-getEndPoint e) 0 1)
"non"
(trans (vlax-curve-getEndPoint e1) 0 1)
""
)
)
)
(princ)
)

(defun c:tt (/ e e1 p pt v) 
  (if (and 
  (setq e (entsel "\n选择曲线:")) 
  (setq p  (cadr e) 
        e  (car e) 
  ) 
  (WCMATCH (cdr (assoc 0 (entget e))) "*LINE,ARC,ELLIPSE") 
      ) 
    (progn 
      (setq p (vlax-curve-getclosestpointto e (trans p 1 0))) 
      (while (not (setq pt (getpoint "\n偏移位置点:")))) 
      (setq pt (trans pt 1 0)) 
      (setq v (mapcar '- pt p)) 
      (if (> (abs (car v)) (abs (cadr v))) 
  (setq pt (list (+ (car p) (car v)) (cadr p) 0)) 
  (setq pt (list (car p) (+ (cadr p) (cadr v)) 0)) 
      ) 
      (command "_copy" 
         e 
         "" 
         "non" 
         (trans p 0 1) 
         "non" 
         (trans pt 0 1) 
      ) 
      (setq e1 (entlast)) 
      (command "line" 
         "non" 
         (trans (vlax-curve-getStartPoint e) 0 1) 
         "non" 
         (trans (vlax-curve-getStartPoint e1) 0 1) 
         "" 
      ) 
      (command "line" 
         "non" 
         (trans (vlax-curve-getEndPoint e) 0 1) 
         "non" 
         (trans (vlax-curve-getEndPoint e1) 0 1) 
         "" 
      ) 
    ) 
  ) 
  (princ) 
)

st788796 · 发表于 2014-9-22 10:14:44

本帖最后由 st788796 于 2014-9-22 11:00 编辑

(defun c:tt (/ ss d)
(if (and (setq ss (ssget '((0 . "line"))))
(setq d (getdist "\nOffset dist: "))
)
(progn
(setq _pi2 (/ pi 2)
_3pi (* 1.5 pi)
)
(mapcar '(lambda (ln / an sp ep dis pts)
(setq an (xdrx_getpropertyvalue ln "angle")
sp (xdrx_curve_getstartpoint ln)
ep (xdrx_curve_getendpoint ln)
)
(if (or (<= (* 0.25 pi) an (* 0.75 PI))
(<= (* 1.25 pi) an (* 1.75 PI))
)
(setq dis (/ d (sin an))
pts (list (polar sp 0. dis)
(polar ep 0. dis)
(polar ep pi dis)
(polar sp pi dis)
)
)
(setq dis (/ d (cos an))
pts (list (polar sp _pi2 dis)
(polar ep _pi2 dis)
(polar ep _3pi dis)
(polar sp _3pi dis)
)
)
)
(apply 'xdrx_polyline_make (cons t pts))
)
)
(xdrx_pickset->ents ss)
)
)
(princ)
)

(defun c:tt (/ ss d) 
  (if (and (setq ss (ssget '((0 . "line")))) 
           (setq d (getdist "\nOffset dist: ")) 
      ) 
    (progn 
      (setq _pi2 (/ pi 2) 
            _3pi (* 1.5 pi) 
      ) 
      (mapcar '(lambda (ln / an sp ep dis pts) 
                 (setq an (xdrx_getpropertyvalue ln "angle") 
                       sp (xdrx_curve_getstartpoint ln) 
                       ep (xdrx_curve_getendpoint ln) 
                 ) 
                 (if (or (<= (* 0.25 pi) an (* 0.75 PI)) 
                         (<= (* 1.25 pi) an (* 1.75 PI)) 
                     ) 
                   (setq dis (/ d (sin an)) 
                         pts (list (polar sp 0. dis) 
                                   (polar ep 0. dis) 
                                   (polar ep pi dis) 
                                   (polar sp pi dis) 
                             ) 
                   ) 
                   (setq dis (/ d (cos an)) 
                         pts (list (polar sp _pi2 dis) 
                                   (polar ep _pi2 dis) 
                                   (polar ep _3pi dis) 
                                   (polar sp _3pi dis) 
                             ) 
                   ) 
                 ) 
                 (apply 'xdrx_polyline_make (cons t pts)) 
               ) 
      ) 
      (xdrx_pickset->ents ss) 
    ) 
  ) 
  (princ) 
)

Lisphk · 发表于 2014-9-22 10:27:11

st788796 发表于 2014-9-22 10:14

为什么里面有的用了XDRX，有的曲线用了vlax-curve-xxx，XDRX API里面不也有CURVE相关的函数吗？

st788796 · 发表于 2014-9-22 10:59:36

Lisphk 发表于 2014-9-22 10:27
为什么里面有的用了XDRX，有的曲线用了vlax-curve-xxx，XDRX API里面不也有CURVE相关的函数吗？

应该用相同的函数，这样才能保证精度一致，已修改

wx_GeteT5cS · 发表于 2017-6-29 16:02:49

我来测试一下，行不行。。。。

xinyeyu · 发表于 2019-9-11 22:58:00

牢固大哥，能把源码改下吗，设置下偏移距离

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

[求助] 偏移封闭

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

评分

点评

评分

浏览过的版块