小程序--连续偏移

yoyoho · 发表于 2011-10-1 17:04

感谢楼主分享程序
先下载学习了!

lenlenq · 发表于 2011-10-2 10:05

现在的CAD好像都有此功能

mmh1 · 发表于 2011-10-2 14:23

有想法，支持

zoubo604 · 发表于 2011-10-2 21:01

本帖最后由 zoubo604 于 2011-10-2 21:03 编辑

怎么没搞明白呢.怎么感觉比CAD04自带的还要多确认一下距离呢?更不方便了?只是距离不停的变化的话,这个方便一点

革天明 · 发表于 2011-10-4 10:15

;------------------------------------------------------
;连续偏移    YTM 2011年5月21日13:31:38
(defun c:DF (/ MM fx gb dist)
  (setq MM (car(entsel "\n选择要==基准==偏移的对象或 <退出>:")))
  (setq fx (getpoint "\n指定点以确定偏移所在一侧:"))
  (while T
   (setq gb(abs(getvar 'offsetdist)))
   (setq dist (getdist "\n指定偏移距离:"))
   (IF (= DIST NIL) (SETQ DIST GB))
   (COMMAND ".offset" dist MM fx "")
  )
  (GC)
)
;------------------------------------------------------

YOUWEN888888 · 发表于 2011-10-23 08:10

zdqwy19 发表于 2011-10-1 16:00
不是我要的，要那种选完对象和偏移方向，不断输入数值依次偏移的

可不可以大量偏移至别的图层

zdqwy19 · 发表于 2011-10-27 19:55

自己改所在图层好了

张惠奇 · 发表于 2011-10-29 13:57

呵呵，转转呵呵

xotoo · 发表于 2011-11-6 14:24

想找一个连续输入偏移距离然后相对于上一个偏移点偏移的那种程序

香田里浪人 · 发表于 2013-3-30 18:53

cad04来就可以连续偏移啊

账号		自动登录	找回密码
密码			注册

[函数] 小程序--连续偏移

RE: 小程序--连续偏移

浏览过的版块