圆周上的文字顺(逆)时针编号

fangmin723

BF-pickset->list：AutoLispBaseFunctionLibrary是AutoCAD的AutoLisp/Vlisp的基础通用函数库函数；
是InspireFunction: 跃动方程（英文名为：Inspire Function）是一个编程爱好者成立的非营利性组织。 (gitee.com)
Cad二次开发类库ifoxCAD的维护大佬：山人等大佬维护整理的基础通用函数库！

1. ;;(CNUM)圆周上的文字顺(逆)时针编号 by 702099480@qq.com 2024.4.9
   
2. (defun C:CNUM(/ ang bf-pickset->list dxf edata ent lst lst1 lst2 num pt ss sslst timerun)
   
3.   (defun BF-pickset->list (SS)
   
4.     (vl-remove-if-not '(lambda (arg) (equal (type arg) 'ENAME)) (mapcar 'cadr (ssnamex SS)))
   
5.   )
   
6.   (defun dxf (code ent) (cdr (assoc code (entget ent))))
   
7.   (while (setq ss (ssget '((0 . "*TEXT"))))
   
8.     (setq num (getint "\n请输入起始编号,默认：<1>"))
   
9.     (if (or (= num "") (= num nil)) (setq num 1))
   
10.     (setq ang (getangle "\n请输入起始弧度值[0-2π],默认：<0>"))
    
11.     (if ang () (setq ang 0))
    
12.     (initget "s S n N")
    
13.     (setq timerun (getkword "\n[顺时针(S)/逆时针(N)],默认逆时针：<N>"))
    
14.     (if timerun (setq timerun (strcase timerun)) (setq timerun "N"))
    
15.     (if (setq pt (getpoint "\n指定中心点："))
    
16.       (progn
    
17.         (setq sslst (BF-pickset->list ss))
    
18.         (cond
    
19.           ((= ang 0)
    
20.             (setq lst (vl-sort sslst '(lambda(x y)(< (angle pt (dxf 10 x)) (angle pt (dxf 10 y))))))
    
21.             (if (equal timerun "S") (setq lst (reverse lst)))
    
22.           )
    
23.           (t
    
24.             (setq lst1 (vl-remove-if-not '(lambda(x) (and (>= (angle pt (dxf  10 x)) ang) (< (angle pt (dxf 10 x)) (* 2 pi)))) sslst))
    
25.             (setq lst1 (vl-sort lst1 '(lambda(x y)(< (angle pt (dxf 10 x)) (angle pt (dxf 10 y))))))
    
26.             
    
27.             (setq lst2 (vl-remove-if-not '(lambda(x) (and (>= (angle pt (dxf 10 x)) 0) (< (angle pt (dxf 10 x)) ang))) sslst))
    
28.             (setq lst2 (vl-sort lst2 '(lambda(x y)(< (angle pt (dxf 10 x)) (angle pt (dxf 10 y))))))
    
29.             
    
30.             (if (equal timerun "S")
    
31.               (setq lst (append (reverse lst2) (reverse lst1)))
    
32.               (setq lst (append lst1 lst2))
    
33.             )
    
34.           )
    
35.         )
    
36.         (while (setq ent (car lst))
    
37.           (setq edata (entget ent))
    
38.           (setq edata (subst (cons 1 (rtos num)) (assoc 1 edata) edata))
    
39.           (entmod edata)
    
40.           (setq lst (cdr lst) num (1+ num))
    
41.         )
    
42.       )
    
43.     )
    
44.   )
    
45.   (prin1)
    
46. )

;;(CNUM)圆周上的文字顺(逆)时针编号 by <a href="mailto:702099480@qq.com" target="_blank">702099480@qq.com</a> 2024.4.9<br /> (defun C:CNUM(/ ang bf-pickset->list dxf edata ent lst lst1 lst2 num pt ss sslst timerun)<br />   (defun BF-pickset->list (SS)<br />     (vl-remove-if-not '(lambda (arg) (equal (type arg) 'ENAME)) (mapcar 'cadr (ssnamex SS)))<br />   )<br />   (defun dxf (code ent) (cdr (assoc code (entget ent))))<br />   (while (setq ss (ssget '((0 . "*TEXT"))))<br />     (setq num (getint "\n请输入起始编号,默认：<1>"))<br />     (if (or (= num "") (= num nil)) (setq num 1))<br />     (setq ang (getangle "\n请输入起始弧度值[0-2π],默认：<0>"))<br />     (if ang () (setq ang 0))<br />     (initget "s S n N")<br />     (setq timerun (getkword "\n[顺时针(S)/逆时针(N)],默认逆时针：<N>"))<br />     (if timerun (setq timerun (strcase timerun)) (setq timerun "N"))<br />     (if (setq pt (getpoint "\n指定中心点："))<br />       (progn<br />         (setq sslst (BF-pickset->list ss))<br />         (cond<br />           ((= ang 0)<br />             (setq lst (vl-sort sslst '(lambda(x y)(< (angle pt (dxf 10 x)) (angle pt (dxf 10 y))))))<br />             (if (equal timerun "S") (setq lst (reverse lst)))<br />           )<br />           (t<br />             (setq lst1 (vl-remove-if-not '(lambda(x) (and (>= (angle pt (dxf  10 x)) ang) (< (angle pt (dxf 10 x)) (* 2 pi)))) sslst))<br />             (setq lst1 (vl-sort lst1 '(lambda(x y)(< (angle pt (dxf 10 x)) (angle pt (dxf 10 y))))))<br />             <br />             (setq lst2 (vl-remove-if-not '(lambda(x) (and (>= (angle pt (dxf 10 x)) 0) (< (angle pt (dxf 10 x)) ang))) sslst))<br />             (setq lst2 (vl-sort lst2 '(lambda(x y)(< (angle pt (dxf 10 x)) (angle pt (dxf 10 y))))))<br />             <br />             (if (equal timerun "S")<br />               (setq lst (append (reverse lst2) (reverse lst1)))<br />               (setq lst (append lst1 lst2))<br />             )<br />           )<br />         )<br />         (while (setq ent (car lst))<br />           (setq edata (entget ent))<br />           (setq edata (subst (cons 1 (rtos num)) (assoc 1 edata) edata))<br />           (entmod edata)<br />           (setq lst (cdr lst) num (1+ num))<br />         )<br />       )<br />     )<br />   )<br />   (prin1)<br /> )

jkop

感谢分享，围绕圆的数字，搭配环形阵列，刚好能够应用。