上传一个简单的数字递增复制
我自己开始学习写代码弄的，请大家给个建议，我想在数字外面加个圈圈，不知道咋弄(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)
)
(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" pcr"" i )
(setq i (1+ i))
)
) uualice2020 发表于 2022-5-21 19:48
(defun c:tt ()
(setq r (getreal "\n文字大小"))
多些你的提点，我看到的资料是entmake比command速度要快 不是大批量处理 没啥吧，批量操作的时候 command确实慢
页:
[1]