[求助]：二次开发move命令

wcf

如何编一个小LISP程序，简化一下MOVE命令，可以快速拖动文字，一般用两揵可以完成一个对象从一个位置移到另一位置，不需要精确定位。

snsj

方法1.按住左键直接拖放即可
方法2.小东工具箱的自由移动，命令：_xdrag_move

lijiao

最初由 snsj 发布
[B]方法1.按住左键直接拖放即可
方法2.小东工具箱的自由移动，命令：_xdrag_move [/B]

没想到今天又学一招。

hi71400

我给你写了一个。
文字和尺寸字都能移动的小东东，呵呵，要说谢谢我哟。
(defun zrh_tq (n ss) (cdr (assoc n (entget ss)))) ;提取实体属性
(defun c:zcq_wzyd (/ dim_move osm)
  (prompt "\n文字移动.")
  (setq osm (getvar "osmode"))
  (setvar "osmode" 0))
  (while (setq dim_move (entsel "\n选择要移动文字或尺寸:"))
    (if        (= (zrh_tq 0 (car dim_move)) "DIMENSION")
      (progn
        (command "dim1" "tedit" (car dim_move))
        (command pause)
      )                                        ;progn1
      (progn
        (if (= (zrh_tq 0 (car dim_move)) "TEXT")
          (COMMAND "_.CHANGE" dim_move "" "" PAUSE "" "" "" "")
          (setq dim_move (entsel "\n没有选中尺寸,请重新选择:"))
        )                                ;if
      )                                        ;progn2
    )                                        ;if
  )
                                        ;while
  (setvar "osmode"  osm )
  (princ)
)

wcf

谢谢！