[原创]：大样圆圈绘制

jiega

[PHP]
;;; 大样圆圈绘制

2.                                                 
   
3. (defun c:dyq (/ o_os num pt2 num_ num_ascii)
   
4.   (setvar "cmdecho" 0)
   
5.   (setq o_os (getvar "osmode"))
   
6.   (setvar "BLIPMODE" 1)
   
7.   (setq num "1")
   
8.   (while (setq pt2 (getpoint "\n点取中心点:")
   
9.          )
   
10.     (if        (/= pt2 nil)
    
11.       (progn
    
12.         (princ "\n字符/数值:<")
    
13.         (princ num)
    
14.         (setq num_ (getstring ">: "))
    
15.         (if (= num_ "")
    
16.           (setq num num)
    
17.           (setq num num_)
    
18.         )
    
19.         (setq num_ascii (ascii num))
    
20.         (cond
    
21.           ((and        (<= (strlen num) 2)        ;数字
    
22.                 (>= num_ascii 48)
    
23.                 (<= num_ascii 57)
    
24.            )
    
25.            (setq num num)
    
26.           )
    
27. 
    
28.           ((and        (= (strlen num) 1)        ;a~z
    
29.                 (>= num_ascii 97)
    
30.                 (<= num_ascii 122)
    
31.            )
    
32.            (progn (setq num_ascii (- num_ascii 32))
    
33.                   (setq num (chr num_ascii))
    
34.            )
    
35.           )
    
36. 
    
37.           ((and        (= (strlen num) 1)        ;A~Z
    
38.                 (>= num_ascii 65)
    
39.                 (<= num_ascii 90)
    
40.            )
    
41.            (setq num (chr num_ascii))
    
42.           )
    
43.         )
    
44.         (setvar "osmode" 0)
    
45.         (command "donut" 13.5 14.5 pt2 "")
    
46.         (command "text" "j" "mc" pt2 "6" 0 num)
    
47.         (princ "\n完成，请继续...")
    
48. 
    
49.         (cond
    
50.           ((and        (<= (strlen num) 2)        ;数字
    
51.                 (>= num_ascii 48)
    
52.                 (<= num_ascii 57)
    
53.            )
    
54.            (setq num (+ (atoi num) 1))
    
55.            (setq num (itoa num))
    
56.           )
    
57.           ((and        (= (strlen num) 1)        ;A~Z
    
58.                 (>= num_ascii 65)
    
59.                 (<= num_ascii 90)
    
60.            )
    
61.            (progn
    
62.              (setq num_ascii (+ num_ascii 1))
    
63.              (if (= num_ascii 91)
    
64.                (setq num_ascii 65)
    
65.              )
    
66.              (setq num (chr num_ascii))
    
67.            )
    
68.           )
    
69.         )
    
70.       )
    
71.     )
    
72.   )
    
73.   (setvar "BLIPMODE" 0)
    
74.   (setvar "osmode" o_os)
    
75.   (setvar "cmdecho" 1)
    
76.   (princ)
    
77. )
    

                                                <br /> (defun c:dyq (/ o_os num pt2 num_ num_ascii)<br />   (setvar "cmdecho" 0)<br />   (setq o_os (getvar "osmode"))<br />   (setvar "BLIPMODE" 1)<br />   (setq num "1")<br />   (while (setq pt2 (getpoint "\n点取中心点:")<br />          )<br />     (if        (/= pt2 nil)<br />       (progn<br />         (princ "\n字符/数值:<")<br />         (princ num)<br />         (setq num_ (getstring ">: "))<br />         (if (= num_ "")<br />           (setq num num)<br />           (setq num num_)<br />         )<br />         (setq num_ascii (ascii num))<br />         (cond<br />           ((and        (<= (strlen num) 2)        ;数字<br />                 (>= num_ascii 48)<br />                 (<= num_ascii 57)<br />            )<br />            (setq num num)<br />           )<br /> <br />           ((and        (= (strlen num) 1)        ;a~z <br />                 (>= num_ascii 97)<br />                 (<= num_ascii 122)<br />            )<br />            (progn (setq num_ascii (- num_ascii 32))<br />                   (setq num (chr num_ascii))<br />            )<br />           )<br /> <br />           ((and        (= (strlen num) 1)        ;A~Z<br />                 (>= num_ascii 65)<br />                 (<= num_ascii 90)<br />            )<br />            (setq num (chr num_ascii))<br />           )<br />         )<br />         (setvar "osmode" 0)<br />         (command "donut" 13.5 14.5 pt2 "")<br />         (command "text" "j" "mc" pt2 "6" 0 num)<br />         (princ "\n完成，请继续...")<br /> <br />         (cond<br />           ((and        (<= (strlen num) 2)        ;数字<br />                 (>= num_ascii 48)<br />                 (<= num_ascii 57)<br />            )<br />            (setq num (+ (atoi num) 1))<br />            (setq num (itoa num))<br />           )<br />           ((and        (= (strlen num) 1)        ;A~Z<br />                 (>= num_ascii 65)<br />                 (<= num_ascii 90)<br />            )<br />            (progn<br />              (setq num_ascii (+ num_ascii 1))<br />              (if (= num_ascii 91)<br />                (setq num_ascii 65)<br />              )<br />              (setq num (chr num_ascii))<br />            )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (setvar "BLIPMODE" 0)<br />   (setvar "osmode" o_os)<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )<br />

huiling6868

出图比例不一样,圆圈大小就不一样,1:100圆圈是1400,所以圆圈大小要可以自选.

jiega

1, 该程序没有考虑比例问题,若考虑,只需加入获取比例因子然后相应修改圆圈大小和文字高度即可;
2, 更好的方法就是设置对话框,分别要求输入圆圈半径和文字高度和比例因子即可;用DCL简单加几句就可以了;
3, 若再加入一些命令即可实现在绘制时,大样圈可随鼠标的移动而移动,本人使用的方法太笨,就没有贴出来,希望高手指点;

huiling6868

一般人画图多是1:1,出图用1:100,所以圆圈定为1400就行了.