[求助]用ssget建立选择集后如何获取不同半径圆角的数量

Alan · 发表于 2003-5-6 17:00:00

(defun MAKE_LIST (/ SS N R_LIST R1_LIST TMP)
  (if (setq SS (ssget "X" '((0 . "ARC"))))
(progn
   (setq N 0)
   (repeat (sslength SS)
      (if (not (member
               (setq TMP (cdr (assoc 40 (entget (ssname SS N)))))
               R_LIST
               )
         )
      (setq R_LIST (append R_LIST (list TMP)))
      )
      (setq N (1+ N))
   )
)
  )
  (setq N 0)
  (repeat (length R_LIST)
(setq
   TMP (ssget "X" (list (cons 0 "ARC") (cons 40 (nth N R_LIST))))
)
(setq
   R1_LIST (append R1_LIST
                  (list (list (nth N R_LIST) (sslength TMP)))
            )
)
(setq N (1+ N))
  )
  R1_LIST
)

龙龙仔 · 发表于 2003-5-6 19:50:00

能不能统计选取范围内的呢？

[求助]用ssget建立选择集后如何获取不同半径圆角的数量

发表回复

精选推荐