[求助]：如何求加粗好的圆弧的圆心？

libo2000 · 发表于 2003-9-29 08:45:22

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(command ".arc" p1 p2 p3)
(command ".pedit" (entlast) "Y" "W" 30 "")
如何求加粗好的圆弧的圆心?

syb106 · 发表于 2003-9-29 08:51:31

画一条线的时候，键入cen，就会将圆心显示出来

sosono · 发表于 2003-9-29 08:52:00

将线炸开不就可以了？

lsjjm · 发表于 2003-9-29 09:06:23

LIST即可.

libo2000 · 发表于 2003-9-29 11:26:20

没有说清楚
如何用Autolisp求出其圆心

zhynt · 发表于 2003-9-29 12:16:37

获取它的组码10其为圆心坐标
(setq cpt (cdr (assoc 10 (entget (car (entsel))))))

libo2000 · 发表于 2003-9-29 12:55:05

最初由 zhynt 发布
[B]获取它的组码10其为圆心坐标
(setq cpt (cdr (assoc 10 (entget (car (entsel)))))) [/B]

该点不是圆心，而是粗圆弧的一个端点阿。

lsjjm · 发表于 2003-9-29 13:26:39

下面的程序码可以满足你的要求:
(defun c:test ()
  (setq a (entsel))
  (vl-cmdf "explode" a "")
  (setq cpt (cdr (assoc 10 (entget (entlast)))))
  (vl-cmdf "undo" "")
  cpt
)
另:如果安照你的操作步骤, 为什么不在 (command ".arc" p1 p2 p3) 后就求圆心?省得炸了?

libo2000 · 发表于 2003-9-29 13:34:22

最初由 lsjjm 发布
[B]8楼楼主说：
另:如果安照你的操作步骤, 为什么不在 (command ".arc" p1 p2 p3) 后就求圆心?省得炸了?
[/B]

如果那个圆弧早就存在了呢?

[FONT=courier new]
;圆弧的中点====>>>
(defun chengs_ArcMid ( ln1 / elist p0 p1 p2 p12 p3 r angr w)
(if (listp ln1) (setq ln1 (car ln1)))
(setq elist (entget ln1)
w (cdr (assoc 0 elist)) ;为加粗线段
n (chengs_assoc 10 ln1 3) ;n等于nil则加粗线段只有2个端点。chengs_assoc是获取第N个相同assoc_num的值
)
(if (and (= w "LWPOLYLINE") (not n))
(progn
(command ".undo" "be")
(command ".pedit" ln1 "W" 0 "")
(command ".EXPLODE" ln1)
(setq ln1 (entlast)
elist (entget ln1)
)
(command ".undo" "e")
(command ".u")
)
);endif
(if (= (cdr (assoc 0 elist)) "ARC")
(setq
p0 (cdr (assoc 10 elist))
r (cdr (assoc 40 elist))
p1 (cdr (assoc 50 elist))
p2 (cdr (assoc 51 elist))
p1 (polar p0 p1 r)
p2 (polar p0 p2 r)
p12 (chengs_getpoint_mid p1 p2)
angr (angle p0 p12)
p3 (polar p0 angr r)
)
);endif "ARC"
p3
);endfun
;<<<====
[/FONT]

[FONT=courier new] 
;圆弧的中点====>>> 
(defun chengs_ArcMid ( ln1 / elist p0 p1 p2 p12 p3 r angr w) 
    (if (listp ln1) (setq ln1 (car ln1))) 
    (setq elist (entget ln1) 
          w (cdr (assoc 0 elist))  ;为加粗线段 
          n (chengs_assoc 10 ln1 3) ;n等于nil则加粗线段只有2个端点。chengs_assoc是获取第N个相同assoc_num的值 
 
    ) 
    (if (and (= w "LWPOLYLINE") (not n)) 
      (progn 
        (command ".undo" "be") 
        (command ".pedit" ln1 "W" 0 "") 
        (command ".EXPLODE" ln1) 
        (setq ln1 (entlast) 
              elist (entget ln1) 
        ) 
        (command ".undo" "e") 
        (command ".u") 
      ) 
    );endif 
    (if (= (cdr (assoc 0 elist)) "ARC") 
      (setq 
        p0 (cdr (assoc 10 elist)) 
        r (cdr (assoc 40 elist)) 
        p1 (cdr (assoc 50 elist)) 
        p2 (cdr (assoc 51 elist)) 
        p1 (polar p0 p1 r) 
        p2 (polar p0 p2 r) 
        p12 (chengs_getpoint_mid p1 p2) 
        angr (angle p0 p12) 
        p3 (polar p0 angr r) 
      ) 
    );endif "ARC" 
    p3 
);endfun 
;<<<==== 
  [/FONT]

将原来的实体用(command ".break")打断总不是好办法！！

lsjjm · 发表于 2003-9-29 17:01:33

"如果那个圆弧早就存在了呢?" 那就用我前面写的程序呀, 你试过了吗?

eachy · 发表于 2003-9-29 20:30:06

这样是否可以
_$ (setq e (entlast))
<图元名: 7ef56280>
_$ (setq pt (osnap (cdr (assoc 10 (entget e))) "_cen"))
(25907.7 15780.1 0.0)
_$

aeo · 发表于 2003-9-29 20:34:59

应该由拱高求圆心.

上面的也行，但有时候程序里不一定可以(command "explode"..)

osnap不是更快?

libo2000 · 发表于 2003-9-30 08:59:07

最初由 aeo 发布
[B]应该由拱高求圆心.
[/B]

用(osnap)倒是挺方便的，
那拱高与圆心的关系又是？

ll_j · 发表于 2003-9-30 09:51:39

发一段我的代码：

(defun pl_cen (pt1 pt2 at) ;圆弧段圆心，pt1、pt2、at为弧段首尾坐标及凸度
(setq xit (angle pt1 pt2)
b (distance pt1 pt2)
h (- (* b at 0.5))
r (/ (+ (* b b) (* 4 h h)) 8 h)
hh (- r h)
x0 (/ (+ (car pt1) (car pt2)) 2)
y0 (/ (+ (cadr pt1) (cadr pt2)) 2)
ptc (polar (list x0 y0) (- xit (/ pi 2)) hh)
)
)

aeo · 发表于 2003-10-1 00:30:10

http://www.afralisp.com/lisp/Bulges1.htm

其实就在上面推荐的网站里.

有那么多好东西不看看吗?!!

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

[求助] [求助]：如何求加粗好的圆弧的圆心？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块