设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [讨论]：过两圆作切线
返回列表 发新帖
查看: 670|回复: 2

[讨论]：过两圆作切线

[复制链接]
panzhongw
发表于 2005-5-23 09:31:35 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
有两个不相交的圆，如何用LISP做一条线与两圆相切。同时考虑切线在圆心连线的左或右
切线, 相切, 圆心

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

xyp1964
发表于 2005-6-16 02:00:41 | 显示全部楼层
[php](command "line" "tan" pause "tan" pause "")[/php]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xiao_longxin

已领礼包: 3个

财富等级: 恭喜发财
发表于 2005-6-16 07:28:13 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
测试

  3. (defun test (pd / e1 e2)
  4.   (setq
  5.     e1
  6.        (car (entsel))
  7.     e2
  8.        (car (entsel))
  9.   )
  10.   (twocir->qiexian e1 e2 pd)
  11. )


  4. ;;e1为第一个圆，e2为第二个圆
  5. ;;pd=1或2　时做外切线
  6. ;;pd=3或4  时做内切线
  7. ;;1、3是切线在e1的左侧，2、4为右侧

  9. (defun twocir->qiexian
  10.                        (e1        e2        pd        /        oldosmode
  11.                         oldcmdecho        ent1        ent2        cr_pt1        cr_r1
  12.                         cr_pt2        cr_r2        ang        ang1        ang2        jd
  13.                         jd_        jd1        jd2        pt1        pt2        e3
  14.                         e4        left        right        bl_gd        rev
  15.                        )
  16.   (setq oldcmdecho (getvar "cmdecho"))
  17.   (setvar "cmdecho" 0)
  18.   (setq oldosmode (getvar "osmode"))
  19.   (setvar "osmode" 0)

  21.   (setq        ent1   (entget e1)
  22.         ent2   (entget e2)
  23.         cr_pt1 (cdr (assoc 10 ent1))
  24.         cr_r1  (cdr (assoc 40 ent1))
  25.         cr_pt2 (cdr (assoc 10 ent2))
  26.         cr_r2  (cdr (assoc 40 ent2))
  27.   )
  28.   (if (> cr_r1 cr_r2)
  29.     ;;使大圆为pt2
  30.     (setq bl_gd         cr_pt1
  31.           cr_pt1 cr_pt2
  32.           cr_pt2 bl_gd
  33.           bl_gd         cr_r1
  34.           cr_r1         cr_r2
  35.           cr_r2         bl_gd
  36.           bl_gd         e1
  37.           e1         e2
  38.           e2         bl_gd
  39.           rev         t
  40.     )
  41.   )
  42.   　
  43.   (setq ang (angle cr_pt1 cr_pt2))
  44.   (if (> ang pi)
  45.     (setq ang (- ang (* pi 2.0)))
  46.   )
  47.   (cond        ((equal cr_pt1 cr_pt2)                ;当两圆同心时
  48.          (prompt "\n两圆同心没有切线")
  49.         )
  50.         ((or (= pd 2) (= pd 1))                ;做外切线
  51.          (if (= cr_r1 cr_r2)
  52.            (progn                        ;当两圆半径相等时
  53.              (command "._pline" cr_pt1 cr_pt2 "")
  54.              (setq e3 (entlast))
  55.              (setq ang (angle cr_pt1 cr_pt2))
  56.              (cond ((= pd 1)
  57.                     (setq ang1 (+ ang (/ pi 2.0)))
  58.                    )
  59.                    ((= pd 2)
  60.                     (if        rev
  61.                       (setq ang1 (+ ang (/ pi 2.0)))
  62.                       (setq ang1 (- ang (/ pi 2.0)))
  63.                     )
  64.                    )
  65.              )
  66.              (setq jd (polar cr_pt1 ang1 cr_r1))
  67.              (command "._move" e3 "" cr_pt1 jd)
  68.            )                                ;end 当两圆半径相等时
  69.            (progn                        ;两圆半径不等时
  70.              (command "._circle" cr_pt2 (abs (- cr_r1 cr_r2)))
  71.              (setq e3 (entlast))
  72.              (command "._circle" "2p" cr_pt1 cr_pt2)
  73.              (setq e4 (entlast))
  74.              (setq jd_ (GetInterPointlist e3 e4))
  75.              (entdel e3)
  76.              (entdel e4)
  77.              (setq ang1 (angle cr_pt1 (nth 0 jd_)))
  78.              (if (> ang1 pi)
  79.                (setq ang1 (- pi (* pi 2.0)))
  80.              )
  81.              (if (> ang1 ang)                ;判断两圆交点的左右
  82.                (setq left 0
  83.                      right 1
  84.                )
  85.                (setq left 1
  86.                      right 0
  87.                )
  88.              )
  89.              (cond ((= pd 2)
  90.                     (if        rev
  91.                       (setq jd1 (nth left jd_))
  92.                       (setq jd1 (nth right jd_))
  93.                     )
  94.                    )
  95.                    ((= pd 1)
  96.                     (if        rev
  97.                       (setq jd1 (nth right jd_))
  98.                       (setq jd1 (nth left jd_))
  99.                     )
  100.                    )
  101.              )
  102.              (command "pline" cr_pt1 jd1 "")
  103.              (setq
  104.                e3
  105.                    (entlast)
  106.                jd2
  107.                    (polar cr_pt2 (angle cr_pt2 jd1) cr_r2)
  108.              )
  109.              (command "._move" e3 "" jd1 jd2)
  110.            )                                ;end 当两圆半径不相等时
  111.          )                                ;end if
  112.         )                                ;end 做外切线
  113.         ((not (setq jd (GetInterPointlist e1 e2)))
  114.                                         ;当两圆没有交点时做内切圆
  115.          (command "._circle" cr_pt2 (+ cr_r1 cr_r2))
  116.          (setq e3 (entlast))
  117.          (command "._circle" "2p" cr_pt1 cr_pt2)
  118.          (setq e4 (entlast))
  119.          (setq jd_ (GetInterPointlist e3 e4))
  120.          (entdel e3)
  121.          (entdel e4)
  122.          (setq ang1 (angle cr_pt1 (nth 0 jd_)))
  123.          (if (> ang1 pi)
  124.            (setq ang1 (- pi (* pi 2.0)))
  125.          )
  126.          (if (> ang1 ang)                ;判断两圆交点的左右
  127.            (setq left 0
  128.                  right 1
  129.            )
  130.            (setq left 1
  131.                  right 0
  132.            )
  133.          )
  134.          (cond ((= pd 4)
  135.                 (if (and (= cr_r1 cr_r2)
  136.                          (and (> ang (* pi -1.0)) (< ang (* pi -0.5)))
  137.                     )
  138.                   (setq jd1 (nth right jd_))
  139.                   (setq jd1 (nth left jd_))
  140.                 )
  141.                )
  142.                ((= pd 3)
  143.                 (if (and (= cr_r1 cr_r2)
  144.                          (and (> ang (* pi -1.0)) (< ang (* pi -0.5)))
  145.                     )
  146.                   (setq jd1 (nth left jd_))
  147.                   (setq jd1 (nth right jd_))
  148.                 )
  149.                )
  150.          )
  151.          (command "pline" cr_pt1 jd1 "")
  152.          (setq
  153.            e3
  154.                (entlast)
  155.            jd2
  156.                (polar cr_pt2 (angle cr_pt2 jd1) cr_r2)
  157.          )
  158.          (command "._move" e3 "" jd1 jd2)
  159.         )                                ;end 当两圆没有交点时
  160.         (t                                ;当两圆有交点时做内切圆
  161.          (if (= 1 (length jd))
  162.            (progn                        ;有一个交点时
  163.              (setq jd (nth 0 jd))
  164.              (setq pt1 (polar jd (+ ang (/ pi 2.0)) cr_r1))
  165.              (setq pt2 (polar jd (- ang (/ pi 2.0)) cr_r1))
  166.              (command "pline" pt1 pt2 "")
  167.            )                                ;end 一个交点时
  168.            (prompt "\n两圆相交没有内切线")
  169.          )
  170.         )                                ;end  当两圆有交点时
  171.         　　　
  172.   )

  174.   (setvar "cmdecho" oldcmdecho)
  175.   (setvar "osmode" oldosmode)
  176.   (princ)

  178. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2025-9-28 07:04 , Processed in 0.290373 second(s), 34 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表