[求助]：求助双向offset工具

zhang139666

谢谢斑竹，现状可以用了，工作效率提高了很多。感谢斑竹.

taner

这里的高手实在太多了!请各位高手,能谈谈学习LISP的心得吗?

andyhua5240

在此谢谢：陌生人长老的指点，才能做此附件！
附件中的命令是：2OS
当偏移圆时，偏移的距离不能大于圆的直径，否则只能得到一个往外偏的大圆，小圆错误！

lyd128

为什么在R14不能用？

xiaping

最初由 lyd128 发布
[B]为什么在R14不能用？ [/B]

变成所用的一些函数R14不支持。还是向R200X过渡吧。因为支持R14的冬冬越来越少啦。

conn

(defun c:test(/ a b b1 p1 d pckbox)
(setq d 20 p1 nil pee (/ pi 2)e 3 pckbox (getvar "pickbox")line " ")
(if(= #parof nil)(setq #parof(/(getvar "viewsize")10)))
(princ "\n当前偏移量 <")(princ #parof)
(setq answer(getstring ">: "))
(if (/= (atof answer) 0.0)(setq #parof(atof answer)))
        (princ line)
        (setq ent(entsel "\n拾取线： "))
        (setq point(cadr ent))
        (princ line)
        (setq side(getpoint "\n拾取要偏移的一方： "))
        (setq dist(distance side point))(setq ang(angle side point))
        (if(or(or(< ang 0.78)(> ang 5.5))(and(> ang 2.35)(< ang 3.92)))
                (setq ang(- 0 ang))(setq ang(- pi ang))
        );end if
        (setq other(polar point ang dist))
        (command "offset" #parof ent side ent other "")
        (entdel(car ent))


(princ)
(princ)
)

userzhluserzhl

能够保留上次偏移的数值就好了

zh_6531394

楼上说的级是,"能够保留上次偏移的数值就好了"

jsrlb

真的不错，代码好象也不长。

xyp1964

能够保留上次偏移的数值：

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
   
6. 1.在acad.lsp中增加(load"xyp_lib")
   
7. 2.在每个程序内增加(load"xyp_lib")
   
8. 3.在command下，输入(load"xyp_lib")
   
9. 4.在菜单.mnl中增加(load"xyp_lib")
   
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;
    
12. 
    
13. (defun c:test ()
    
14.   (CMDLA0)
    
15.   (setq        no1 (UREAL 7 "" "\n双线宽" no1)
    
16.         ss  (ssget '((0 . "ARC,CIRCLE,ELLIPSE,*LINE")))
    
17.         i   -1
    
18.   )
    
19.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
20.     (setq pt1 (vlax-curve-getstartPoint s1)
    
21.           pt2 (pt-faxian s1 pt1 100)
    
22.           pt3 (pt-faxian s1 pt1 -100)
    
23.     )
    
24.     (command "offset" (/ no1 2) s1 pt2 s1 pt3 "")
    
25.   )
    
26.   (CMDLA1)
    
27. )
    
28. [/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：<br /> 1.在acad.lsp中增加(load"xyp_lib")<br /> 2.在每个程序内增加(load"xyp_lib")<br /> 3.在command下，输入(load"xyp_lib")<br /> 4.在菜单.mnl中增加(load"xyp_lib")<br /> 5.将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|; <br /> <br /> (defun c:test ()<br />   (CMDLA0)<br />   (setq        no1 (UREAL 7 "" "\n双线宽" no1)<br />         ss  (ssget '((0 . "ARC,CIRCLE,ELLIPSE,*LINE")))<br />         i   -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq pt1 (vlax-curve-getstartPoint s1)<br />           pt2 (pt-faxian s1 pt1 100)<br />           pt3 (pt-faxian s1 pt1 -100)<br />     )<br />     (command "offset" (/ no1 2) s1 pt2 s1 pt3 "")<br />   )<br />   (CMDLA1)<br /> )<br /> [/FONT]

lsjzhj2004

能保存上次数值的lisp程序在哪里啊，帮忙登上一个完整的啊，谢谢

and2008

没得默认的图层啊,要是有个默认的当前图层就安逸了

xyp1964

最初由 and2008 发布
[B]没得默认的图层啊,要是有个默认的当前图层就安逸了 [/B]

雨箭风刀

★通用函数下载地址：http://www.xdcad.net/forum/attachme...&postid=1606661|;

(defun c:test ()
  (CMDLA0)
  (setq        no1 (UREAL 7 "" "\n双线宽" no1)
        ss  (ssget '((0 . "ARC,CIRCLE,ELLIPSE,*LINE")))
        i   -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq pt1 (vlax-curve-getstartPoint s1)
          pt2 (pt-faxian s1 pt1 100)
          pt3 (pt-faxian s1 pt1 -100)
    )
    (command "offset" (/ no1 2) s1 pt2 s1 pt3 "")
  )
  (CMDLA1)
)

为什么走弯路呢？vla－offset已经提供了方法。如果取起点，求法线，调用offset命令，实际上有可能offset到同一个方向！
比如有弯头的钢筋形状的多义线，offset的距离比较大的时候。。。。

zh_6531394

没有一个"能够保留上次偏移的数值,又能到指定的图层"的完整版