大家帮忙看看，这个问题不会太麻烦！！！

275437962

(defun c:tt ()
  (setvar "CMDECHO" 0)
  (if (and (setq bnm (getstring "\n图块名 :"))
           (/= bnm "")
           (princ "\n选择圆 :")
           (setq ss (ssget '((0 . "CIRCLE")(40 . xxxx))))) ;;xxxx换成你需要的圆的半径
  (progn
   (setq i 0)
   (repeat (sslength ss)
    (setq pc (cdr(assoc 10 (entget (ssname ss i)))))
    (setq ely (cdr(assoc 8 (entget (ssname ss i)))))
    (command "-insert" bnm pc "" "" "")
    (command "change" (entlast) "" "p" "la" ely "co" "byl" "")
    (setq i (1+ i))
   )
  ;; (command ".erase" ss "");删去此句就保留圆
  ))
  (setvar "CMDECHO" 1)
  (princ)
)

上面的程序只能针对半径是整数的圆，能否提高精度也可针对，如圆的半径为0.2345，即小数点后保留4位！！！



还有下面这个：

(defun myss (minl maxl / e len n obj ss)
  (if (setq ss (ssget '((0 . "LINE"))))
    (repeat (setq n (sslength ss))
      (setq e (ssname ss (setq n (1- n))))
      (setq obj (vlax-ename->vla-object e))
      (setq len (vlax-get obj 'length))
      (if (or
            (< len minl)
            (> len maxl)
          )
        (ssdel e ss)
      )
    )
  )
  ss
)

(defun c:sss (/ a b ss)
  (if (not (setq a (getdist "\n请指定最小长度<0.01>:")))
    (setq a 0.5)
  )
  (if (not (setq b (getdist "\n请指定最大长度<0.08>:")))
    (setq b 2.5)
  )
  (if (and
        a
        b
      )
    (if (setq ss (myss a b))
      (command "._select" ss "" "._pselect" ss "")
    )
  )
  (princ)
)

如何提高这个程序快速选择的精度，如我要选择的直线是0.0798，那么按上面程序的最小长度0.01和最大长度0.08，这条线不能被选中！！能否让这个选择的精度，精确到小数点后四位！！

freehand8008

楼主是否可以换个思路

精确到小数点后4位和后8位区别不是很大

是否可以选择  如  1.01-1。02之间