求任意拖动文字程序

qazxswk

cj52000 发表于 2022-3-17 11:13
谢谢，这个可以命令不中断，一直使用，能否加上使用此命令关闭正交，关闭捕捉

;;;;;在使用时会关闭正交与捕捉，完成或中途取消可以恢复到使用前的状态

(defun c:11 (/  *error* oldort osm e)
(defun *error*( msg )
(if oldort(setvar "orthomode" oldort))
(if osm(setvar "orthomode" osm))
(princ))

(setq oldort (getvar "orthomode"))
(setvar "orthomode" 0)
(setq osm (getvar "osmode"))
(setvar "osmode" 0)
(while (setq e (entsel))
  (command "move" (car e)""(cadr e) pause)
  )
(setvar "orthomode" oldort)
(setvar "osmode" osm)
(princ)
)

cj52000

qazxswk 发表于 2022-3-24 01:40
;;;;;在使用时会关闭正交与捕捉，完成或中途取消可以恢复到使用前的状态

(defun c:11 (/  *error* old ...

太谢谢 了！！