[求助]定个圆心的点

bios

斑竹，我记得你写了个lsp是定polyline的心的程序，
我现在有个问题是有很多很多个圆，大小还不一样。
但现在想申请你编个程序，就是同以前一样
很快的在圆心处写一个点！

meflying

看看这样行不行
(defun c:test( / ss n i sname)
  (setq ss (ssget "x" '((0 . "circle"))))
  (setvar "cmdecho" 0)
  (setq n (sslength ss))
  (setq i 0)
  (while (< i n)
    (setq sname (ssname ss i))
    (command "_.dimcenter" (list sname '(0 0)))
    (setq i (1+ i))
  )
  (princ)
)

bios

可以，但不一象以前那样定的是一个点吗？
这样的话就很方便改他的显示大小，格式什么的？
再帮帮小弟吧。lsp我懂，只会用，斑竹不好意思了

meflying

以前这个好象是龙龙仔做的，具体细节问题我不是很清楚。
要不你再说清楚点

bios

我把他写的哪个对polyline的标点的发给你好吗？
你帮我看看？

我看不到你的资料，怎么发给你？
就是也是在这个版的一个帖子

找到了http://bbs.mjtd.com/forum.php?mod=viewthread&tid=8114
就是斑竹归纳的精华贴
斑竹帮我看下吧，我一直在这等着呢，谢谢！

meflying

是这样吗？
(defun c:test( / ss n i sname pt)
  (setq ss (ssget "x" '((0 . "circle"))))
  (setvar "cmdecho" 0)
  (setq n (sslength ss))
  (setq i 0)
  (while (< i n)
    (setq sname (ssname ss i))
    (setq pt (cdr (assoc 10 (entget sname))))
    (command "_.point" pt)
    (setq i (1+ i))
  )
  (princ)
)

bios

对了，非常感谢！