[求助]：求助：如何得出donut的圆心？

zhouri

rt并且将一组donut的圆心数据保存起来，该如何左？我是LISP的初学者。

lsjjm

可以用LIST命令查出。
LISP程序：
[PHP]
(defun c:test (/ pts)
  (setq ent (car (entsel)))
  (setq pts (vl-remove-if-not '(lambda(x)(= 10 (car x))) (entget ent)))
  (setq pc (list (+ (cadr (car pts))(/ (- (cadr (cadr pts))(cadr (car pts))) 2))
                 (caddr (car pts))))
)
[/PHP]

已改

zhouri

大哥你的程序好像有点问题，运行不了。

silen618

也贴一个：再试一试！

(defun c:docen (/ ss i ent lis ptlis)
  (setq ss (ssget))
  (setq i 0)
  (repeat (sslength ss)   
    (setq lis (cons (entget (ssname ss i)) lis))
    (setq i (1+ i))
    )  
  (foreach ent lis (setq ptlis (cons (cdr (assoc 10 ent)) ptlis)))
  )

zhouri

不错，是高手，好用的

(foreach ent lis (setq p11 (cdr (assoc 10 ent))  p12 (cdr (assoc 11 ent)) )

(setq x11 (car p11))
(setq x12 (car p12))
(setq y11 (cadr p11))
(setq y12 (cadr p12))

(setq p2 (list (/ (+ x11 x12 ) 2.0)  (/ (+ y11 y12 ) 2.0) ))
麻烦高手帮我看看，我的称许为什么回错，我要的是中点坐标

lsjjm

3楼：哪里“好象”有问题，能否说清楚？
你在1楼说要求圆心，5楼又说是求中点（指圆环环厚的中间点）， 到底是哪一个？
顺便说一下，4楼程序返回的是中点，不是圆心！

JOSDENNIS

(setq ba (entlast "\n選一個donut:"))
(setq two-p(vlax-safearray->list (vlax-variant-value (vla-get-coordinates (vlax-ename->vla-object ba)))))
(setq Cent-p(polar (list (car two-p) (cadr two-p))
                   (angle (list (car two-p) (cadr two-p)) (list (caddr two-p) (cadddr two-p)))
                   (* 0.5(distance (list (car two-p) (cadr two-p)) (list (caddr two-p) (cadddr two-p))))))

zhouri

最初由 lsjjm 发布
[B]3楼：哪里“好象”有问题，能否说清楚？
你在1楼说要求圆心，5楼又说是求中点（指圆环环厚的中间点）， 到底是哪一个？
顺便说一下，4楼程序返回的是中点，不是圆心！ [/B]

大哥，我说有点问题是指你修改前的，修改后没有问题的，


经过我的仔细分析，发现用四楼的方法几乎不能得出圆心，因为他只能得出一个中间点的坐标。