[求助]板主求命啊。对批量LINE进行有规律打断
<P></P><P><FONT face=宋体>要求：<BR>1 可以批量选择。只对LINE起作用<BR>2 以LINE两端为基点、往中心的一段距离保留（如图中的100），其它的都删掉。<BR>3 要保留的长度（如图中的100）可以调整（可以手动输入与在图上点取）</FONT></P> <P></P>
<P> </P>
<P>这是我一个个打断的图。</P>
<P>我就是要图中的结果。</P>
<P>能帮我吗？？</P>
<P>急急急。。。。。。。。</P> <P>随便写写,可能不是你要的</P>
<P></P> <P>谢谢版主 <BR></P>
<P>这个基本能解决我的问题了。</P> <TABLE height="100%">
<TBODY>
<TR height="100%">
<TD vAlign=top></TD>
<TD vAlign=top align=right width="10%" nowarp><INPUT class=btn style="FONT-SIZE: 9pt; FONT-FAMILY: 宋体" onclick="text1.style.fontSize='12pt';" type=button value=12号字><SELECT class=FormSelect style="FONT-SIZE: 9pt; VISIBILITY: visible; FONT-FAMILY: 宋体" onchange=text1.style.fontSize=this.value name=myfont> <OPTION value=9pt>9pt</OPTION> <OPTION value=10pt selected>10pt</OPTION> <OPTION value=11pt>11pt</OPTION> <OPTION value=12pt>12pt</OPTION> <OPTION value=13pt>13pt</OPTION> <OPTION value=15pt>15pt</OPTION></SELECT> </TD></TR>
<TR>
<TD colSpan=2><FONT id=text1 style="FONT-SIZE: 10pt" face="宋体,verdana, arial, helvetica">
<P><BR>在网上搜索了一下，还是没能很好解决。<BR>1、直线连接（能够设定距离），并能一次连接多条直线。pedit不太好用。<BR>2、能删除重叠的实体（主要针对重叠的直线或者多义线，允许两段不完全重叠）。<BR>3、能指定长度打断多义线（例如在一段曲线上指定左侧起长50mm处断开，下一步能很轻松将左侧为设实线，右侧的线设为虚线），不要求等分断开，能简单指定断开的方向（能简单指定所确定断开距离是从左向右算还是从右向左等）。</P>
<P>4、格式刷能刷将直线刷为多义线。<BR>以上的程序能适用于2006中。</FONT> </P></TD></TR></TBODY></TABLE> ;;;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)
请问这是什么语言编的，我想学学。
页:
[1]