求大神帮忙写一个CAD里面LSP命令，要求如下

(defun c:tes ( / &kw1 ent n obj p1 ss1 ss5 x)

 (vl-load-com)

 (if (and (setq ent (entsel "\n请选择多段线对象"))

     (setq ent (car ent))

     (= (cdr (assoc 0 (entget ent))) "LWPOLYLINE")

   )

  (progn1

   (sssetfirst nil (ssadd ent))

   (setq obj (vlax-ename->vla-object ent))

   (setq ss5 (apply 'append (mapcar 'cdr (vl-remove-if '(lambda (X) (/= 10 (car x))) (entget ent)))))

   (setq n (- (length ss5) 1) ss5 (vlax-safearray-fill (vlax-make-safearray vlax-vbDouble (cons 0 n)) ss5))双精度表

   (setq ss5 (list ss5))

   (while (setq p1 (x1808262))

    (if (= (type p1) 'STR)

     (progn2-1

      (if (> (length ss5) 1) (setq ss5 (cdr ss5)) )

      (setq ss1 (car ss5))

      (vla-put-Coordinates obj ss1)

     )progn2-1

     (if (setq ss1 (x1808261 ent obj p1)) (setq ss5 (cons ss1 ss5)) )

    )if2

   )while

   (sssetfirst nil)

  )progn1

 )if

 (princ)

)复制到记事本，以【.lsp】后缀命名，CAD命令【appload】加载

修改多段线节点

(defun x1808261 (ent obj p1 / ent n obj p1 ss1 x y)

 (setq ss1 (mapcar 'cdr (vl-remove-if '(lambda (X) (/= 10 (car x))) (entget ent))) n 0)

 (setq ss1 (mapcar '(lambda (x) (list (setq n (1+ n)) (distance p1 x) x)) ss1))

 (setq ss1 (apply 'append (mapcar 'caddr (vl-sort (cdr (vl-sort ss1 '(lambda (x y) (< (cadr x) (cadr y))))) '(lambda (x y) (< (car x) (car y)))))))

 (setq n (- (length ss1) 1) ss1 (vlax-safearray-fill (vlax-make-safearray vlax-vbDouble (cons 0 n)) ss1))双精度表

 (vla-put-Coordinates obj ss1)

 (if (>= n 1) ss1 nil)

)

(defun x1808262 ()

 (initget "U")

 (getpoint "\n请选择要删除的点[返回上一步(U)]")

)

AutoCAD的二次开发主要涉及以下内容：（1）编写各种用户自定义函数并形成若干LISP、ARX、VLX或ADS文件，以及一些DCL文件。（2）建立符合自己要求的菜单文件，一般可在AutoCAD原菜单文件内添加自己的内容，对于AutoCAD2000版本还可增加部分菜单文件，然后经交互方式加入到系统中去。（3）在系统的ACAD.LSP或类似文件中加入某些内容以便进行各种初始化 *** 作，如在启动时立即装入一些文件等。（4）通过系统对话框设置某些路径。这些 *** 作在程序开发成功后向其它AutoCAD系统上安装应用，特别是需要大批安装时，需要进行很多文件检索、内容增删、子目录创建、文件拷贝、系统设置等繁琐工作，如能令上述工作全部自动进行，使整个二次开发程序在无人干预的情况下嵌入系统，将大大提高工作效率。

AutoCAD荣登全球绘图软件的龙头宝座，主要是因为它具有开放的体系结构。它允许用户和开发者采用高级编程语言对其进行扩充和修改，即二次开发，能最大限度地满足用户的特殊要求。AutoCAD第一版于1982年11月由AutoDESK公司推出，目前大家广泛使用的是AutoCAD2000或2002，最新版本是AutoCAD2004，其二次开发语言及工具也在不断地涌现

1AutoLISP

AutoLISP的全名是LISTProcessingLanguage，她出现于1985年推出的AutoCADR2.18中，是一种嵌入在AutoCAD内部的编程语言，是LISP原版的一个子集，她一直是低版本AutoCAD的首选编程语言。它是一种表处理语言，是被解释执行的，任何一个语句键入后就能马上执行，它对于交互式的程序开发非常方便。其缺点是继承了LISP语言的编程规则而导致繁多的括号。

3ADS

ADS的全名是AutoCADDevelopmentSystem，它是AutoCAD的C语言开发系统，ADS本质上是一组可以用C语言编写AutoCAD应用程序的头文件和目标库，它直接利用用户熟悉的各种流行的C语言编译器，将应用程序编译成可执行的文件在AutoCAD环境下运行，这种可以在AutoCAD环境中直接运行的可执行文件叫做ADS应用程序。ADS由于其速度快，又采用结构化的编程体系，因而很适合于高强度的数据处理，如二次开发的机械设计CAD、工程分析CAD、建筑结构CAD、土木工程CAD、化学工程CAD、电气工程CAD等。

4ObjectARX

ObjectARX是一种崭新的开发AutoCAD应用程序的工具，她以C++为编程语言，采用先进的面向对象的编程原理，提供可与AutoCAD直接交互的开发环境，能使用户方便快捷地开发出高效简洁的AutoCAD应用程序。ObjectARX并没有包含在AutoCAD中，可在AutoDESK公司网站中去下载，其最新版本是ObjectARXforAutoCAD2000，它能够对AutoCAD的所有事务进行完整的、先进的、面向对象的设计与开发，并且开发的应用程序速度更快、集成度更高、稳定性更强。ObjectARX从本质上讲，是一种特定的C++编程环境，她包括一组动态链接库（DLL），这些库与AutoCAD在同一地址空间运行并能直接利用AutoCAD核心数据结构和代码，库中包含一组通用工具，使得二次开发者可以充分利用AutoCAD的开放结构，直接访问AutoCAD数据库结构、图形系统以及CAD几何造型核心，以便能在运行期间实时扩展AutoCAD的功能，创建能全面享受AutoCAD固有命令的新命令。ObjectARX的核心是两组关键的API，即AcDb(AutoCAD数据库)和AcEd(AutoCAD编译器)，另外还有其它的一些重要库组件，如AcRX(AutoCAD实时扩展)、AcGi(AutoCAD图形接口)、AcGe(AutoCAD几何库)、ADSRX(AutoCAD开发系统实时扩展）。ObjectARX还可以按需要加载应用程序；使用ObjectARX进行应用开发还可以在同一水平上与Windows系统集成，并与其它Windows应用程序实现交互 *** 作。

5VisualLISP

VisualLISP已经被完整地集成到AutoCAD2000中，她为开发者提供了崭新的、增强的集成开发环境，一改过去在AutoCAD中内嵌AtuoLISP运行引擎的机制，这样开发者可以直接使用AutoCAD中的对象和反应器，进行更底层的开发。其特点为自身是AutoCAD2000中默认的代码编辑工具；用它开发AutoLISP程序的时间被大大地缩短，原始代码能被保密，以防盗版和被更改；能帮助大家使用ActiveX对象及其事件；使用了流行的有色代码编辑器和完善的调试工具，使大家很容易创建和分析LISP程序的运行情况。在VisualLISP中新增了一些函数：如基于AutoLISP的ActiveX/COM自动化 *** 作接口；用于执行基于AutoCAD内部事件的LISP程序的对象反应器；新增了能够对 *** 作系统文件进行 *** 作的函数。

6VBA

VBA即Mcrosoftoffice中的VisualBasicforApplications，它被集成到AutoCAD2000中。VBA为开发者提供了一种新的选择，也为用户访问AutoCAD2000中丰富的技术框架打开一条新的通道。VBA和AutoCAD2000中强大的ActiveX自动化对象模型的结合，代表了一种新型的定制AutoCAD的模式构架。通过VBA，我们可以 *** 作AutoCAD，控制ActiveX和其它一些应用程序，使之相互之间发生互易活动。