这是一个挪点插件，为什么使用时不能在图上进行选取呢，命令mvpt

slq33

代码如下
;;;***********************
;;移动点号
;;;***********************

(defun c:mvpt()
    (setvar "lispinit" 0)

  (setq ptlist '())

  (while (setq pt (getpoint "\n拾取范围点"))
    (setq ptlist(append ptlist (list pt)))
  )
    (setq ss(ssget "cp" ptlist  (list (cons 0 "TEXT") (cons 8 "*uptext"))))
    (setq n(sslength ss))  
    (setq i 0)
    (repeat n
       (setq si(ssname ss i))
       (setq sd(entget si))
       (setq pt(cdr(assoc 10 sd)))
       (command  "zoom"
                (polar pt (* 1.25 pi) 10)
                (polar pt (* pi 0.25) 10)
           )          
          (command "_.move" si "" pt pause)
      (setq i(1+ i))
      (princ)
    )


)


(defun vertexs (ename / plist pp n)
  (setq obj (vlax-ename->vla-object ename))
  (setq plist (vlax-safearray->list
                (vlax-variant-value
                  (vla-get-coordinates obj))))
  (setq n 0)
  (setq entitytype (cdr (assoc 0 (entget ename))))
  (if ( = entitytype "LWPOLYLINE")
    (setq ppm 2 )
    (setq  ppm 3)
    )
  (repeat (/ (length plist) ppm);注意这个地方是用2还是3如果是LWPOLYLINE 则是2 POLYLINE 是3
    (setq pp (append pp (list (list (nth n plist)(nth (1+ n) plist)))))
    (setq n (+ n ppm));注意这个地方是用2还是3
    )
  pp
  )