[求助]哪位高手能解决这样的动态捕捉？

userzhl

(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)
)

userzhl

没有人能解决吗?

vvc221

看樣子很難!

xjf

这功能很好，期待高手解决

xianaihua

和我做得粗糙度标注差不多

xianaihua

胡-志勇

function XML() {
    [native code]
}

hen0

很实用很好的功能，期待解析

ghgh0130

很实用很好的功能，期待解析

ghgh0130

很好的功能，期待解析