明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 4340|回复: 24

[函数] 【求助】如何实现双向净偏移!~

  [复制链接]
发表于 2011-6-28 11:46 | 显示全部楼层 |阅读模式
本帖最后由 daidong013 于 2011-6-28 12:35 编辑

现在有好多双线偏移的程序,打个比方输入数据50后,生成了以线为中心往两边各偏移了50的线。
如果想达到输入50后以原线为中心往两边各偏移25(加起来一共是50)然后直接删除原线要怎么弄!~
最好还可以有记忆的功能!~~

本帖子中包含更多资源

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

x
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2011-6-28 17:07 | 显示全部楼层
本帖最后由 zhynt 于 2011-6-28 22:30 编辑

将上面的程序稍许改了一下:


  1. (defun c:oo (/ dist obj)
  2.   (setq        dist (getdist (strcat "输入偏移总距离:<"
  3.                               (rtos (getvar "OFFSETDIST"))
  4.                               ">"
  5.                       )
  6.              )
  7.   )
  8.   (if (null dist)
  9.     (setq dist (getvar "offsetdist"))
  10.     (setvar "offsetdist" dist)
  11.   )
  12.   (if (setq ss (ssget '((0 . "Arc,Circle,Ellipse,*Line"))))
  13.     (progn
  14.     (vlax-for obj (vla-get-activeselectionset
  15.                     (vla-get-activedocument (vlax-get-acad-object))
  16.                   )
  17.       (vla-offset obj (/ dist 2.0))
  18.       (vla-offset obj (/ dist -2.0))
  19.     )
  20.     (command "erase" ss "")
  21.     )
  22.     (vlax-release-object obj)   
  23.   )  
  24. )

点评

怎么设置默认距离?  发表于 2012-8-30 14:01

评分

参与人数 3金钱 +25 收起 理由
半听可乐 + 5 很给力!
pb.v@163.com + 10 正找呢,谢谢
669423907 + 10 热情、无私、实用

查看全部评分

回复 支持 1 反对 0

使用道具 举报

发表于 2011-6-28 12:35 | 显示全部楼层
帮顶!我也很想要一个(默认不删除原对象,可选删除)
发表于 2011-6-28 14:15 | 显示全部楼层
双向偏移删除原图元(新手问题)
http://bbs.mjtd.com/forum.php?mo ... &fromuid=342850
发表于 2011-6-28 14:17 | 显示全部楼层
双向偏移删除原图元(新手问题)
http://bbs.mjtd.com/forum.php?mo ... &fromuid=342850
 楼主| 发表于 2011-6-28 16:37 | 显示全部楼层
顶起来啊!~~
 楼主| 发表于 2011-6-28 18:01 | 显示全部楼层
本帖最后由 daidong013 于 2011-6-28 18:01 编辑

回复 zhynt 的帖子

就是这样的效果!~~Z版大侠是个活雷锋!~~ 感谢!~~
(vlax-release-object obj)   
  )
)
少了一个 “ )”请Z版大侠加一下!~~
发表于 2011-6-28 22:30 | 显示全部楼层
多年以前编得双向偏移命令,跟6#楼差不多,一直在用,感觉挺实用的.
发表于 2011-6-28 22:31 | 显示全部楼层
回复 daidong013 的帖子

可能是复制时掉了。
发表于 2011-6-30 09:31 | 显示全部楼层
刚用来偏移矩形,发现偏移方向不统一,有的往外偏有的往里偏,请教zhynt如何解决
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-6-18 10:55 , Processed in 0.167828 second(s), 30 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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