- (defun getlabel (pt / filter pt1 pt2 ss_l x y)
- (setq x (car pt)
- y (last pt)
- pt1 (list (- x 100) (- y 100))
- pt2 (list (+ x 100) (+ y 100))
- filter (list '(-4 . "<AND") '(0 . "INSERT") '(66 . 1) '(-4 . ">,>,*") (cons 10 pt1) '(-4 . "<,<,*") (cons 10 pt2) '(-4 . "AND>"))
- ss_l (ssget "x" filter)
- )
- )
谢谢大家,找到方法了 |