[求助]：有没有双向偏移的lisp程序啊?

cadtiger · 发表于 2005-9-22 14:36:07

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

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

×

有没有双向偏移的lisp程序啊?画墙的时候就方便多了!

lxch · 发表于 2005-9-22 15:56:32

可以用mline画呀。

小不点儿 · 发表于 2005-9-22 19:22:58

这里就有，试试吧
http://www.xdcad.net/forum/showthread.php?s=&threadid=423360

cadtiger · 发表于 2005-9-23 06:13:19

谢谢小不点，有没有单个的LISP程序呢？

zxcvbnm-cad · 发表于 2005-9-23 12:17:25

双向偏移
[php](defun c:x2 (/ GETDS OBJ RED-DIST)
(vl-load-com)(initget 2)
(setq red-dist (vl-registry-READ "HKEY_CURRENT_USER\\Software\\Autodesk\\BDYCAD" "OFDIST"))
(IF red-dist
(setq getds (getdist (STRCAT "\n請入偏移距离<"red-dist">:")))
(setq getds (getdist "\n請入偏移距离<可直接量取>:")))
(IF (= getds NIL)(SETQ getds (ATOF red-dist)))
(vl-registry-WRITE "HKEY_CURRENT_USER\\Software\\Autodesk\\BDYCAD" "OFDIST" (RTOS getds))
(if (ssget '((0 . "Arc,Circle,Ellipse,*Line")))
(vlax-for obj (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
(vla-offset obj getds)(vla-offset obj (* getds -1))
)
(vlax-release-object obj)
)
) [/php]

小不点儿 · 发表于 2005-9-23 21:40:29

命令: x2
错误 : 注册键根未知: "HKEY_CURRENT_USERSoftwareAutodeskBDYCAD"
请问这是怎么回事？
请指教，谢谢

zxcvbnm-cad · 发表于 2005-9-24 12:20:43

我这里没有出现你的问题
你再试一下看看
我也是网上下载的
http://www.xdcad.net/forum/showt ... y=&pagenumber=1

小不点儿 · 发表于 2005-9-24 14:07:09

最初由 zxcvbnm-cad 发布
[B]我这里没有出现你的问题
你再试一下看看
我也是网上下载的
http://www.xdcad.net/forum/showt ... y=&pagenumber=1 [/B]

谢谢!

zxmmelly · 发表于 2005-10-7 23:05:51

最初由 cadtiger 发布
[B]有没有双向偏移的lisp程序啊?画墙的时候就方便多了! [/B]

试试我的这个啦：

yitian519 · 发表于 2005-10-11 12:38:21

谢谢了

xyp1964 · 发表于 2005-10-11 17:52:57

这儿：http://www.xdcad.net/forum/showt ... y=&pagenumber=1

cyhbw · 发表于 2006-4-28 17:09:54

9楼楼主
我不能下载
能不能发一个到我邮箱中：cyhbw@163.com
谢谢！

wang0hui · 发表于 2006-4-29 15:18:36

贱人大侠的70个小工具里就有这个程序，非常好用。可以在论坛下载，强烈推荐。

一天夜星 · 发表于 2006-11-2 12:14:09

贱人大侠的70个小工具里的双向偏移在偏移多线段时会出错，不能执行。

kwok · 发表于 2006-11-3 15:33:13

这个也不错，可以为偏出来的线指定不同的层。（这是我以前请斑竹写的，我不会写）－：）
(defun ptlay (x y)  (vla-put-layer(car(vlax-safearray->list(vlax-variant-value x)))y))
(defun c:O2 (/ getds obj lynm)
(vl-load-com)(setq lynm (getstring "\n输入想要偏移的层名:"))
  (if (null(tblsearch "layer" lynm))(vl-cmdf ".layer" "n" lynm ""))
(initget 2)(setq getds (getdist "\n输入偏移距离<可直接量取>:"))
(if (ssget '((0 . "Arc,Circle,Ellipse,*Line")))
  (vlax-for obj (vla-get-activeselectionset
            (vla-get-activedocument (vlax-get-acad-object)))
(ptlay (vla-offset obj getds) lynm)(ptlay (vla-offset obj (* getds -1)) lynm)
   )(vlax-release-object obj)
  )(princ)
  )

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

[求助]：有没有双向偏移的lisp程序啊?

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

相关帖子

谢谢小不点，有没有单个的LISP程序呢？

Re: [求助]：有没有双向偏移的lisp程序啊?