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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 偏移封闭
返回列表 发新帖
查看: 1820|回复: 6

[求助] 偏移封闭

[复制链接]
zhuizhu

已领礼包: 79个

财富等级: 招财进宝
发表于 2014-9-22 09:27:06 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
C7AG{8)V[EXTR5Y@}_9[UPT.png

输入偏移距离，选直线，指定一个方向点，偏移封闭
(注意封闭的地方是垂直或水平线)

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

使用道具 举报

牢固

已领礼包: 344个

财富等级: 日进斗金
发表于 2014-9-22 10:01:17 | 显示全部楼层
本帖最后由 牢固 于 2014-9-22 10:22 编辑

这不是偏移，是相对水平方向或垂直方向复制后再封闭端口！
  1. (defun c:tt (/ e e1 p pt v)
  2.   (if (and
  3.   (setq e (entsel "\n选择曲线:"))
  4.   (setq p  (cadr e)
  5.         e  (car e)
  6.   )
  7.   (WCMATCH (cdr (assoc 0 (entget e))) "*LINE,ARC,ELLIPSE")
  8.       )
  9.     (progn
  10.       (setq p (vlax-curve-getclosestpointto e (trans p 1 0)))
  11.       (while (not (setq pt (getpoint "\n偏移位置点:"))))
  12.       (setq pt (trans pt 1 0))
  13.       (setq v (mapcar '- pt p))
  14.       (if (> (abs (car v)) (abs (cadr v)))
  15.   (setq pt (list (+ (car p) (car v)) (cadr p) 0))
  16.   (setq pt (list (car p) (+ (cadr p) (cadr v)) 0))
  17.       )
  18.       (command "_copy"
  19.          e
  20.          ""
  21.          "non"
  22.          (trans p 0 1)
  23.          "non"
  24.          (trans pt 0 1)
  25.       )
  26.       (setq e1 (entlast))
  27.       (command "line"
  28.          "non"
  29.          (trans (vlax-curve-getStartPoint e) 0 1)
  30.          "non"
  31.          (trans (vlax-curve-getStartPoint e1) 0 1)
  32.          ""
  33.       )
  34.       (command "line"
  35.          "non"
  36.          (trans (vlax-curve-getEndPoint e) 0 1)
  37.          "non"
  38.          (trans (vlax-curve-getEndPoint e1) 0 1)
  39.          ""
  40.       )
  41.     )
  42.   )
  43.   (princ)
  44. )

评分

参与人数 2D豆 +8 收起 理由
newer + 3 技术引导讨论和指点奖！
zhuizhu + 5 技术引导讨论和指点奖！

查看全部评分

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

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2014-9-22 10:14:44 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
本帖最后由 st788796 于 2014-9-22 11:00 编辑

  1. (defun c:tt (/ ss d)
  2.   (if (and (setq ss (ssget '((0 . "line"))))
  3.            (setq d (getdist "\nOffset dist: "))
  4.       )
  5.     (progn
  6.       (setq _pi2 (/ pi 2)
  7.             _3pi (* 1.5 pi)
  8.       )
  9.       (mapcar '(lambda (ln / an sp ep dis pts)
  10.                  (setq an (xdrx_getpropertyvalue ln "angle")
  11.                        sp (xdrx_curve_getstartpoint ln)
  12.                        ep (xdrx_curve_getendpoint ln)
  13.                  )
  14.                  (if (or (<= (* 0.25 pi) an (* 0.75 PI))
  15.                          (<= (* 1.25 pi) an (* 1.75 PI))
  16.                      )
  17.                    (setq dis (/ d (sin an))
  18.                          pts (list (polar sp 0. dis)
  19.                                    (polar ep 0. dis)
  20.                                    (polar ep pi dis)
  21.                                    (polar sp pi dis)
  22.                              )
  23.                    )
  24.                    (setq dis (/ d (cos an))
  25.                          pts (list (polar sp _pi2 dis)
  26.                                    (polar ep _pi2 dis)
  27.                                    (polar ep _3pi dis)
  28.                                    (polar sp _3pi dis)
  29.                              )
  30.                    )
  31.                  )
  32.                  (apply 'xdrx_polyline_make (cons t pts))
  33.                )
  34.       )
  35.       (xdrx_pickset->ents ss)
  36.     )
  37.   )
  38.   (princ)
  39. )

点评

Lisphk
为什么里面有的用了XDRX，有的曲线用了vlax-curve-xxx，XDRX API里面不也有CURVE相关的函数吗？  详情 回复 发表于 2014-9-22 10:27

评分

参与人数 2D豆 +6 收起 理由
newer + 3 技术引导讨论和指点奖！
zhuizhu + 3 技术引导讨论和指点奖！

查看全部评分

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

使用道具 举报

Lisphk

已领礼包: 19个

财富等级: 恭喜发财
发表于 2014-9-22 10:27:11 | 显示全部楼层
st788796 发表于 2014-9-22 10:14

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

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2014-9-22 10:59:36 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
Lisphk 发表于 2014-9-22 10:27
为什么里面有的用了XDRX，有的曲线用了vlax-curve-xxx，XDRX API里面不也有CURVE相关的函数吗？

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

使用道具 举报

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

使用道具 举报

xinyeyu

已领礼包: 155个

财富等级: 日进斗金
发表于 2019-9-11 22:58:00 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
牢固大哥，能把源码改下吗，设置下偏移距离
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-11-15 04:29 , Processed in 0.198411 second(s), 48 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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