[求助]：CAD中如何输入带圈的数字

hosf · 发表于 2003-11-16 12:04:07

我一般就是画个圆。再写数字

mxwsd · 发表于 2003-11-16 12:19:47

有谁知道在2004下一样吗？我试了怎么在2004下没这个命令呀！

tigercad · 发表于 2003-11-17 10:50:41

但是，文字不能自适应圆圈啊，遗憾

tudou55 · 发表于 2003-11-17 19:41:55

这个问题很复杂！

￥夜悸孤枕￥ · 发表于 2003-11-17 20:10:47

有1-9用用可以了不行就再圆圈加字吧

piesces_3 · 发表于 2003-11-17 20:28:27

用智能abc，先后输入“v”和“2”，就ok了：）

cdpoipoi980849 · 发表于 2003-11-23 10:49:41

不能在word里弄好，在整到cad里去？！？

风向 · 发表于 2003-11-26 00:19:15

可一定义一个块的属性，可以解决这个问题的

urljit · 发表于 2004-1-27 17:02:43

我也有个小程序，它是专门用来画钢筋编号的，希望对大家有用。

http://www.xdcad.net/forum/showthread.php?threadid=101628

看了今天的帖子，我计划以后将其改进为能自动适应文字长度。

陌生人 · 发表于 2004-1-28 20:34:04

tcircle是et里面的程序，不是cad自带的。下面是tcircle的原程序

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;TCIRCLE - Text-CIRCle puts a circle around selected text entities
;
(defun c:tcircle ( / ss flt j rad ent offset slot)
(acet-error-init
(list (list "cmdecho" 0
"highlight" (getvar "highlight")
"limcheck" 0
);list
T
);list
);acet-error-init
(setq flt '((-4 . "<OR") (0 . "TEXT") (0 . "ATTDEF") (0 . "MTEXT") (-4 . "OR>")));setq
(princ "\nSelect TEXT, MTEXT or ATTDEF objects...")
(if (and (setq ss (ssget flt))
(setq ss (car (acet-ss-filter (list ss
'(("LAYERUNLOCKED") ;Dis-allow locked layers, non-current-space
("CURRENTUCS") ;and dis-allow objects not in current ucs
)
T
);list
);acet-ss-filter
);car
);setq
);and
(progn
(if (not #bns_tcircle_offset)
(setq #bns_tcircle_offset 0.35)
);if
(initget 6)
(setq offset (getreal
(strcat "\nEnter distance offset factor <"
(rtos #bns_tcircle_offset 2 (getvar "luprec"))
">: "
)
)
);setq
(if (or (not offset)
(equal offset "")
);or
(setq offset #bns_tcircle_offset)
(setq #bns_tcircle_offset offset)
);if
(if (not #bns_tcircle_ent)
(setq #bns_tcircle_ent "Circles")
);if
(initget "Circles Slots Rectangles")
(setq ent (getkword
(acet-str-format "\nEnclose text with [Circles/Slots/Rectangles] <%1>: "
#bns_tcircle_ent
);acet-str-format
)
);setq
(if (or (not ent)
(equal ent "")
);or
(setq ent #bns_tcircle_ent)
(setq #bns_tcircle_ent ent)
);if
(if (not #bns_tcircle_rad)
(setq #bns_tcircle_rad "Variable")
);if
(initget "Constant Variable")
(setq rad (getkword
(acet-str-format
"\nCreate %1 of constant or variable size [Constant/Variable] <%2>: "
(strcase ent T)
#bns_tcircle_rad
);acet-str-format
)
);setq
(if (or (not rad)
(equal rad "")
);or
(setq rad #bns_tcircle_rad)
(setq #bns_tcircle_rad rad)
);if
(if (and (equal rad "Constant")
(or (equal ent "Slots")
(equal ent "Rectangles")
);or
);and
(progn
(if (not #bns_tcircle_slot)
(setq #bns_tcircle_slot "Both")
);if
(initget "Width Height Both")
(setq slot (getkword
(acet-str-format
"\nMaintain constant %1 [Width/Height/Both] <%2>: "
(strcase (substr ent 1 (- (strlen ent) 1)) T)
#bns_tcircle_slot
)
)
);setq
(if (or (not slot)
(equal slot "")
);or
(setq slot #bns_tcircle_slot)
(setq #bns_tcircle_slot slot)
);if
);progn else get rectang or slot size info
);if
(setq j (bns_tcircle ss rad ent slot offset))
(if ss
(command "_.select" ss "")
);if
(princ (strcat "\n" (itoa j) " " ent " created."))
);progn then
(princ "\nNo valid objects selected.")
);if
(acet-error-restore)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;TCIRCLE - Text-CIRCle puts a circle around selected text entities 
; 
(defun c:tcircle ( / ss flt j rad ent offset slot) 
 
(acet-error-init 
 (list (list "cmdecho" 0 
             "highlight" (getvar "highlight") 
             "limcheck" 0 
       );list 
       T 
 );list 
);acet-error-init 
 
(setq flt '((-4 . "<OR") (0 . "TEXT") (0 . "ATTDEF") (0 . "MTEXT") (-4 . "OR>")));setq 
(princ "\nSelect TEXT, MTEXT or ATTDEF objects...") 
(if (and (setq ss (ssget flt)) 
         (setq ss (car (acet-ss-filter (list ss 
                                             '(("LAYERUNLOCKED") ;Dis-allow locked layers, non-current-space 
                                               ("CURRENTUCS")    ;and dis-allow objects not in current ucs 
                                              ) 
                                             T 
                                       );list 
                       );acet-ss-filter 
                  );car 
         );setq 
    );and 
    (progn 
 
     (if (not #bns_tcircle_offset) 
         (setq #bns_tcircle_offset 0.35) 
     );if 
     (initget 6) 
     (setq offset (getreal 
                   (strcat "\nEnter distance offset factor <" 
                           (rtos #bns_tcircle_offset 2 (getvar "luprec")) 
                           ">: " 
                   ) 
                 ) 
     );setq 
     (if (or (not offset) 
             (equal offset "") 
         );or 
         (setq offset #bns_tcircle_offset) 
         (setq #bns_tcircle_offset offset) 
     );if 
 
 
     (if (not #bns_tcircle_ent) 
         (setq #bns_tcircle_ent "Circles") 
     );if 
     (initget "Circles Slots Rectangles") 
     (setq ent (getkword 
                (acet-str-format "\nEnclose text with [Circles/Slots/Rectangles] <%1>: " 
                                 #bns_tcircle_ent 
                );acet-str-format 
               ) 
     );setq 
     (if (or (not ent) 
             (equal ent "") 
         );or 
         (setq ent #bns_tcircle_ent) 
         (setq #bns_tcircle_ent ent) 
     );if 
 
     (if (not #bns_tcircle_rad) 
         (setq #bns_tcircle_rad "Variable") 
     );if 
     (initget "Constant Variable") 
     (setq rad (getkword 
                (acet-str-format 
                   "\nCreate %1 of constant or variable size [Constant/Variable] <%2>: " 
                   (strcase ent T) 
                   #bns_tcircle_rad 
                );acet-str-format 
               ) 
     );setq 
     (if (or (not rad) 
             (equal rad "") 
         );or 
         (setq rad #bns_tcircle_rad) 
         (setq #bns_tcircle_rad rad) 
     );if 
     (if (and (equal rad "Constant") 
              (or (equal ent "Slots") 
                  (equal ent "Rectangles") 
              );or 
         );and 
         (progn 
          (if (not #bns_tcircle_slot) 
              (setq #bns_tcircle_slot "Both") 
          );if 
          (initget "Width Height Both") 
          (setq slot (getkword 
                      (acet-str-format 
                              "\nMaintain constant %1 [Width/Height/Both] <%2>: " 
                              (strcase (substr ent 1 (- (strlen ent) 1)) T) 
                              #bns_tcircle_slot 
                      ) 
                     ) 
          );setq 
          (if (or (not slot) 
                  (equal slot "") 
              );or 
              (setq slot #bns_tcircle_slot) 
              (setq #bns_tcircle_slot slot) 
          );if 
         );progn else get rectang or slot size info 
     );if 
 
     (setq j (bns_tcircle ss rad ent slot offset)) 
     (if ss 
         (command "_.select" ss "") 
     );if 
     (princ (strcat "\n" (itoa j) " " ent " created.")) 
    );progn then 
    (princ "\nNo valid objects selected.") 
);if 
(acet-error-restore) 
)

liangwh@2003 · 发表于 2004-2-29 16:09:24

真是千个师傅千个法，都这么好用。
一个贴子，让我学到很多方法。

skyhorse · 发表于 2004-2-29 18:44:22

好多内容，看的头都晕了，不过学到不少东西

xiangyiling · 发表于 2004-3-5 16:38:23

我的2002可以用，只是数和圈是分开的！1

superpower · 发表于 2004-3-6 21:52:57

我是2002的，但是不能用唉，是怎么回事呢

paitou · 发表于 2004-3-7 10:56:06

高手就是不一样的

账号		自动登录	找回密码
密码			立即注册

[求助]：CAD中如何输入带圈的数字

画过建筑图，就会这个了