统计标记，讨论（大神们都进来看看）

Angel1995

功能是:统计圆，并进行标记
  对不同半径的圆进行不同的字母标记
  同半径的用一样的字母标记

例如:
    图形中有半径1的圆1，半径2的圆2个，半径3的圆5个。
对齐进行统计，标记
    半径1的圆右上角写上字母A
    半径2的圆右上角写上字母B（注意:有2个圆）
    半径3的圆右上角写上字母C（注意:有5个圆）

统计方面，（我在论坛版主的帮助下）已经会了，就是标记不会
求大神们，指点

gtj116600

这个不用标记
用直线或多义线之间画线就可以

【KAIXIN】

gtj116600 发表于 2013-5-24 17:11
这个不用标记
用直线或多义线之间画线就可以

关键是公司要求要写上字母呀

Angel1995

【KAIXIN】 发表于 2013-5-24 17:12
关键是公司要求要写上字母呀

谢谢开心大哥的帮助，不好意思，耽误了你不少时间
也许是我太笨了，会了统计，标记就不会了

【KAIXIN】

Angel1995 发表于 2013-5-24 17:14
谢谢开心大哥的帮助，不好意思，耽误了你不少时间
也许是我太笨了，会了统计，标记就不会了

你们公司的要求不能改改？

ZZXXQQ

2. ;圆分类标注 明经ZZXXQQ 2009.6
   
3. (defun c:tt ()
   
4. (setvar "CMDECHO" 0)
   
5. (setq oldos (getvar "OSMODE"))
   
6. (setvar "OSMODE" 0)
   
7. (if (and (princ "\n【提示】选择圆对象....") (setq ss1 (ssget '((0 . "CIRCLE"))))) (progn
   
8.   (setq i 0 j 65 cl (list))
   
9.   (repeat (sslength SS1)
   
10.    (setq ent (entget(ssname ss1 i)))
    
11.    (setq pc (cdr(assoc 10 ent)))
    
12.    (setq r (cdr(assoc 40 ent)))
    
13.    (if (setq rl (assoc r cl))
    
14.     (setq cl (subst (list r (cons (caadr rl) (1+ (cdadr rl)))) rl cl))
    
15.     (setq cl (cons (list r (cons (chr j) 1)) cl) j (1+ j))
    
16.    )
    
17.    (setq i (1+ i))
    
18.   )  
    
19.   (setq i 0 j 0 cl (reverse cl))
    
20.   (repeat (sslength ss1)
    
21.    (setq ent (entget(ssname ss1 i)))
    
22.    (setq pc (cdr(assoc 10 ent)))
    
23.    (setq r (cdr(assoc 40 ent)))
    
24.    (if (setq rl (cadr(assoc r cl)))
    
25.     (command "TEXT" "MC" pc "" 0.0 (car rl))
    
26.    )
    
27. ;   (if (and (setq rl (assoc r cl)) (> (cdr r1) 1))
    
28. ;    (command "TEXT" "J" "MC" pc "" 0.0 (ascii (+ (cdr rl) 40)))
    
29. ;   )
    
30.    (setq i (1+ i))
    
31.   )
    
32. ))
    
33. (setvar "OSMODE" oldos)
    
34. (setvar "CMDECHO" 1)
    
35. (princ)
    
36. )
    

;圆分类标注 明经ZZXXQQ 2009.6<br /> (defun c:tt ()<br /> (setvar "CMDECHO" 0)<br /> (setq oldos (getvar "OSMODE"))<br /> (setvar "OSMODE" 0)<br /> (if (and (princ "\n【提示】选择圆对象....") (setq ss1 (ssget '((0 . "CIRCLE"))))) (progn<br />   (setq i 0 j 65 cl (list))<br />   (repeat (sslength SS1)<br />    (setq ent (entget(ssname ss1 i)))<br />    (setq pc (cdr(assoc 10 ent)))<br />    (setq r (cdr(assoc 40 ent)))<br />    (if (setq rl (assoc r cl))<br />     (setq cl (subst (list r (cons (caadr rl) (1+ (cdadr rl)))) rl cl))<br />     (setq cl (cons (list r (cons (chr j) 1)) cl) j (1+ j))<br />    )<br />    (setq i (1+ i))<br />   )  <br />   (setq i 0 j 0 cl (reverse cl))<br />   (repeat (sslength ss1)<br />    (setq ent (entget(ssname ss1 i)))<br />    (setq pc (cdr(assoc 10 ent)))<br />    (setq r (cdr(assoc 40 ent)))<br />    (if (setq rl (cadr(assoc r cl)))<br />     (command "TEXT" "MC" pc "" 0.0 (car rl))<br />    )<br /> ;   (if (and (setq rl (assoc r cl)) (> (cdr r1) 1))<br /> ;    (command "TEXT" "J" "MC" pc "" 0.0 (ascii (+ (cdr rl) 40)))<br /> ;   )<br />    (setq i (1+ i))<br />   )<br /> ))<br /> (setvar "OSMODE" oldos)<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )<br />

【KAIXIN】

【KAIXIN】

H

【KAIXIN】

F

TPG辉