【原创】提高移动MTEXT速度的move命令

移动mtext时，速度极慢，于是：

;;move时如果有多行文字则不预览
(defun c:m (/ s p p1)
  (setq ss (ssget))
  (if (vl-position
        "MTEXT"
        (mapcar '(lambda (x) (zfl-dxf 0 x)) (zfl-ss->entlist ss))
      )
    (progn
      (setq p (getpoint "\n移动起点："))
      (setq p1 (getpoint p "\n移动终点："))
      (command "move" ss "" "non" p "non" p1)
    )
    (command "move" ss "")
  )
)

用了zfl函数库。
没有装autool的话，加入以下代码：

;;;将选择集转换为实体列表
(defun zfl-SS->entlist (ss / l n)
  (if (/= 'PICKSET (type ss))
    nil
    (progn
      (repeat (setq n (sslength ss))
        (setq l (append l (list (ssname ss (setq n (1- n))))))
      )
      l
    )
  )
)

(defun zfl-dxf        (code el)
  (setq el (if (= 'ename (type el)) (entget el)el))
  (cdr (assoc code el))
  )

Wikii大神不是写ruby的吗？