设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 53|回复: 5

[曲线] 查询和修改曲线的方向

[复制链接]

签到天数: 416 天

连续签到: 1 天

[LV.9]以坛为家II

已领礼包: 51个

财富等级: 招财进宝

发表于 2018-11-24 22:32:36 | 显示全部楼层 |阅读模式
  • 插件名称 : 曲线方向
  • 作  者 : Lispboy
  • 运行环境 :XDRX API 晓东工具箱 
  • 发布时间 :2018-11-24
  • 命令名称 :xdtb_curvedirec
  • 插件介绍 :查询和修改曲线的方向
  • 备  注 : (点击图片可以放大)
(点击图片可以放大)

晓东温馨提示 1、运行环境为 晓东工具箱XDRX API 的插件,请下载最新版本的 晓东工具箱XDRX API开发环境 一键安装
2、在ACAD中如何加载插件,请看 论坛插件使用方法
3、如果您有要求需要定制插件,请到 编程申请 论坛发帖求助

插件详细内容

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

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

x
  1. (defun c:xdtb_curvedirec (/ mids segs e pt)
  2.   (defun XD::Pnt:ToArraw (p v col w1 w2 h1 h2 / an an1 h1 p1 p2 p3 p4 p5 p6 p7)
  3.     (setq an  (angle '(0. 0. 0.) v)
  4.           an1 (+ an (/ pi 2))
  5.           h1  (/ h1 2.0)
  6.           p1  (polar p an1 h1)
  7.           p2  (polar p1 an w1)
  8.           p3  (polar p2 an1 h2)
  9.           p4  (polar p an (+ w1 w2))
  10.           p5  (polar p2 (+ an1 pi) (+ (* 2 h1) h2))
  11.           p6  (polar p2 (+ an1 pi) (* 2 h1))
  12.           p7  (polar p (+ an1 pi) h1)
  13.     )
  14.     (grvecs (list col  p1   p2         col  p2   p3        col  p3          p4   col
  15.                   p4   p5   col         p5   p6   col        p6   p7          col  p7
  16.                   p1
  17.                  )
  18.     )
  19.     t
  20.   )
  21.   (defun _callback (dynpt / x v h w1 w2 h1 h2)
  22.     (redraw)
  23.     (mapcar '(lambda (x)
  24.                (setq v        (xdrx_curve_getfirstderiv e x)
  25.                      h        (/ (getvar "viewsize") 80.0)
  26.                      w1        h
  27.                      w2        h
  28.                      h1        (* 2 h)
  29.                      h2        h
  30.                )
  31.                (XD::Pnt:ToArraw x v 252 w1 w2 h1 h2)
  32.              )
  33.             mids
  34.     )
  35.   )
  36.   (if (setq e (xdrx_entsel
  37.                 "\n拾取曲线<退出>:"
  38.                 '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))
  39.               )
  40.       )
  41.     (progn (xdrx_begin)
  42.            (setq pt   (cadr e)
  43.                  e    (car e)
  44.                  segs (xdrx_getpropertyvalue e "allsegs")
  45.                  mids (mapcar '(lambda (x) (xdge::getpropertyvalue x "midpoint"))
  46.                               segs
  47.                       )
  48.            )
  49.            (_callback t)
  50.            (xdrx_pointmonitor "_callback")
  51.            (xdrx_initget "F")
  52.            (if (setq var (getpoint "\n是否翻转方向[翻转(F)]<退出>:"))
  53.              (progn (cond ((= var "F") (xdrx_curve_reverse e))))
  54.            )
  55.            (_callback t)
  56.            (xdrx_initget)
  57.            (xdrx_pointmonitor)
  58.            (xdrx_end)
  59.     )
  60.   )
  61.   (princ)
  62. )


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

签到天数: 156 天

连续签到: 156 天

[LV.7]常住居民III

已领礼包: 396个

财富等级: 日进斗金

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

使用道具 举报

签到天数: 327 天

连续签到: 1 天

[LV.8]以坛为家I

已领礼包: 601个

财富等级: 财运亨通

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

使用道具 举报

签到天数: 641 天

连续签到: 190 天

[LV.9]以坛为家II

已领礼包: 1174个

财富等级: 财源广进

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

使用道具 举报

签到天数: 191 天

连续签到: 3 天

[LV.7]常住居民III

已领礼包: 173个

财富等级: 日进斗金

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

使用道具 举报

签到天数: 1209 天

连续签到: 190 天

[LV.10]以坛为家III

已领礼包: 3351个

财富等级: 富可敌国

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2018-12-11 08:45 , Processed in 0.146630 second(s), 42 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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