[求助]：怎样才能在一定范围中自动选择东西

bingtwo

(DEFUN c:ewae (/ ellp selt loop pmin pmax x sn numb spt cen vpt hpt ewae svol)
  (begn)
  (PRINC " 圆圈的隐现  ")
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (SETQ        ellp (SSGET "x"        '((-4 . "<AND")
                         (0 . "ELLIPSE")
                         (62 . 5)
                         (-4 . "AND>")        ))        )
  (if         (/= ellp nil) (command "erase" ellp "")
            (progn

  (SETQ        plmin (GETPOINT "\n 右上点:    ")
             plmax  (GETPOINT "\n 左下点:    ")
        pmin (LIST (CAR plmin) (CADR plmin))
        pmax (LIST (CAR plmax) (CADR plmax))
        x    (/ (DISTANCE pmax pmin) 300.6)        )
  (SETQ selt (SSGET "x" '((62 . 2)))        loop (SSLENGTH selt)        sn  0        )
  (REPEAT loop
    (SETQ numb (ENTGET (SSNAME selt sn)        )        )
    (SETQ spt  (cdr (assoc 10 numb)) svol (atof (cdr (assoc 1 numb)))        )
    (setq cen (polar spt (* 50 (/ pi 180)) (* x 1.9))        )
    (IF (< svol 9.1) (setq cen (polar cen  pi (* x 0.7)))        )
    (setq vpt (polar cen (/ pi 2) (* x 2.2))
          hpt (polar cen 0 (* x 2.2))
          sn (1+ sn)                )
    (COMMAND "COLOR" "5")
    (command "ellipse" "c" cen vpt hpt)
    (SETQ ellip (entget (entlast))        )
    (SETQ ellip (SUBST (CONS 8 "DIM") (ASSOC 8 ellip) ellip))
    (setq ellip (subst (cons 62 5)  (assoc 62 ellip) ellip))
    (ENTMOD ellip)
    (COMMAND "COLOR" "BYLAYER")
      )  ;_ end of REPEAT
     )        ;end of progn   
    )        ;end of if
    (endpr)
  ) ;_ end of DEFUN  我这样会把模型空间中全部的黄色字都选了,但是我只要手动输入那两点范围内的黄色字就可以了,大哥们帮帮忙啊!!!!!!!!!!!!!!!!!

dandee

思路
用getcorner 给出窗选的两点pt1 pt2
再用ssget ，把 x 换成 w 加上pt1 pt2  和 '((-4 . " (0 . "ELLIPSE")
(62 . 5)
(-4 . "AND>")

就是你要的效果

leeyuan

[php](DEFUN c:ewae (/ ellp selt loop        pmin pmax x sn numb spt        cen vpt        hpt ewae
               svol)
;;;  (begn)
  (PRINC " 圆圈的隐现 ")
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (setq pt1 (getpoint "\n框选左下角:"))
  (setq pt2 (getcorner pt1 "\n对角点:"))
  (SETQ        ellp (SSGET "w"
                    pt1
                    pt2
                    (list (cons 0 "ELLIPSE")
                          (cons 62 5)
                    )
             )
  )
  (if (/= ellp nil)
    (command "erase" ellp "")
    (progn
      (SETQ plmin (GETPOINT "\n 右上点: ")
            plmax (GETPOINT plmin "\n 左下点: ")
            pmin  (LIST (CAR plmin) (CADR plmin))
            pmax  (LIST (CAR plmax) (CADR plmax))
            x          (/ (DISTANCE pmax pmin) 300.6)
      )
      (SETQ selt (SSGET "x" '((62 . 2)))
            loop (SSLENGTH selt)
            sn         0
      )
      (REPEAT loop
        (SETQ numb (ENTGET (SSNAME selt sn)))
        (SETQ spt  (cdr (assoc 10 numb))
              svol (atof (cdr (assoc 1 numb)))
        )
        (setq cen (polar spt (* 50 (/ pi 180)) (* x 1.9)))
        (IF (< svol 9.1)
          (setq cen (polar cen pi (* x 0.7)))
        )
        (setq vpt (polar cen (/ pi 2) (* x 2.2))
              hpt (polar cen 0 (* x 2.2))
              sn  (1+ sn)
        )
        (COMMAND "COLOR" "5")
        (command "ellipse" "c" cen vpt hpt)
        (SETQ ellip (entget (entlast)))
        (SETQ ellip (SUBST (CONS 8 "DIM") (ASSOC 8 ellip) ellip))
        (setq ellip (subst (cons 62 5) (assoc 62 ellip) ellip))
        (ENTMOD ellip)
        (COMMAND "COLOR" "BYLAYER")
      )
    )
  )
;;;  (endpr)
)[/php]

bingtwo

楼上的程序,当模型空间选定区域里有椭圆的时候,可以删除选定区域的椭圆,别的区域删不了OK,但是当选定区域里没有随圆时,模型空间中所有黄色字(不管是否以经有椭圆的)都加了椭圆了,这样不行啊!