yang686526

[求助]哪位高手能解决这样的动态捕捉？
www.dimcax.com
[求助]哪位高手能解决这样的动态捕捉？
(defun c:tt (/ e_l grr pt1 pt2 pt3 pt4)
(setvar "cmdecho" 0)
(command ".ucs" "n" "v")
(setq pt1 (getpoint "\n左下角点 :"))
(while (and (setq grr (grread 7))
(not (member grr '((2 32) (2 13) (11 0)))) ;_回车 空格 右键 退出
(/= (car grr) 3) ;_左键退出
)
(if (= (type (cadr grr)) 'list)
(progn
(princ "\n右上角点 :")
(setq pt3 (cadr grr)
pt2 (list (car pt1) (cadr pt3))
pt4 (list (car pt3) (cadr pt1))
)
(if e_l
(entdel e_l)
)
(command "._solid" "_none" pt1 "_none" pt4 "_none" pt2 "_none"
pt3 "")
(setq e_l (entlast))
)
)
)
(command ".ucs" "p")
(princ)
)
d
没有人能解决吗?
d