[LISP程序]：批量偏移lisp源码

luyu9635 · 发表于 2009-4-12 19:51:13

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

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

×

大家不妨试试,觉得好的顶一下,根据自己的思路写的

lrh_2003 · 发表于 2009-4-13 13:22:19

why......

luyu9635 · 发表于 2009-4-13 23:24:22

楼上想说什么呀

huangsha · 发表于 2009-4-14 10:20:49

我很有爱心的。

dong790518 · 发表于 2009-4-18 16:15:22

bucuo

jason6188 · 发表于 2009-4-28 09:52:36

感谢楼主分享！

wangyi168 · 发表于 2009-4-29 14:05:40

楼主你好！您的程序对一般多段线不管用啊！执行到最后返回“取消”,这是怎么回事啊?

pipilu1984 · 发表于 2009-5-5 13:39:35

这个程序是一次可以便宜多个对象
但是还有一种批量偏移是对同一对象一次偏移很多项，就像YY工具箱里面的功能

zzt21963 · 发表于 2009-5-26 00:29:30

挺不错，下载一个！！

yingxy1234 · 发表于 2009-6-8 12:29:30

没法下载，好遗憾哦

nuoyafangzhou · 发表于 2009-6-13 11:38:26

谢谢楼主分享！

zml84 · 发表于 2009-6-15 14:15:00

<div class="item-content" id="main-content"> <center><h1>偏移命令的改进.LSP</h1></center>

<hr /><pre>;;;======================================================
;;;功能：批量偏移 
;;;日期：zml84 于 2007-08-24 
;;;全局变量：PP-LST-DIST 偏移距离列表 
(defun C:FF (/ S1 STR PT D)
;;对全局变量的处理
(if (and (= PP-LST-DIST NIL)
 (> (getvar "OFFSETDIST") 0)
)
(setq PP-LST-DIST (list (getvar "OFFSETDIST")))
)
(if PP-LST-DIST
(progn
 (princ PP-LST-DIST)
 (setq STR "或 [上一次(L)] <L>")
 (initget "L")
)
(setq STR "")
)
;;对偏移距离列表的编辑
(if (setq D (getdist (strcat "\n指定偏移距离"
 STR
 ": "
 )
)
)
(cond
 ((= D "L")
 ()
 )
 (t
 (setq PP-LST-DIST '())
 (while (progn
(setq PP-LST-DIST (cons D PP-LST-DIST))
(princ PP-LST-DIST)
(setq D (getdist "\n指定偏移距离: "))
 )
 )
 )
)
)
;;偏移操作
(if PP-LST-DIST
(while (setq S1 (entsel "\n点取要偏移的对象或 <退出>: "))
 (if (setq PT (getpoint "\n指定点以确定偏移所在一侧: "))
(foreach D PP-LST-DIST
 (command "_.OFFSET" D S1 PT "")
)
 )
)
)
(princ)
);_结束 defun
;;;======================================================
</pre>

hzj526 · 发表于 2009-6-16 18:50:55

楼上的程序很好，支持一下

liberal520 · 发表于 2015-6-5 22:37:23

东西在哪里了~~~~

龙吟舞 · 发表于 2015-6-6 10:19:23

为什么我老师好多贴看不见下载的附件啊

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

[LISP程序]：批量偏移lisp源码

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

相关帖子