[求助]TRIM命令帮忙
<p>请各位高手帮我编一个lisp程序，要求能够实现动画中的功能：TRIM---E---E</p><p>谢谢了！！！</p> <table class="HeadingTable" cellspacing="0" cellpadding="0" width="103%" border="0"><tbody><tr><td colspan="2"><div class="TopHead">将edgemode设为1</div><div class="TopHead"></div><div class="TopHead">EDGEMODE 系统变量</div> </td></tr><tr valign="bottom"><td colspan="2" height="33"><table class="TabTable" cellspacing="0" cellpadding="0" border="0"><tbody><tr><td width="5"> </td><td width="5"> </td><td><img src="mk:@MSITStore:C:\Program%20Files\AutoCAD%202006\help\acad_acr.chm::/ac.TabOff1.gif" alt=""/></td><td class="TabOffCell"><nobr><a href="ms-its:ACAD_AUG.chm::/AUG.20.133.htm">概念</a></nobr></td><td><img src="mk:@MSITStore:C:\Program%20Files\AutoCAD%202006\help\acad_acr.chm::/ac.TabOff3.gif" alt=""/></td><td width="5"> </td><td><img src="mk:@MSITStore:C:\Program%20Files\AutoCAD%202006\help\acad_acr.chm::/ac.TabOff1.gif" alt=""/></td><td class="TabOffCell"><nobr><a href="ms-its:ACAD_AUG.chm::/AUG.20.134.htm">操作步骤</a></nobr></td><td><img src="mk:@MSITStore:C:\Program%20Files\AutoCAD%202006\help\acad_acr.chm::/ac.TabOff3.gif" alt=""/></td><td width="5"> </td><td><img src="mk:@MSITStore:C:\Program%20Files\AutoCAD%202006\help\acad_acr.chm::/ac.TabOn1.gif" alt=""/></td><td class="TabOnCell"><nobr><a href="ms-its:ACAD_AUG.chm::/AUG.20.140.htm">命令</a></nobr></td><td><img src="mk:@MSITStore:C:\Program%20Files\AutoCAD%202006\help\acad_acr.chm::/ac.TabOn3.gif" alt=""/></td><td width="5"> </td></tr></tbody></table></td></tr></tbody></table><p class="table_body"><table><tbody><tr><th>类型: </th><td>整数</td></tr><tr><th>保存位置: </th><td>注册表</td></tr><tr><th>初始值: </th><td>0</td></tr></tbody></table></p><p class="body">控制 TRIM 和 EXTEND 命令确定边界的边和<font color="#ffffff" style="BACKGROUND-COLOR: #316ac5;">剪切</font>边的方式。</p><table class="NoRules" rules="none" border="0"><thead></thead><tbody><tr class="row_1"><td class="BasicLeft_CELL"><p class="table_body">0</p></td><td class="BasicLeft_CELL"><p class="table_body">使用不带延伸线的选定边</p></td></tr><tr class="row_1"><td class="BasicLeft_CELL"><p class="table_body">1</p></td><td class="BasicLeft_CELL"><p class="table_body">将选定的对象延伸或修剪到<font color="#ffffff" style="BACKGROUND-COLOR: #316ac5;">剪切</font>边或边界的假想延伸线</p></td></tr></tbody></table><p class="body">直线、圆弧、椭圆弧、射线和多段线都是可以自然延伸的对象。 直线和射线的自然延伸都是无限长线（构造线）。圆弧的自然延伸是一个圆，而椭圆弧的自然延伸是一个椭圆。 多段线可以拆分成直线和圆弧部件，这些部件都可以延伸到其自然边界。</p> (defun C:tr()(command "TRIM" "e" "e")
(princ))
页:
[1]