点变圆加编号

gaomingabc456 · 发表于 2017-8-4 11: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

把“ (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

学习了，谢谢分享

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

谢谢楼主，支持下

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

谢谢楼主，支持下

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

谢谢楼主，真心好用

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

同意lishucheng96楼的观点

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