xyp1964 发表于 2012-7-28 08:38:39

曲线交点间隔打断


;; 交点间隔打断
(defun c:tt ()
(CMDLA0)
(while (setq s1 (car (entsel "\n选择: ")))
    (setq ptn (XYP-GET-CURVEINTERSLENG s1 1)
ptn (xyp-Curve-PtsLengSort s1 ptn t)
i   0
    )
    (while (and (setq p1 (nth i ptn))
(setq p2 (nth (+ i 1) ptn))
   )
      (xyp-BreakE s1 p2 p1)
      (setq i (+ i 2))
    )
)
(CMDLA1)
)



xiao88gang 发表于 2016-9-29 13:38:15

你的这个能改为把一条曲线按指定的个数和指定宽度打断吗？

jkop 发表于 2024-4-11 10:12:26

收藏！！
虽然不常用，但还是有机会用到，谢谢分享！

bai2000 发表于 2020-9-6 16:13:30

不错，哪位能做个山寨版么？

smartstar 发表于 2012-7-28 12:04:07

院长又出手了，占个沙发。

preone 发表于 2012-7-28 13:12:45

排队学习~~

sachindkini 发表于 2012-7-28 13:38:01

DEAR SIR, U R GENIUS   

仲文玉 发表于 2012-7-28 14:44:35

院长神人也

longer1000 发表于 2012-7-28 14:49:03

排队学习~~

陈亚娣 发表于 2013-9-11 15:20:29

排队学习

墨者 发表于 2018-3-28 02:03:20

谢谢楼主分享

LIULISHENG 发表于 2020-3-7 11:04:55

还能这样玩
页: [1] 2
查看完整版本: 曲线交点间隔打断