[原创]：经EACHY指点写了一个曲线打断程序

snsj · 发表于 2004-2-10 11:04:16

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

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

×

;;;曲线断开程序
;;;定数等分/定距等分
;;;snsj,2004.2.8
(defun c:dk (/ ss int getdst obj getdiv ssnm pt i getds)
(setq ss (ssget '((0 . "LINE,POLYLINE,LWPOLYLINE,SPLINE,ARC"))) i 0)
(initget (+ 1 2 4))
(setq int (getint "\n定数等分<直接输入等分数>/定距等分<按键盘数字1>:"))
(if (= int 1)(setq getdst (getdist "\n***输入要等分的距离<可直接量取>***:")))
(repeat (sslength ss)
(setq obj (vlax-ename->vla-object(setq ssnm (ssname ss i))))
(cond
((= int 1) (setq getdiv getdst)(setq int (+(fix(/ (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj)) getdst))1)))
(t (setq getdiv (/(vlax-curve-getdistatparam obj (vlax-curve-getendparam obj))int)))
)
(repeat (- int 1)
(setq getds (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj)))
(vl-cmdf ".break" ssnm (setq pt (vlax-curve-getPointAtDist obj (- getds getdiv))) pt)
)
(setq i (+ i 1))
)(princ)
)

陌生人 · 发表于 2004-2-10 14:01:18

测试了么？我测试只能打断第一点（定距离）

snsj · 发表于 2004-2-10 15:06:51

我这里在2002和2004里测试没有问题呀

eachy · 发表于 2004-2-10 18:23:15

把我的贴上来，交流下

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

陌生人 · 发表于 2004-2-10 20:43:57

(defun c:xbr (/ os oe ss vss n d len e obj e)
(princ "\n等分打断曲线--------------------陌生人.2004.2")
(defun *error* (msg) (setvar "osmode" os)(vl-cmdf ".undo" "e")(setq *error* oe))
(vl-cmdf ".undo" "be")
(princ "\n选择要等分的曲线:")
(setq oe *error*
os (getvar "osmode")
ss (ssget '((0 . "LINE,*POLYLINE,SPLINE,ARC")))
vss (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
(setvar "osmode" 0)
(or (setq n (getint "\n等分数<按距离等分>:")) (setq d (getdist "\n等距离:")))
(vlax-for obj vss
(setq len (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj))
e (vlax-vla-object->ename obj))
(if n (setq d (/ len n) m n)
(setq m (1+ (fix (/ len d)))))
(repeat (1- m)
(if (setq pt (vlax-curve-getpointatdist obj d))
(vl-cmdf ".break" (list e pt) pt)
)
(setq e (entlast)
obj (vlax-ename->vla-object e))
)
)
(setvar "osmode" os)
(vl-cmdf ".undo" "e")(princ)
)

(defun c:xbr (/ os oe ss vss n d len e obj e) 
  (princ "\n等分打断曲线--------------------陌生人.2004.2") 
  (defun *error* (msg) (setvar "osmode" os)(vl-cmdf ".undo" "e")(setq *error* oe)) 
  (vl-cmdf ".undo" "be") 
  (princ "\n选择要等分的曲线:") 
  (setq oe  *error* 
        os  (getvar "osmode") 
        ss  (ssget '((0 . "LINE,*POLYLINE,SPLINE,ARC"))) 
        vss (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))) 
  (setvar "osmode" 0) 
  (or (setq n (getint "\n等分数<按距离等分>:")) (setq d (getdist "\n等距离:"))) 
  (vlax-for obj vss 
    (setq len (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj)) 
          e   (vlax-vla-object->ename obj)) 
    (if n (setq d (/ len n) m n) 
          (setq m (1+ (fix (/ len d))))) 
    (repeat (1- m) 
      (if (setq pt (vlax-curve-getpointatdist obj d)) 
          (vl-cmdf ".break" (list e pt) pt) 
      ) 
      (setq e   (entlast) 
            obj (vlax-ename->vla-object e)) 
    ) 
  ) 
  (setvar "osmode" os) 
  (vl-cmdf ".undo" "e")(princ) 
)

xlmx-whj · 发表于 2004-2-14 23:36:08

谢谢大虾的劳动，很好用收藏了。

yjch · 发表于 2013-7-18 15:36:49

向EACHY大侠要多学习

zhangq_cai1 · 发表于 2013-7-18 16:32:42

谢谢大虾的劳动，很好用收藏了。

yzr2002626 · 发表于 2013-7-18 16:35:14

这样老的帖子都顶出来了.

GTJ116600 · 发表于 2013-7-19 17:21:40

呵呵，看看研究研究

/db_自贡黄明儒_ · 发表于 2013-7-20 09:17:03

都是高手呀，想看看eachy的

GTJ116600 · 发表于 2013-7-20 18:43:36

这个好！！！！赞一个

tangxuefeng · 发表于 2017-4-12 13:56:33

EACHY，请给参考一下代码

yoyoho · 发表于 2017-4-12 14:00:37

向EACHY大侠学习了

ynhh · 发表于 2017-4-12 15:44:41

试试看也学习一下啊

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

[原创]：经EACHY指点写了一个曲线打断程序

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

相关帖子