找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1445|回复: 2

[教学] API应用 多义线开切口

[复制链接]

已领礼包: 1268个

财富等级: 财源广进

发表于 2014-11-15 15:50:45 | 显示全部楼层 |阅读模式

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

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

×
  1. (defun c:tt (/ e d1 d2 index lst p p+ p- p1 p2 p3)
  2.   (if (and (setq e (xdrx_entsel
  3.                      "\n拾取多义线: "
  4.                      '((0 . "lwpolyline") (-4 . "&=") (70 . 1))
  5.                    )
  6.            )
  7.            (setq d1 (getdist (cadr e) "\n宽度: "))
  8.            (setq d2 (getdist (cadr e) "\n深度: "))
  9.            (setq p (cadr e))
  10.       )
  11.     (progn
  12.       (if (not (xdrx_curve_direction (car e)))
  13.         (xdrx_curve_reverse (car e))
  14.       );_保证逆时针
  15.       (setq p (apply 'xdrx_curve_getclosestpoint e)
  16.             e (car e)
  17.       )
  18.       (while p
  19.         (setq index (xd::polyline:nearindex e p);_拾取点最近的顶点
  20.               lst   (xd::polyline:-Index+ e index);_前后索引点
  21.               p            (xdrx_polyline_getpointat e index)
  22.               p-    (xdrx_polyline_getpointat e (car lst))
  23.               p+    (xdrx_polyline_getpointat e (cadr lst))
  24.         )
  25.         (if (minusp (xd::pnts:area (list p- p p+)));_构成内角
  26.           (progn
  27.             (setq p1 (polar p (angle p p-) d1)
  28.                   p2 (polar p1 (angle p+ p) d2)
  29.                   p3 (polar p (angle p+ p) d2)
  30.             )
  31.             (xdrx_polyline_addvertexat e index p1)
  32.             (xdrx_polyline_addvertexat e (1+ index) p2)
  33.             (xdrx_polyline_setpointat e (+ 2 index) p3)
  34.           )
  35.         )
  36.         (setq p (getpoint "\nNear Point: "))
  37.       )
  38.     )
  39.   )
  40.   (princ)
  41. )
000.gif
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2014-11-17 13:45:14 | 显示全部楼层
求教:怎样将代码作成cad的插件啊? 新手请多指教。还有API 这个代码怎么应用啊?谢谢!   :loveliness:
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2016-8-27 08:15:52 | 显示全部楼层
谢谢谢谢谢谢
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-3-28 17:25 , Processed in 0.398095 second(s), 35 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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