[求助]如何选择距离p0点1000范围内的所有物体？

hnfsf

如何选择距离p0点1000范围内的所有物体？

xdto

你是想以p0为圆心画半径为1000的圆,然后再选择圆范围内的所有物体？

AutoCAD好像做不到.

但是可以画一个无限接近圆的多边形来代替.

(defun cirss ( pt / en1)

(command "_polygon" "1024" p0 "i" "")

(setq en1 (entget (entlast)))

...

(command ".select" "f" pt)

)

王咣生

;拟合圆(返回点表)

(defun FitCirclePts (center radius / ai ad rt pt) 
  (setq ai 0.0
 ad 10.0) ;度(分割单位)
  (setq rt '())
  (while (<= ai 360.0)
    (setq pt (polar center (* (/ ai 180.0) pi) radius))
    (setq rt (append rt (list pt)))
    ;
    (setq ai (+ ai ad))
  );
  rt
)

(defun c:test ( / p0 dd pts it)
  (setq p0 (getpoint "\n选择中心点:"))
  (setq dd (getreal "\n半径:"))
  (setq pts (FitCirclePts p0 dd))
  ;
  (command "pline")
  (foreach it pts
    (command it)
  )
  (command "")
)

用FitCirclePts返回的点表作CP选择就可以了!

hnfsf

谢谢，好像也只能用这个办法了。