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

pfrynwgkq

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

pfrynwgkq

 

这是我一个个打断的图。

我就是要图中的结果。

能帮我吗？？

急急急。。。。。。。。

龙龙仔

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

pfrynwgkq

谢谢版主

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

chdxllll

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

xyp1964

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

;;;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

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