【原創(chuàng)】提高移動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函數(shù)庫。
沒有裝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的嗎？