上传一个简单的数字递增复制

duhan6401

我自己开始学习写代码弄的，请大家给个建议，我想在数字外面加个圈圈，不知道咋弄


(DEFUN C:wfz()
        (setvar "cmdecho" 0)
        (setq wz (car (entsel "\n请选择递增复制的数字: ")))
        (setq data (entget wz))
        (setq layer (cdr (assoc 8 data)))
        (setq wz-data (atoi (cdr (assoc 1 data))))
        (setq wz-yangshi (cdr (assoc 7 data)))
        (setq wz-gaodu (cdr (assoc 40 data)))
        (setq wz-kuandu (cdr (assoc 41 data)))
        ;;;(setq wz-pt (getpoint "\n请点击数字插入位置: " ))
        (setq n 1 )
        (while
                (setq wz-pt (getpoint "\n请点击数字插入位置: " ))
                (setq wz-data (+ n wz-data))
                (setq wzneirong (itoa wz-data ))
                (entmake (append (list
                                                                                         (cons 0 "TEXT");;;类型
                                                                                         (cons 1 wzneirong );;;内容
                                                                                         (cons 8 layer) ;;;图层
                                                                                         (cons 7 wz-yangshi )
                                                                                         (cons 40 wz-gaodu);;;文字高度
                                                                                         (cons 41 wz-kuandu);;;宽度比例
                                                                                         (cons 71 0)
                                                                                         (cons 72 1)
                                                                                         (cons 73 1)
                                                                                         (cons 10 wz-pt)
                                                                                         (cons 11 wz-pt);;;文字插入点坐标
                                                                                 )
                                                 )
                )
  )
  (setvar "cmdecho" 1)
)

uualice2020

(defun c:tt ()
       
        (setq r (getreal "\n文字大小"))
        (setq str (getstring "\n起始号"))
        (setq i (atoi str))
  (while (setq pc (getpoint "\n点位置"))
                     
               (command "CIRCLE" pc (* r 1.2) )
               (command "text" "j" "mc" pc  r  "" i )
              (setq i (1+ i))
                    
               
        )

       
)

duhan6401

uualice2020 发表于 2022-5-21 19:48
(defun c:tt ()
       
        (setq r (getreal "\n文字大小"))

多些你的提点，我看到的资料是entmake比command速度要快

xj6019

不是大批量处理 没啥吧，批量操作的时候 command确实慢