先下载学习了! 现在的CAD好像都有此功能 有想法,支持 本帖最后由 zoubo604 于 2011-10-2 21:03 编辑
怎么没搞明白呢.怎么感觉比CAD04自带的还要多确认一下距离呢?更不方便了?只是距离不停的变化的话,这个方便一点
;------------------------------------------------------
;连续偏移 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)
)
;------------------------------------------------------
RE: 小程序--连续偏移
zdqwy19 发表于 2011-10-1 16:00 static/image/common/back.gif不是我要的,要那种选完对象和偏移方向,不断输入数值依次偏移的
可不可以大量偏移至别的图层 自己改所在图层好了 呵呵,转转呵呵 想找一个连续输入偏移距离然后相对于上一个偏移点偏移的那种程序 cad04来就可以连续偏移啊