[求助]板主求命啊。对批量LINE进行有规律打断

pfrynwgkq · 发表于 2005-12-27 13:34

要求：
1 可以批量选择。只对LINE起作用
2 以LINE两端为基点、往中心的一段距离保留（如图中的100），其它的都删掉。
3 要保留的长度（如图中的100）可以调整（可以手动输入与在图上点取）

pfrynwgkq · 发表于 2005-12-27 13:42

这是我一个个打断的图。

我就是要图中的结果。

能帮我吗？？

急急急。。。。。。。。

龙龙仔 · 发表于 2005-12-27 17:16

随便写写,可能不是你要的

pfrynwgkq · 发表于 2005-12-27 22:15

谢谢版主

这个基本能解决我的问题了。

chdxllll · 发表于 2006-1-22 21:24

在网上搜索了一下，还是没能很好解决。
1、直线连接（能够设定距离），并能一次连接多条直线。pedit不太好用。
2、能删除重叠的实体（主要针对重叠的直线或者多义线，允许两段不完全重叠）。
3、能指定长度打断多义线（例如在一段曲线上指定左侧起长50mm处断开，下一步能很轻松将左侧为设实线，右侧的线设为虚线），不要求等分断开，能简单指定断开的方向（能简单指定所确定断开距离是从左向右算还是从右向左等）。

4、格式刷能刷将直线刷为多义线。
以上的程序能适用于2006中。

xyp1964 · 发表于 2006-2-7 13:24

;;;zjdd(中间打断)
;;;1 可以批量选择，只对LINE起作用。
;;;2 以LINE两端为基点、往中心的一段距离保留，删掉中间的一段。
;;;3 要保留的长度可以调整（可以手动输入与在图上点取）
(defun c:zjdd (/ ss i s1 leng pt1 pt2)
(CMDLA0)
(setq ss (ssget '((0 . "LINE")))
DIST (UDIST 7 "" "\n线两端要保留的长度" DIST nil)
;no1 (UREAL 7 "" "\n线两端要保留的长度" no1)
i -1
)
(setvar "osmode" 0)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq leng (xyp-get-CurveLength s1))
(if (> leng (* 2.0 DIST))
(progn
(setq pt1 (xyp-get-CurvePointAtDist s1 DIST)
pt2 (xyp-get-CurvePointAtDist s1 (- leng DIST))
)
(command "break" (list s1 pt1) "f" pt1 pt2)
)
)
)
(CMDLA1)
)
(pxyp"zjdd (中间打断)")
(princ)

CBACBA · 发表于 2006-3-7 17:10

请问这是什么语言编的，我想学学。

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

[求助]板主求命啊。对批量LINE进行有规律打断

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源