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

编号是反向的，改成正编就好了
页: [1]
查看完整版本: 点变圆加编号