关于用户手册中的多义线代码的疑问

写诗天涯

xdrx_api用户手册中的多义线增减节点命令：在CAD2008中为什么不能正常运行。出现以下错误：
命令: POLY_REMOVE_VERTEX
请点取要去掉的多义线上的顶点<退出>no function definition: $GET_VERTEX_INDEX,程序退出!; 错误: *error*
函数中出错参数类型错误: consp nil

为什么呢？？？？？？已经加载了ACAD 2008-2009 build 2013.1020

源程序代码：
;|

   命令：poly_add_vertex

   功能：给选择的POLYLINE段加入一个顶点



   说明：程序配合XDRX_API使用，朋友们可以把这个LISP拷贝到“晓东工具箱”的安装的

          LISP目录，自己加入到菜单里面就可以非常方便的使用了。

          关于程序的建议请到“晓东CAD空间-编程申请”论坛

          http://www.xdcad.com/forum留言



|;

(defun $get_vertex_index (e pt / v_num i tf)

    (xdrx_setenttodb e)
将实体的(entget)数据存入XDRX内部数据库的ARX变量，若该变量指针有值，则覆盖。并将(ssname) 的序号 i 置 0

    (if (= "POLYLINE" (xdrx_getentdxf 0))


提取XDRX内部数据库保存的(entget)实体数据的ARX变量中的指定的DXF组码的值     (xdrx_polyline_ConvertFrom e)
从2DPOLYLINE(R13老多义线)转换得到LWPOLYLINE   )

    (setq v_num (xdrx_polyline_numVerts e)
获得LWPOLYLINE的顶点数
        i -1

  )
  (setq tf t)
  (while (and
           tf
           (< i v_num)
         )
    (setq i (1+ i))

    (if (xdrx_polyline_onSegAt e i (trans pt 1 0))
   
    (setq tf nil)

    )

  )
  i
)

(defun c:poly_add_vertex (/ e pt pj)

  (if (and

        (setq e (xdrx_entsel "\n请点取POLY上加入顶点的线段<退出>" '

                             ((0 . "*polyline"))

                )

        )

        (setq pt (getpoint "\n请点取要加入的顶点位置<退出>:"))



      )

    (progn

      (setq pj (trans (cadr e) 1 0)

            pj (osnap pj "nea")

      )

      (setq i ($get_vertex_index (car e) pj))

      (xdrx_polyline_addVertexAt (car e) (1+ i) pt)

    )

  )

  (princ)

)

;|

   命令：poly_remove_vertex

   功能：删除选择的POLYLINE的一个顶点

   说明：程序配合XDRX_API build 20428＋版本使用，朋友们可以把这个LISP拷贝到“晓东工具箱”的安装的

          LISP目录，自己加入到菜单里面就可以非常方便的使用了。

          关于程序的建议请到“晓东CAD空间-编程申请”论坛

          http://www.xdcad.com/forum留言  

|;

(defun c:poly_remove_vertex ()

  (xdrx_begin '(("pickbox" 5 "aperture" 5))

  (if (setq e (xdrx_entsel "\n请点取要去掉的多义线上的顶点<退出>" '

                           ((0 . "*polyline"))

              )

      )

    (progn

      (setq pj (trans (cadr e) 1 0)

            pj (osnap pj "int,end")

      )

      (setq i ($get_vertex_index (car e) pj))

      (xdrx_polyline_removeVertexAt
   
                (car e) (1+ i))

    )

  )

  (xdrx_end)

  (princ)

)

newer

提示你 函数 $GET_VERTEX_INDEX 没加载，你贴的代码第一个函数就是它，你加载它了吗？