[求助]TRIM命令帮忙

ctclsc

请各位高手帮我编一个lisp程序，要求能够实现动画中的功能：TRIM---E---E

谢谢了！！！

caiqs

将edgemode设为1 EDGEMODE 系统变量

MSITStore:C:\Program%20Files\AutoCAD%202006\help\acad_acr.chm::/ac.TabOff1.gif" alt=""/> 概念 MSITStore:C:\Program%20Files\AutoCAD%202006\help\acad_acr.chm::/ac.TabOff3.gif" alt=""/>   MSITStore:C:\Program%20Files\AutoCAD%202006\help\acad_acr.chm::/ac.TabOff1.gif" alt=""/> 操作步骤 MSITStore:C:\Program%20Files\AutoCAD%202006\help\acad_acr.chm::/ac.TabOff3.gif" alt=""/>   MSITStore:C:\Program%20Files\AutoCAD%202006\help\acad_acr.chm::/ac.TabOn1.gif" alt=""/> 命令 MSITStore:C:\Program%20Files\AutoCAD%202006\help\acad_acr.chm::/ac.TabOn3.gif" alt=""/>

类型:	整数
保存位置:	注册表
初始值:	0

控制 TRIM 和 EXTEND 命令确定边界的边和剪切边的方式。

0	使用不带延伸线的选定边
1	将选定的对象延伸或修剪到剪切边或边界的假想延伸线

直线、圆弧、椭圆弧、射线和多段线都是可以自然延伸的对象。 直线和射线的自然延伸都是无限长线（构造线）。圆弧的自然延伸是一个圆，而椭圆弧的自然延伸是一个椭圆。 多段线可以拆分成直线和圆弧部件，这些部件都可以延伸到其自然边界。

samshs

2. (defun C:tr()
3. (command "TRIM" "e" "e")
4. (princ))

(defun C:tr() (command "TRIM" "e" "e") (princ))