曲线在点表处打断(command版)

WhoCanSay · 发表于 2016-6-3 10:45:14

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

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

×

发现这个程序很通用、实用，有非commad版的就好了:lol

;;[功能] Break entity at break points in list
;;(break_obj (car(entsel)) (list (getpoint)))
(defun break_obj (ent brkptlst / BRKOBJLST CLOSEDOBJ ENTTYPE MAXPARAM MINPARAM OBJ OBJ2BREAK P1PARAM P2 P2PARAM)
(setq obj2break ent
brkobjlst (list ent)
enttype (cdr (assoc 0 (entget ent)))
)
(foreach brkpt brkptlst ; get last entity created via break
; in case multiple breaks
(if brkobjlst
(progn ; if pt not on object x, switch
; objects
(if (not (numberp (vl-catch-all-apply
'vlax-curve-getdistatpoint
(list obj2break brkpt)
)
)
)
(foreach obj brkobjlst ; find the one that pt is on
(if (numberp (vl-catch-all-apply
'vlax-curve-getdistatpoint
(list obj brkpt)
)
)
(setq obj2break obj) ; switch objects
)
)
)
)
)
;; handle any objects that can not
;; be used with the break command
;; using one point, gap of 0.000001
;; is used
(cond
((and
(= "SPLINE" enttype) ; only closed splines
(vlax-curve-isclosed obj2break)
)
(setq p1param (vlax-curve-getparamatpoint obj2break brkpt)
p2 (vlax-curve-getpointatparam obj2break (+ p1param 0.000001))
)
(command "._break"
obj2break
"_non"
(trans brkpt 0 1)
"_non"
(trans p2 0 1)
)
)
((= "CIRCLE" enttype) ; break the circle
(setq p1param (vlax-curve-getparamatpoint obj2break brkpt)
p2 (vlax-curve-getpointatparam obj2break (+ p1param 0.000001))
)
(command "._break"
obj2break
"_non"
(trans brkpt 0 1)
"_non"
(trans p2 0 1)
)
(setq enttype "ARC")
)
((and
(= "ELLIPSE" enttype) ; only closed ellipse
(vlax-curve-isclosed obj2break)
) ; break the ellipse, code borrowed
; from joe burke 6/6/2005
(setq p1param (vlax-curve-getparamatpoint obj2break brkpt)
p2param (+ p1param 0.000001)
minparam (min
p1param
p2param
)
maxparam (max
p1param
p2param
)
obj (vlax-ename->vla-object obj2break)
)
(vlax-put obj 'startparameter maxparam)
(vlax-put obj 'endparameter (+ minparam (* pi 2)))
) ; ==================================
(t ; objects that can be broken
(setq closedobj (vlax-curve-isclosed obj2break))
(command "._break"
obj2break
"_non"
(trans brkpt 0 1)
"_non"
(trans brkpt 0 1)
)
(if (not closedobj) ; new object was created
(setq brkobjlst (cons (entlast) brkobjlst))
)
)
)
)
)

;;[功能] Break entity at break points in list 
;;(break_obj (car(entsel)) (list (getpoint))) 
(defun break_obj (ent brkptlst / BRKOBJLST CLOSEDOBJ ENTTYPE MAXPARAM MINPARAM OBJ OBJ2BREAK P1PARAM P2 P2PARAM) 
  (setq        obj2break ent 
        brkobjlst (list ent) 
        enttype          (cdr (assoc 0 (entget ent))) 
  ) 
  (foreach brkpt brkptlst                                    ;  get last entity created via break 
                                                            ; in case multiple breaks 
    (if        brkobjlst 
      (progn                                                    ;  if pt not on object x, switch 
                                                            ; objects 
        (if (not (numberp (vl-catch-all-apply 
                            'vlax-curve-getdistatpoint 
                            (list obj2break brkpt) 
                          ) 
                 ) 
            ) 
          (foreach obj brkobjlst                            ; find the one that pt is on 
            (if        (numberp (vl-catch-all-apply 
                           'vlax-curve-getdistatpoint 
                           (list obj brkpt) 
                         ) 
                ) 
              (setq obj2break obj)                            ; switch objects 
            ) 
          ) 
        ) 
      ) 
    ) 
    ;;  handle any objects that can not 
    ;; be used with the break command 
    ;;  using one point, gap of 0.000001 
    ;; is used 
    (cond 
      ((and 
         (= "SPLINE" enttype)                                    ; only closed splines 
         (vlax-curve-isclosed obj2break) 
       ) 
       (setq p1param (vlax-curve-getparamatpoint obj2break brkpt) 
             p2             (vlax-curve-getpointatparam obj2break (+ p1param 0.000001)) 
       ) 
       (command        "._break" 
                obj2break 
                "_non" 
                (trans brkpt 0 1) 
                "_non" 
                (trans p2 0 1) 
       ) 
      ) 
      ((= "CIRCLE" enttype)                                    ; break the circle 
       (setq p1param (vlax-curve-getparamatpoint obj2break brkpt) 
             p2             (vlax-curve-getpointatparam obj2break (+ p1param 0.000001)) 
       ) 
       (command        "._break" 
                obj2break 
                "_non" 
                (trans brkpt 0 1) 
                "_non" 
                (trans p2 0 1) 
       ) 
       (setq enttype "ARC") 
      ) 
      ((and 
         (= "ELLIPSE" enttype)                                    ; only closed ellipse 
         (vlax-curve-isclosed obj2break) 
       )                                                    ;  break the ellipse, code borrowed 
                                                            ; from joe burke  6/6/2005 
       (setq p1param  (vlax-curve-getparamatpoint obj2break brkpt) 
             p2param  (+ p1param 0.000001) 
             minparam (min 
                        p1param 
                        p2param 
                      ) 
             maxparam (max 
                        p1param 
                        p2param 
                      ) 
             obj      (vlax-ename->vla-object obj2break) 
       ) 
       (vlax-put obj 'startparameter maxparam) 
       (vlax-put obj 'endparameter (+ minparam (* pi 2))) 
      )                                                            ; ================================== 
      (t                                                    ;   objects that can be broken 
       (setq closedobj (vlax-curve-isclosed obj2break)) 
       (command        "._break" 
                obj2break 
                "_non" 
                (trans brkpt 0 1) 
                "_non" 
                (trans brkpt 0 1) 
       ) 
       (if (not closedobj)                                    ; new object was created 
         (setq brkobjlst (cons (entlast) brkobjlst)) 
       ) 
      ) 
    ) 
  ) 
)

WhoCanSay · 发表于 2016-6-3 14:56:32

可以用打断线做局部放大、多段局部拷贝等，这不，我做了一个曲线打断:lol，如下图

WhoCanSay · 发表于 2016-6-8 14:59:50

本帖最后由 WhoCanSay 于 2016-6-8 16:41 编辑

原函数有缺陷，改正后如下

游客，如果您要查看本帖隐藏内容请回复

ynhh · 发表于 2016-6-9 21:40:39

谢谢你的分享
谢谢你的分享

434939575 · 发表于 2016-6-10 11:54:31

学习了！谢谢！

PO0O0 · 发表于 2016-6-17 22:20:36

sckg 我看更新的

xxxxxxxxx123 · 发表于 2016-7-26 18:33:54

学习学习看以i下啊 xue'xi'x

sh_h · 发表于 2016-8-5 06:47:18

学习学习，谢谢楼主了

MY258 · 发表于 2016-8-22 11:42:14

很受教了************

rjtiantian · 发表于 2016-9-2 14:05:19

感谢分享，谢谢。。。。

yoyoho · 发表于 2016-9-2 15:04:48

感谢你的分享!!!!

lizhaoyang0306 · 发表于 2016-9-5 21:21:30

好东西看看

树櫴希德 · 发表于 2016-9-8 10:43:01

bmjl不明觉厉啊

shuaier · 发表于 2016-9-8 14:40:45

确实有缺陷，测试下这个！

hao3ren · 发表于 2016-11-22 03:18:43

看看修改过得函数

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

[研讨] 曲线在点表处打断(command版)

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

评分