[求助]有关批量标注圆

AMTONNY

有人知道批量标注，就是图形内有多个不等直径的圆，如何一次性框选后自动标出所选对象的是半径的就标半径，是直径的就标直径

hnfsf

(defun c:rds (/ rs n po px py rv ang1 ang2 angc cx cy rslst)
  (setq rs (ssget))
  (if rs
    (progn
      (setq n 0)
      (repeat (sslength rs)
 (setq rslst (entget (ssname rs n)))
 (setq po (cdr (assoc 10 rslst)));圆心
 (setq px (car po))
 (setq py (cadr po))
 (setq rv (cdr (assoc 40 rslst)));半径

 (cond
   ((= "ARC" (cdr (assoc 0 rslst)))
    (setq ang1 (cdr (assoc 50 rslst)))
    (setq ang2 (cdr (assoc 51 rslst)))
    (setq angc (/ (+ ang2 ang1) 2.0))
    (setq cx (+ px (* rv (cos angc))))
    (setq cy (+ py (* rv (sin angc))))
    (command "DIMRADIUS" (list (ssname rs n) (list cx cy 0)) "")
   )
   ((= "CIRCLE" (cdr (assoc 0 rslst)))
    (setq angc (/ pi 4.0))
    (setq cx (+ px (* rv (cos angc))))
    (setq cy (+ py (* rv (sin angc))))
    (command "DIMDIAMETER" (list (ssname rs n ) (list cx cy 0)) "")
   )
 )
 (setq n (1+ n))
      )
    )
  )
)

yaokui25

QDIM可以实现的

【KAIXIN】

vla方式的标注原因，应该没有版本限制

killer9806

使用命令QDIM就搞定

OK洪OK888888

QDIM是连续标注，不是批量标圆的半径啊

AMTONNY

(defun c:rds (/ rs n po px py rv ang1 ang2 angc cx cy rslst)
  (setq rs (ssget "c" pt1 pt2 '((0 . "circle"))))
  (if rs
    (progn
      (setq n 0)
      (repeat (sslength rs)
 (setq rslst (entget (ssname rs n)))
 (setq po (cdr (assoc 10 rslst)));圆心

 (setq px (car po))
 (setq py (cadr po))
 (setq rv (cdr (assoc 40 rslst)));半径

 (cond
   ((= "ARC" (cdr (assoc 0 rslst)))
    (setq ang1 (cdr (assoc 50 rslst)))
    (setq ang2 (cdr (assoc 51 rslst)))
    (setq angc (/ (+ ang2 ang1) 2.0))
    (setq cx (+ px (* rv (cos angc))))
    (setq cy (+ py (* rv (sin angc))))
    ;(command "DIMRADIUS" (list (ssname rs n) (list cx cy 0)))
;;;    (princ "\n poic is")
;;;    (princ (list cx cy))
   )
   ((= "CIRCLE" (cdr (assoc 0 rslst)))
;;;    (princ "\n")
;;;    (princ "circle")
    (setq angc (/ pi 4.0))
    (setq cx (+ px (* rv (cos angc))))
    (setq cy (+ py (* rv (sin angc))))
;;;    (princ "\n poic is")
;;;    (princ (list cx cy))
   )
 )
    (command "DIMDIAMETER" (list (ssname rs n ) (list cx cy 0)) "")
 (setq n (1+ n))
      )
    )
  )

此代码即可解决了

liu714

坎坎坷坷坎坎坷坷坎坎坷坷

zhongys

(setq rs (ssget  '((0 . "circle,arc"))))

yxl88168

又学到一点，谢谢了

haoryh

hnfsf 发表于 2010-6-8 12:29
(defun c:rds (/ rs n po px py rv ang1 ang2 angc cx cy rslst)  (setq rs (ssget))  (if rs&nb ...

能把标注的方向修改到别一边吗？如图：

zdqwy19

高版本Cad有圆的快速标注