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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › XDRX_API技术支持 › [编程申请]：角平分线工具
返回列表 发新帖
查看: 1377|回复: 10

[编程申请]：角平分线工具

[复制链接]
e2002

已领礼包: 23个

财富等级: 恭喜发财
发表于 2002-5-18 11:08:46 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
如何绘制两直线的角平分线?
,Xline虽然提供了bisect这样的方法,不过我想在进一步
能不能直接得到Line,而不是Xline?

具体交互步骤:
Command: Specify angle vertex point or [Select]:

选点后提示
Command: Specify angle start point :<exit>
    //选角初始方向点,不选则退出.
Command:Specify angle end point:
   //选角中止方向点,这时已经确定了平分线的方向了
  鼠标拖动被固定在此方向上
   
  现在提示:
Command:Specify the bisect start point <Enter for the first point>:
   //鼠标点取确定平分线的起点,回车则取为先前的
  angle vertex point
     接着:
Command: Specify the bisect end point :
   //选角平分线的终点.完成操作


当开始提示
Command:Specify angle vertex point or [Select]:
选择Select时,可以选择某两根AcDbLine对象,获得其交点,作为angle vertex point, 且方向也可以得到,这时,只要提示 :
Specify the bisect start point <Enter for the first point>:
以下同前...

如果是没有交点的平行直线,注意程序不要出错,最好是,就此可以画这两根Line的中心线...

要求有Drag,动态...
这将是足以匹敌MS的角平分线工具的程序!
分线, point, Specify

相关帖子

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

使用道具 举报

ll_j

已领礼包: 6530个

财富等级: 富甲天下
发表于 2002-5-19 02:35:41 | 显示全部楼层
中午写一小段，只是一个思路，有兴趣的朋友可以帮助完善。

  3. (defun c:Ab()
  4.   (setq l1(entget(car(entsel "\n选择第一条直线：")))
  5.         l2(entget(car(entsel "\n选择第二条直线：")))
  6.         pt10(cdr(assoc 10 l1))
  7.         pt11(cdr(assoc 11 l1))
  8.         pt20(cdr(assoc 10 l2))
  9.         pt21(cdr(assoc 11 l2))
  10.         int(inters pt10 pt11 pt20 pt21 nil)
  11.         ang1(angle pt10 pt11)
  12.         ang2(angle pt20 pt21)
  13.         ang(/ (+ ang1 ang2) 2.0)
  14.         oldsnap(getvar "snapmode")
  15.         oldorter(getvar "orthomode")
  16.         oldsang(getvar "snapang")
  17.   )
  18.   (if (>= (atof (getvar "acadver")) 15.0)
  19.     (setq oldpol (getvar "autosnap"))
  20.   )
  21.   (command "._undo" "begin")
  22.   (setvar "snapmode" 0)
  23.   (setvar "snapang" ang)
  24.   (setvar "orthomode" 1)
  25.   (command "._line" int pause "")
  26.   (setvar "snapang" oldsang)
  27.   (setvar "snapmode" oldsnap)
  28.   (setvar "orthomode" oldorter)
  29.   (if oldpol (setvar "autosnap" oldpol))
  30.   (command "._undo" "end")
  31.   (princ)
  32. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

梦断江南
发表于 2002-5-19 06:56:43 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
e2002你要求的步骤看得我眼花缭乱，还要什么动态。不管了，我照自己的想法作一个，顺便支持一下xd,:),反正我几乎不用求角平分线。

  3. ;;求两线条角平分线或者中线
  4. ;;配合xd_api使用
  5. (defun c:midal ( / el1 el2 p1 p2 midp intp)
  6. (xdrx_begin)
  7. (setq el1 (xdrx_entsel "\n选择第一条线：" '((0 . "*line")) )
  8.        el2 (xdrx_entsel "\n选择第二条线：" '((0 . "*line")) )
  9.        intp (car(xdrx_getinters (car el1) (car el2) 3))
  10.        p1 (last el1)
  11.        p2 (last el2)
  12.        midp (xdrx_midp p1 p2)
  13. )
  14. (if intp
  15.    (progn
  16.      (setq p2 (polar intp (angle intp (last el2)) (distance intp p1))
  17.          midp (xdrx_midp p1 p2))
  18.      (command "_.line" intp midp "" ^c)
  19.    )
  20.      (command "_.copy" p1 "" p1 midp ^c)
  21. )
  22. (xdrx_end)
  23. )


  2. <center>
  3. <embed src="http://xdsoft.myrice.com/forum/lxx/lxxlsp/midal2.swf" quality=high width=800 height=600 loop=true type="application/x-shockwave-flash">
  4. </embed>
  5. </center>
复制代码

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

使用道具 举报

梦断江南
发表于 2002-5-19 08:39:35 | 显示全部楼层
看了ll_j的程序才理解，是要这么个动态啊。ok
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

marting

已领礼包: 20个

财富等级: 恭喜发财
发表于 2002-5-19 08:53:09 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
最初由 梦断江南 发布
[B]e2002你要求的步骤看得我眼花缭乱，还要什么动态。不管了，我照自己的想法作一个，顺便支持一下xd,:),反正我几乎不用求角平分线。
[CODE]
;;求两线条角平分线或者中线
;;配合xd_api使用
(defun c:midal ( / el1 ... [/B]


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

使用道具 举报

梦断江南
发表于 2002-5-19 09:02:50 | 显示全部楼层
flash cam 1.79
http://xdsoft.myrice.com/forum/lxx/tmp/HA-FlashCam179ce-LDR.jpg
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

cad517

已领礼包: 3个

财富等级: 恭喜发财
发表于 2002-6-6 15:42:02 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
三等分如何实现
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

caibaobao
发表于 2002-6-6 20:35:32 | 显示全部楼层
梦断江南的flash camera，给出的下载地址无法连接！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

LUCAS
发表于 2002-6-6 23:59:50 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
最初由 cad517 发布
[B]三等分如何实现 [/B]

  3. (defun C:ESPACE        (/ QJ Q@ QQ QL Q& Q1 Q#        Q0 Q$ QO Q| Q% Q?J QJJ Q@J QQJ
  4.                  QLJ Q&J Q1J Q#J Q0J Q$J QOJ Q|J
  5.                 )
  6.   (command ".undo" "g")
  7.   (setq Q|J (getvar "limcheck"))
  8.   (setvar "limcheck" 0)
  9.   (while (null (setq QJ (entsel "\nSelect an entity: "))))
  10.   (while (null
  11.            (setq Q@ (entsel "\nSelect next entity Counterclockwise: "))
  12.          )
  13.   )
  14.   (setq        QQ (entget (car QJ))
  15.         QL (entget (car Q@))
  16.   )
  17.   (if (and (= (Q%J 0 QQ) "LINE") (= (Q%J 0 QL) "LINE"))
  18.     (progn
  19.       (princ "\nLines...")
  20.       (setq Q$ (Q%J 10 QQ)
  21.             Q| (Q%J 11 QQ)
  22.             QO (Q%J 10 QL)
  23.             Q% (Q%J 11 QL)
  24.       )
  25.       (if (not (inters Q$ Q| QO Q% NIL))
  26.         (progn (princ "Parallel...")
  27.                (setq Q0J t
  28.                      Q1J (Q?@ Q$ Q|)
  29.                      Q#J (Q?@ QO Q%)
  30.                      QQJ (distance Q1J Q#J)
  31.                )
  32.                (princ (strcat "\nDistance is "
  33.                               (rtos QQJ)
  34.                               " / "
  35.                               (rtos QQJ 2 2)
  36.                               ". "
  37.                       )
  38.                )
  39.         )
  40.         (progn
  41.           (princ "Not parallel...")
  42.           (setq        Q0J NIL
  43.                 QOJ (inters Q$ Q| QO Q% NIL)
  44.                 QJJ (angle QOJ (Q?@ Q$ Q|))
  45.                 QLJ (angle QOJ (Q?@ QO Q%))
  46.                 Q&J (+ (QJ@ 180) (- (QJ@ 180) (- QJJ QLJ)))
  47.           )
  48.           (princ (strcat "\nAngle is " (angtos Q&J 0 2) " degrees. "))
  49.         )
  50.       )
  51.     )
  52.     (progn (setq Q0J t)
  53.            (if (and (= (Q%J 0 QQ) "POLYLINE") (= (Q%J 0 QL) "POLYLINE"))
  54.              (progn (princ "\nPolylines...")
  55.                     (setq Q&  (entget (entnext (Q%J -1 QQ)))
  56.                           Q1  (entget (entnext (Q%J -1 Q&)))
  57.                           Q1J (Q?@ (Q%J 10 Q&) (Q%J 10 Q1))
  58.                           Q#  (entget (entnext (Q%J -1 QL)))
  59.                           Q0  (entget (entnext (Q%J -1 Q#)))
  60.                           Q#J (Q?@ (Q%J 10 Q#) (Q%J 10 Q0))
  61.                     )
  62.              )
  63.              (progn (princ "\nCircles or blocks...")
  64.                     (setq Q1J (Q%J 10 QQ)
  65.                           Q#J (Q%J 10 QL)
  66.                     )
  67.              )
  68.            )
  69.            (setq QQJ (distance Q1J Q#J))
  70.            (princ (strcat "\nDistance is "
  71.                           (rtos QQJ)
  72.                           " / "
  73.                           (rtos QQJ 2 2)
  74.                           ". "
  75.                   )
  76.            )
  77.     )
  78.   )
  79.   (cond ((= Q@@ NIL) (setq Q@@ 2)))
  80.   (initget 6)
  81.   (setq Q?J (getint (strcat "\nNumber of spaces <" (itoa Q@@) ">: ")))
  82.   (if (= Q?J NIL)
  83.     (setq Q?J Q@@)
  84.     (setq Q@@ Q?J)
  85.   )
  86.   (setq QQ@ (getvar "ucsfollow"))
  87.   (setvar "ucsfollow" 0)
  88.   (command ".ucs" "w")
  89.   (if Q0J
  90.     (progn (setq Q@J (/ QQJ Q?J))
  91.            (setvar "snapang" (angle Q1J Q#J))
  92.            (command ".array" QJ "" "R" 1 Q?J Q@J)
  93.            (setvar "snapang" 0)
  94.            (princ (strcat "\nSpaced at "
  95.                           (rtos Q@J 2 2)
  96.                           " inches ("
  97.                           (rtos Q@J)
  98.                           ") on center. "
  99.                   )
  100.            )
  101.     )
  102.     (progn (command ".array" QJ "" "P" QOJ (1+ Q?J) (QL@ Q&J) "")
  103.            (entdel (entlast))
  104.            (redraw (car Q@))
  105.            (princ (strcat "Spaced at "
  106.                           (rtos (/ (atof (angtos Q&J 0 2)) Q@@) 2 2)
  107.                           " degrees on center. "
  108.                   )
  109.            )
  110.     )
  111.   )
  112.   (setvar "limcheck" Q|J)
  113.   (command ".ucs" "p")
  114.   (command ".undo" "e")
  115.   (princ)
  116. )
  117. (defun Q?@ (Q&@ Q1@)
  118.   (mapcar (quote (lambda (Q#@ Q0@) (/ (+ Q#@ Q0@) 2)))
  119.           Q&@
  120.           Q1@
  121.   )
  122. )
  123. (defun QJ@ (Q$@) (* pi (/ Q$@ 180.0)))
  124. (defun QL@ (Q$@) (* (/ Q$@ pi) 180.0))
  125. (defun Q%J (Q$@ QO@) (cdr (assoc Q$@ QO@)))
  126. (princ "\nType ESPACE to run command.")
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

cad517

已领礼包: 3个

财富等级: 恭喜发财
发表于 2002-6-7 04:49:07 | 显示全部楼层
非常谢谢lucas的工作！！
另：现在好像只能用在line画的对象中，不能用在pline画的对象中。能不能改善一下，再次感谢！！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

四圈儿
发表于 2003-8-10 14:58:11 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
最初由 caibaobao 发布
[B]梦断江南的flash camera，给出的下载地址无法连接！ [/B]


我刚下了一个，这个地址可以下：http://www.caiqing.net/search.asp?softname=flash+cam

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-10-10 22:00 , Processed in 0.357175 second(s), 53 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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