[LISP程序]：画偏移到其它图层的线

hgqhq · 发表于 2004-6-21 13:25:01

想看一下，工作中我会用到的

没有啊！是不是骗人的呀！

xgwl · 发表于 2004-6-22 23:39:22

我用过其它的,不知这个用起来会不会更方便些!

段子周 · 发表于 2004-6-29 11:14:44

我也非常想学习这方面的

大海＊小虾 · 发表于 2004-7-1 10:03:01

试一试

hgqhq · 发表于 2004-7-2 08:28:30

平时工作中我也能用到的，我也找寻了很久了，谢谢！

yuancuang · 发表于 2004-7-12 12:15:44

我想下一个

hgqhq · 发表于 2004-7-19 10:03:41

唉,我等到现在都没有看见啊......

blue_space · 发表于 2005-1-19 23:46:44

回帖试一试，不知附件还在否

blue_space · 发表于 2005-1-19 23:46:44

回帖试一试，不知附件还在否

li809 · 发表于 2005-2-15 23:18:42

下载不了，能发给我吗
bsoshun01@163.com

qiaqiadeng · 发表于 2006-6-26 11:36:47

(DEFUN C:fr ()
  (vl-cmdf "_.undo" "_group") ;偏移复制使之变成当前图层
  (mapcar 'princ
   (list "当前偏移距离= " (getvar "OFFSETDIST") " ")
  )
  (setq di (getstring "\n输入偏移复制距离:"))
  (setq LAY (getvar "CLAYER"))
  (repeat 1000
(setq o (ssadd))
(if (/= di nil)
   (progn
(setq o (ssadd (car (entsel)) o))
(setq po (getpoint "\n点取偏移方向"))
(COMMAND "OFFSET" di o po "")
(COMMAND "CHPROP" "L" "" "LA" lay "LT" "bylayer" "C" "bylayer"
   "")
   )
)
(if (= di nil)
   (progn
(setq o (ssadd (car (entsel)) o))
(setq po (getpoint "\n点取偏移方向"))
(COMMAND "OFFSET" "" o po "")
(COMMAND "CHPROP" "L" "" "LA" lay "LT" "bylayer" "C" "bylayer"
   "")
   )
)
  )
  (vl-cmdf "_.undo" "_end")
  (princ)
)

i3ku · 发表于 2006-8-24 17:19:48

怎么去了啊,真可惜

luosheng66 · 发表于 2006-8-24 18:07:17

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

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

×

zaii na

yinzhun22 · 发表于 2007-11-15 17:05:56

为什么版主提示过期

z2s115 · 发表于 2007-11-20 05:12:37

哎,伤心中,居然来迟啦.

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

[LISP程序]：画偏移到其它图层的线

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

相关帖子