点变圆加编号

gaomingabc456 · 发表于 2017-8-4 11:03:03

(defun c:dyh ();;;点变圆加编号
  (prompt "\n功能 ◆◆◆◆批量点变圆◆◆◆◆")
  (setq zj (getdist "\n 输入半径(0.4) <退出>:"))
  (if (null zj)(setq zj 0.4))
  (setq ss (ssget '((0 . "point"))))
  (progn
   (setq sn (sslength ss))
   (setq i 0)
   (repeat sn
(setq spt (ssname ss i ))
      (setq ept (entget spt))
      (setq pt(cdr(assoc 10 ept)));;取得点坐标
(Command "circle" pt zj)
      (command "text" "j" "bc" pt 0.2 0 (+ i 1))
(setq i(+ i 1))
   )
)
  (princ)
  )

lishucheng96 · 发表于 2017-8-6 15:07:57

把“ (command "text" "j" "bc" pt 0.2 0 (+ i 1))” 改成“ (command "text" "j" "mc" pt (* 0.2 (/ zj 0.2)) 0 (+ i 1))”更好。

liwen888888 · 发表于 2017-8-7 07:44:10

学习了，谢谢分享

1028882406@qq.c · 发表于 2017-8-27 15:51:19

谢谢楼主，支持下

迷失1786 · 发表于 2018-5-21 22:28:05

谢谢楼主，支持下

疯球 · 发表于 2018-5-28 21:57:20

谢谢楼主，真心好用

香远益清 · 发表于 2019-12-24 14:36:17

同意lishucheng96楼的观点

lijunfa12345 · 发表于 2024-10-1 16:09:31

编号是反向的，改成正编就好了

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