如何用lisp获取选择圆弧的起,始点,中点,圆心,角度

shine.ks

如何用lisp获取选择圆弧的起,始点,中点,圆心,角度

请高手赐招, 谢谢!!

shine_ks@sohu.com 急切期待!!

yubihai

留个记号。以后会用到。

対罘q!㈤嗳你

谢谢 版主 收藏起来了

czb203

无私奉献，值得学习

shine.ks

高手在哪里?

yshf

2. ;一个比较传统的求法
3. (defun c:test()
4.    (if (setq ent (car (entsel "\n请选择圆弧:")))
5.        (if (= (cdr (assoc 0 (setq db (entget ent)))) "ARC")
6.            (progn
7.                (setq pc (cdr (assoc 10 db)) ;圆心
8.        r  (cdr (assoc 40 db)) ;半径
9.        a0 (cdr (assoc 50 db))
10.        a1 (cdr (assoc 51 db))
11.        ps (polar pc a0 r);起点
12.        pe (polar pc a1 r);止点
13.        pd (mapcar '* '(0.5 0.5) (mapcar '+ ps pe))
14.        pm (polar pc (angle pc pd) r);中点
15.        an (- a1 a0);圆心角
16.         )
17.         (if (< an 0) (setq an (+ an (* 2.0 pi))))
18.         (princ (strcat "\n圆心=" (rtos (car pc) 2 3) "," (rtos (cadr pc) 2 3)))
19.         (princ (strcat "\n起点=" (rtos (car ps) 2 3) "," (rtos (cadr ps) 2 3)))
20.         (princ (strcat "\n止点=" (rtos (car pe) 2 3) "," (rtos (cadr pe) 2 3)))
21.         (princ (strcat "\n中点=" (rtos (car pm) 2 3) "," (rtos (cadr pm) 2 3)))
22.         (princ (strcat "\n圆心角=" (angtos an 1 6) ))
23.            )
24.            (alert "所选取的不是圆弧!")
25.        )
26.    )
27. )

;一个比较传统的求法 (defun c:test()    (if (setq ent (car (entsel "\n请选择圆弧:")))        (if (= (cdr (assoc 0 (setq db (entget ent)))) "ARC")            (progn                (setq pc (cdr (assoc 10 db)) ;圆心        r  (cdr (assoc 40 db)) ;半径        a0 (cdr (assoc 50 db))        a1 (cdr (assoc 51 db))        ps (polar pc a0 r);起点        pe (polar pc a1 r);止点        pd (mapcar '* '(0.5 0.5) (mapcar '+ ps pe))        pm (polar pc (angle pc pd) r);中点        an (- a1 a0);圆心角         )         (if (< an 0) (setq an (+ an (* 2.0 pi))))         (princ (strcat "\n圆心=" (rtos (car pc) 2 3) "," (rtos (cadr pc) 2 3)))         (princ (strcat "\n起点=" (rtos (car ps) 2 3) "," (rtos (cadr ps) 2 3)))         (princ (strcat "\n止点=" (rtos (car pe) 2 3) "," (rtos (cadr pe) 2 3)))         (princ (strcat "\n中点=" (rtos (car pm) 2 3) "," (rtos (cadr pm) 2 3)))         (princ (strcat "\n圆心角=" (angtos an 1 6) ))            )            (alert "所选取的不是圆弧!")        )    ) )

shine.ks

终于见到有人回贴了,非常感谢!!

不过我加载试用了,发现除了角度是正确的,获取的圆弧起,始点,中点,圆心坐标值都不对啊~~

还请高手赐招!!

yshf

既然如此，把你的dwg文件发上来以验证程序的提取结果。如果角度是正确的，那就有一种可能，圆弧被平移或旋转过，起、止点,中点,圆心坐标值肯定与标注值不一致。

yshf

shine.ks

我在坐标0点处画了任意一个圆弧, 获取值为:

圆心=-41.741,-451.203
起点=-41.741,-553.958
止点=61.014,-451.203
中点=30.918,-523.862
圆心角=90d0'0.00""\n圆心角=90d0'0.00\""

发现只有圆心角是对的,请赐教~~~谢谢!!

yshf

因为在当前视口中定义了一个名为“未命名”的坐标系，其原点坐标为：X=-47.7047，Y=-451.2029,Z=0，这与世界坐标系的原点（X=0，Y=0，Z=0）不相重合，也就是说你那个坐标0点是由世界坐标原点X方向向左移动了47.7047，Y方向向下移动了451.2029，故此提取的坐标不能达到你预期的结果。关于“未命名”坐标系原点的数值，可在命令行中键入“ucsman”，并单击“详细信息（T）”就能看到，如下图：

file:///C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/msohtml1/01/clip_image002.jpg

相应的程序改为如下：

3. ;一个比较传统的求法
4. (defun c:test()
5.     (if (setq ent (car (entsel "\n请选择圆弧:")))
6.         (if (= (cdr (assoc 0 (setq db (entget ent)))) "ARC")
7.             (progn
8.                 (setq pc (cdr (assoc 10 db)) ;圆心
9.                       r  (cdr (assoc 40 db)) ;半径
10.                       a0 (cdr (assoc 50 db))
11.                       a1 (cdr (assoc 51 db))
12.                       ps (polar pc a0 r);起点
13.                       pe (polar pc a1 r);止点
14.                       pd (mapcar '* '(0.5 0.5) (mapcar '+ ps pe))
15.                       pm (polar pc (angle pc pd) r);中点
16.                       an (- a1 a0);圆心角
17.         
18.                 )
19.                 (if (< an 0) (setq an (+ an (* 2.0 pi))))
20.          (if (not (equal '(0 0 0) (setq org (getvar "ucsorg"))))
21.       (setq pc (mapcar '- pc org)
22.      ps (mapcar '- ps org)
23.      pe (mapcar '- pe org)
24.      pm (mapcar '- pm org)
25.       )
26.   )
27.                 (princ (strcat "\n圆心=" (rtos (car pc) 2 3) "," (rtos (cadr pc) 2 3)))
28.                 (princ (strcat "\n起点=" (rtos (car ps) 2 3) "," (rtos (cadr ps) 2 3)))
29.                 (princ (strcat "\n止点=" (rtos (car pe) 2 3) "," (rtos (cadr pe) 2 3)))
30.                 (princ (strcat "\n中点=" (rtos (car pm) 2 3) "," (rtos (cadr pm) 2 3)))
31.                 (princ (strcat "\n圆心角=" (angtos an 1 6) ))
32.             )
33.             (alert "所选取的不是圆弧!")
34.         )
35.     )
36.     (princ)
37. )

;一个比较传统的求法 (defun c:test()     (if (setq ent (car (entsel "\n请选择圆弧:")))         (if (= (cdr (assoc 0 (setq db (entget ent)))) "ARC")             (progn                 (setq pc (cdr (assoc 10 db)) ;圆心                       r  (cdr (assoc 40 db)) ;半径                       a0 (cdr (assoc 50 db))                       a1 (cdr (assoc 51 db))                       ps (polar pc a0 r);起点                       pe (polar pc a1 r);止点                       pd (mapcar '* '(0.5 0.5) (mapcar '+ ps pe))                       pm (polar pc (angle pc pd) r);中点                       an (- a1 a0);圆心角                          )                 (if (< an 0) (setq an (+ an (* 2.0 pi))))          (if (not (equal '(0 0 0) (setq org (getvar "ucsorg"))))       (setq pc (mapcar '- pc org)      ps (mapcar '- ps org)      pe (mapcar '- pe org)      pm (mapcar '- pm org)       )   )                 (princ (strcat "\n圆心=" (rtos (car pc) 2 3) "," (rtos (cadr pc) 2 3)))                 (princ (strcat "\n起点=" (rtos (car ps) 2 3) "," (rtos (cadr ps) 2 3)))                 (princ (strcat "\n止点=" (rtos (car pe) 2 3) "," (rtos (cadr pe) 2 3)))                 (princ (strcat "\n中点=" (rtos (car pm) 2 3) "," (rtos (cadr pm) 2 3)))                 (princ (strcat "\n圆心角=" (angtos an 1 6) ))             )             (alert "所选取的不是圆弧!")         )     )     (princ) )

shine.ks

现在好了,非常感谢yshf!!

另外请教一下,获取圆弧周长的语法怎样写呀?

还有就是,我在做设计的时候经常会花许多时间做零件加工注解,

后来我写一个简单的程序,能够叫出注解图块,可以节省我很多时间.可是觉得不够好,

在修改注解内容的时候仍然需要输入,我希望能够双击注解图块可以出现对话框(附图),这样可以选择性修改,应该更方便些.

由于能力有限,所以在论坛上发贴求对话框的执行程序,可是一直无人回贴.

不知yshf可否帮忙,毕竟需要投入精力去写,所以我可以考虑付费.当然需要先谈好价钱的.呵呵~~

谢谢!!

我的QQ330646545

shine.ks

附上我的小程序,很俗气的程序~~呵呵~~