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

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

有没有双向偏移的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程序呢？

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

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

双向偏移
(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)
)
)

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

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

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

我这里没有出现你的问题
你再试一下看看
我也是网上下载的
http://www.xdcad.net/forum/showthread.php?s=&threadid=435137&perpage=15&display=&pagenumber=1

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

最初由 zxcvbnm-cad 发布
我这里没有出现你的问题
你再试一下看看
我也是网上下载的
http://www.xdcad.net/forum/showthread.php?s=&threadid=435137&perpage=15&display=&pagenumber=1
谢谢!

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

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

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


试试我的这个啦：

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

谢谢了

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

这儿：http://www.xdcad.net/forum/showthread.php?s=&threadid=435137&perpage=15&display=&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)
)
页: [1] 2
查看完整版本: [求助]：有没有双向偏移的lisp程序啊?