CAD AutoLisp 端点调整

(defun c:TT()
;grread
(setq ent (entget(car (entsel))))
(setq s t)
(while (and s (setq get (grread 1 0)))
	(print get)
	(cond 
		((equal '(2 97) GET);A键
			(print "A键")
		)
		((equal '(2 32) GET);空格
			(print "空格")
		)
		((= 5 (car get));鼠标移动
			(entmod (subst (cons 10 (cadr get))(assoc 10 ent) ent))
		)
		((= 3 (car get));鼠标左键
			(print "鼠标ddd")
			(setq s nil)
		)
	)
)


(entmod (subst (cons 10 (cadr get))(assoc 10 ent) ent))
)