希望大家推荐个经典的延伸剪切程序

tm20038175 · 发表于 2012-3-26 21:07:03

本帖最后由 tm20038175 于 2012-3-26 21:07 编辑

在论坛搜索了半天，发现这样的帖子不是没有，而是太多了，而且鱼目混杂，难以分辨，而高手们又十分低调，这样，好的程序就淹没在了滚滚宏潮中。
现在请大家推荐个经典的剪切和延伸程序，希望能做到：
剪切程序，点击一条曲线，点击曲线一侧，这侧与其相交的曲线都被剪切。
延伸程序，点击一条曲线，选择多条曲线，多条曲线自动延伸到第一条曲线。

tm20038175 · 发表于 2012-3-26 23:33:53

自己顶一个…………

wowan1314 · 发表于 2012-3-29 00:31:30

本帖最后由 wowan1314 于 2012-3-29 01:08 编辑

建议一个个帖子都看完整，出现的程序一个个试，直到找到满意的为止。或相似的改造下。

注册 · 发表于 2012-3-29 07:30:52

灯花剔尽暗窗斜

xyp1964 · 发表于 2012-3-29 07:51:11

;; xbjq(选边剪切) 需要e派工具箱(xcad.vlx)的支持：http://xyp1964.ys168.com
(defun c:xbjq (/ s1 p2 p3 s2 ptn pt)
(CMDLA0)
(setvar "osmode" 0)
(if (and (setq s1 (car (entsel "\n选择剪切边界: ")))
(xyp-curve-check s1)
(setq p2 (xyp-get-CurveMidPoint s1))
(setq p3 (getpoint p2 "\n剪切方向<退出>: "))
)
(progn
(xyp-copymove s1 p2 (polar p2 (angle p2 p3) 0.1))
(setq s2 (entlast)
ptn (xyp-get-Vertexs s2 0)
s1 (list s1 (vlax-curve-getstartPoint s1))
)
(command "trim" s1 "" "f")
(foreach pt ptn
(command pt)
)
(command "" "")
(entdel s2)
)
)
(CMDLA1)
)

xyp1964 · 发表于 2012-3-29 08:03:10

;;多重延伸
(defun c:dcys (/ ss1)
(Princ "\n选择延伸线: ")
(while (not (setq ss1 (ssget))))
(Princ "选择被延伸线: ")
(command "extend" ss1 "" "f")
(princ)
)

Mr丨丶King · 发表于 2012-3-29 09:04:33

顶上去啊哈哈

kfboy · 发表于 2012-3-29 09:12:29

这个真不错！！！

teykmcqh · 发表于 2012-3-29 09:35:15

这跟CAD本身的剪切延伸有什么区别呢？

tm20038175 · 发表于 2012-3-29 23:09:40

学习了，呵呵。。。。。

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

希望大家推荐个经典的延伸剪切程序

浏览过的版块