多边形内剪切程序

qfkxc

请高手看一下多边形内剪切程序，加载后出现：错误: no function definition: GXL-DATA-XD-H

(defun c:edgetrimin (/ kd pl edge en)
  (initget 7 "S")
  (setq kd (getpoint "\n [选择多边形<S>]起点："))
  (cond ((= "S" kd )
  (while (not (setq edge (gxl-Sel-ENTSEL "\n 请选多边形: "
'((0 . "*Polyline,circle,spline,ELLIPSE"))))))
  (setq edge (car edge))
  (if (WCMATCH (GXL-DXF edge 0) "*POLYLINE" ) (vla-put-Closed
(vlax-ename->vla-object edge) :vlax-true))
  )
((and kd (= 'list (type kd)))
   (SETQ EN (ENTLAST))
   (vl-cmdf "_.pline" kd)
   (while (= 1 (getvar "cmdactive"))
     (vl-cmdf pause)
   ) ;_ while
  (if (not (eq en (entlast)))
    (progn
    (setq edge (entlast))
    (vla-put-Closed (vlax-ename->vla-object edge) :vlax-true)
    (GXL-DATA-XD-H edge "edgecopyflag")
    )
    )
)
)
  (if (not edge)
    (progn
      (alert "没有选中边界！")
      (abcdefg)
      )
    )
  (GXL-TRIMEDGEIN edge)
  (setq ss (ssget "x" '((-3 ("edgecopyflag")))))
  (if ss (vl-cmdf "_erase" ss ""))
  (reerr)
  )

EMD

no function definition: GXL-DATA-XD-H  提示的很明确了.缺少名字叫  GXL-DATA-XD-H    这个的自定义函数.你从哪弄到的代码.找放代码的人把程序要全了先.

EMD

百度了下.好像是 Gu_xl  的程序,要不你问问他看