求助：如何改变捕捉时鼠标的方块形状？

liu22737

AutoCAD中 MATCHPROP 命令能改变鼠标形状为埽吧状。

在LISP中怎样调用鼠标符号

liu22737

问题没说明白吗？

还是LISP没这样的功能

liu22737

(DEFUN C:mm(/ re_mm re_tx re_ta temp)
(setq re_mm (cdr(assoc '1 (entget(car(nentsel"\n:请选取参照文字:"))))))
(while T
;(command "undo" "group")
(command "MATCHPROP" (entlast)
   (setq re_ta (nentsel) temp (mapcar '+ (getvar "extmax")  '(1000 1000 1000)))"")
;(command "undo" "end")
;(command "u")
(setq re_tx (entget(car re_ta)))
(if (or (= "TEXT" (cdr(assoc '0 re_tx))) (= "MTEXT" (cdr(assoc '0 re_tx))))(progn
 (setq re_tx (subst (cons '1 re_mm) (assoc '1 re_tx) re_tx))
 (entmod re_tx)
 ))
(if (= (cdr(assoc '0 (entget(ssname(ssget(cadr re_ta))0)))) "INSERT")
(entmod (entget(ssname (ssget(cadr re_ta)) 0))))
))