[求助]急啊！我有个程序但是不能运行起来

airylee

我在网上下的多段线修测得lisp源代码，但是不知道怎么运行啊  我可以加载但是不能用啊 怎么办？

 

 

源代码：

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;线延伸;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:extendline (/ ensel ename object point width points first end)
  (setq osmode (getvar "osmode"))
  (if (setq ensel (entsel "\n请选择一根线:"))
    (progn
      (setvar "cmdecho" 0)
      (setvar "osmode" 0)
      (command "undo" "g")
      (setq ename (car ensel))
      (setq object (vlax-ename->vla-object ename))
      (if (= (vla-get-entityname object) "AcDbPolyline")
 (if (vlax-curve-isClosed object)
   (alert "这根线是闭合的!")
   (progn
     (setq width (car (vla-getWidth object 0 'StartWidth, 'EndWidth)))
     (setvar "plinewid" width)
     (setq point (cadr ensel))
     (setq point (list (car point) (cadr point) ))
     (setq points (poly_pts (vla-get-coordinates object)))
     (setq first (car points))
     (setq end (last points))
     (if (< (distance point first) (distance point end))
       (drawline first t points)
       (drawline end nil points)
     )
     (setvar "plinewid" 0)
   )
 )
 (princ "\n这个程序只支持LWPOLYLINE!")
      )
      (vlax-release-object object)
      (command "undo" "e")
      (setvar "osmode" osmode)
      (prin1)
    )
  )
)
(defun drawline (d_pt d_mode d_pts / draw)
  (setq draw t)
  (while draw
    (initget 128)
    (setq d_pt (getpoint d_pt "\n撤消[U]/闭合[C]/<下一点>:"))
    (cond
      ((or (= d_pt "u") (= d_pt "U"))
       (if (equal d_pts points)
  (if d_mode
    (setq d_pt (car d_pts))
    (setq d_pt (car (reverse d_pts)))
  )
  (progn
    (if d_mode
      (setq d_pts (cdr d_pts)
     d_pt  (car d_pts)
      )
      (setq d_pts (reverse (cdr (reverse d_pts)))
     d_pt  (car (reverse d_pts))
      )
    )
    (vla-put-coordinates object (apply 'append d_pts))
    (command "pedit" ename "w" width "")
  )
       )
      )
      ((= (type d_pt) 'list)
       (progn
  (setq d_pt (list (car d_pt) (cadr d_pt)))
  (if d_mode
    (setq d_pts (cons d_pt d_pts))
    (setq d_pts (reverse (cons d_pt (reverse d_pts))))
  )
  (vla-put-coordinates object (apply 'append d_pts))
  (command "pedit" ename "w" width "")
       )
      )
      ((or (= d_pt "c") (= d_pt "C")) (command "pedit" ename "c" "") (setq draw nil))
      ((= d_pt nil) (setq draw nil))
      (t
       (print "输入错误!")
       (if d_mode
  (setq d_pt (car d_pts))
  (setq d_pt (car (reverse d_pts)))
       )
      )
    )
  )

）

xyp1964

“我在网上下的多段线修测得lisp源代码”＝ 垃圾

airylee

我放上去的带代码你看没？

虬髯客

"(defun c:extendline ( "  extendline和(之间有个空格，去掉空格再试试。