高手帮忙修改，批量偏移

dforme

在本论坛找到一个可内外偏移的Lisp程序，但是只能对单一对象操作，我想同时对若干个对象进行偏移，框选或者是加选区，请高手帮忙修改一下。不胜感激

2. ;;用LISP实现将PL环向内或向外偏移
   
3. ;;http://www.mjtd.com/Develop/ArticleShow.asp?ArticleID=654
   
4. (defun C:TEE (/ HOLDOSMODE HOLDCMD WW ENT PT PT1 PT2 CURVE X JANG DIST)
   
5. (defun LEN (CURVE)
   
6. (setq TLEN (vlax-curve-getdistatparam
   
7. CURVE
   
8. (vlax-curve-getendparam CURVE)
   
9. )
   
10. )
    
11. )
    
12. (setq HOLDOSMODE (getvar "OSMODE"))
    
13. (setq HOLDCMD (getvar "CMDECHO"))
    
14. (setvar "CMDECHO" 0)
    
15. (setvar "OSMODE" 0)
    
16. (setq WW (entsel "\n选取偏移对象: "))
    
17. (setq ENT (car WW))
    
18. (setq PT (cadr WW))
    
19. (setq CURVE (vlax-ename->vla-object ENT))
    
20. (setq X (vlax-curve-getparamatpoint
    
21. CURVE
    
22. (setq PT (vlax-curve-getclosestpointto
    
23. CURVE
    
24. PT
    
25. )
    
26. )
    
27. )
    
28. )
    
29. (setq JANG (angle '(0 0 0) (vlax-curve-getfirstderiv CURVE X)))
    
30. (setq PT1 (polar PT (+ JANG (* 0.5 pi)) 0.00000001))
    
31. (setq PT2 (polar PT (- JANG (* 0.5 pi)) 0.00000001))
    
32. (initget 3)
    
33. (setq DIST (getdist "\n指定偏移距离<正__向外偏移 /负__向内偏移>: "))
    
34. (command "_.OFFSET" (abs DIST) ENT PT1 "")
    
35. (cond
    
36. ((and (> DIST 0) (> (LEN CURVE) (LEN (entlast))))
    
37. (entdel (entlast))
    
38. (command "_.OFFSET" DIST ENT PT2 "")
    
39. )
    
40. ((and (< DIST 0) (< (LEN CURVE) (LEN (entlast))))
    
41. (entdel (entlast))
    
42. (command "_.OFFSET" (abs DIST) ENT PT2 "")
    
43. )
    
44. )
    
45. (setvar "OSMODE" HOLDOSMODE)
    
46. (setvar "CMDECHO" HOLDCMD)
    
47. (princ)
    
48. )
    

;;用LISP实现将PL环向内或向外偏移<br /> ;;http://www.mjtd.com/Develop/ArticleShow.asp?ArticleID=654<br /> (defun C:TEE (/ HOLDOSMODE HOLDCMD WW ENT PT PT1 PT2 CURVE X JANG DIST) <br /> (defun LEN (CURVE) <br /> (setq TLEN (vlax-curve-getdistatparam <br /> CURVE <br /> (vlax-curve-getendparam CURVE) <br /> ) <br /> ) <br /> ) <br /> (setq HOLDOSMODE (getvar "OSMODE")) <br /> (setq HOLDCMD (getvar "CMDECHO")) <br /> (setvar "CMDECHO" 0) <br /> (setvar "OSMODE" 0) <br /> (setq WW (entsel "\n选取偏移对象: ")) <br /> (setq ENT (car WW)) <br /> (setq PT (cadr WW)) <br /> (setq CURVE (vlax-ename->vla-object ENT)) <br /> (setq X (vlax-curve-getparamatpoint <br /> CURVE <br /> (setq PT (vlax-curve-getclosestpointto <br /> CURVE <br /> PT <br /> ) <br /> ) <br /> ) <br /> ) <br /> (setq JANG (angle '(0 0 0) (vlax-curve-getfirstderiv CURVE X))) <br /> (setq PT1 (polar PT (+ JANG (* 0.5 pi)) 0.00000001)) <br /> (setq PT2 (polar PT (- JANG (* 0.5 pi)) 0.00000001)) <br /> (initget 3) <br /> (setq DIST (getdist "\n指定偏移距离<正__向外偏移 /负__向内偏移>: ")) <br /> (command "_.OFFSET" (abs DIST) ENT PT1 "") <br /> (cond <br /> ((and (> DIST 0) (> (LEN CURVE) (LEN (entlast)))) <br /> (entdel (entlast)) <br /> (command "_.OFFSET" DIST ENT PT2 "") <br /> ) <br /> ((and (< DIST 0) (< (LEN CURVE) (LEN (entlast)))) <br /> (entdel (entlast)) <br /> (command "_.OFFSET" (abs DIST) ENT PT2 "") <br /> ) <br /> ) <br /> (setvar "OSMODE" HOLDOSMODE) <br /> (setvar "CMDECHO" HOLDCMD) <br /> (princ) <br /> ) <br />

season_88

谢谢大师分享

hb198075

1. 
   
2. ;;用LISP实现将PL环向内或向外偏移
   
3. ;;http://www.mjtd.com/Develop/ArticleShow.asp?ArticleID=654
   
4. (defun C:TEE ( / curve ent holdcmd holdosmode jang n pt pt1 pt2 ss tmp x)
   
5.   (defun LEN (CURVE / TLEN)
   
6.     (setq TLEN (vlax-curve-getdistatparam
   
7.    CURVE
   
8.    (vlax-curve-getendparam CURVE)
   
9.         )
   
10.     )
    
11.   )
    
12.   (command "_.UNDO" "BE")
    
13.   (if (null tee_dist)
    
14.     (setq tee_dist 1000.0)
    
15.   ) ;_设置全局变量
    
16.   (setq HOLDOSMODE (getvar "OSMODE"))
    
17.   (setq HOLDCMD (getvar "CMDECHO"))
    
18.   (setvar "CMDECHO" 0)
    
19.   (setvar "OSMODE" 0)
    
20.   (if (setq ss (ssget '((0 . "*LINE,CIRCLE,ARC"))))
    
21.     (progn
    
22.       (setq n 0)
    
23.       (initget 2)
    
24.       (if (setq tmp
    
25.    (getdist
    
26.      (strcat "\n指定偏移距离(正__向外偏移 /负__向内偏移): <"
    
27.       (rtos tee_dist 2)
    
28.       ">"
    
29.      )
    
30.    )
    
31.    )
    
32. (setq tee_dist tmp)
    
33.       ) ;_不输入时自动使用上一次输入数值
    
34.       (repeat (sslength ss)
    
35. (setq ent (ssname ss n)
    
36.        n   (1+ n)
    
37. )
    
38. (setq CURVE (vlax-ename->vla-object ENT)
    
39.        x     (vlax-curve-getParamAtDist curve (/ (len curve) 3.33))
    
40.        pt    (vlax-curve-getPointAtParam curve x)
    
41. );_获得线上指定距离值的点及参数
    
42. (setq JANG (angle '(0 0 0) (vlax-curve-getfirstderiv CURVE X)))
    
43. (setq PT1 (polar PT (+ JANG (* 0.5 pi)) 0.00000001))
    
44. (setq PT2 (polar PT (- JANG (* 0.5 pi)) 0.00000001))
    
45. (command "_.OFFSET" (abs tee_dist) ENT PT1 "")
    
46. (if (or (and (> tee_dist 0) (> (LEN CURVE) (LEN (entlast))))
    
47.   (and (< tee_dist 0) (< (LEN CURVE) (LEN (entlast))))
    
48.      )
    
49.    (progn
    
50.      (entdel (entlast))
    
51.      (command "_.OFFSET" (abs tee_dist) ENT PT2 "")
    
52.    )
    
53. )
    
54.       )
    
55.     )
    
56.   )
    
57.   (setvar "OSMODE" HOLDOSMODE)
    
58.   (setvar "CMDECHO" HOLDCMD)
    
59.   (command "_.UNDO" "E")
    
60.   (princ)
    
61. )
    

<br /> ;;用LISP实现将PL环向内或向外偏移<br /> ;;http://www.mjtd.com/Develop/ArticleShow.asp?ArticleID=654<br /> (defun C:TEE ( / curve ent holdcmd holdosmode jang n pt pt1 pt2 ss tmp x)<br />   (defun LEN (CURVE / TLEN)<br />     (setq TLEN (vlax-curve-getdistatparam<br />    CURVE<br />    (vlax-curve-getendparam CURVE)<br />         )<br />     )<br />   )<br />   (command "_.UNDO" "BE")<br />   (if (null tee_dist)<br />     (setq tee_dist 1000.0)<br />   ) ;_设置全局变量<br />   (setq HOLDOSMODE (getvar "OSMODE"))<br />   (setq HOLDCMD (getvar "CMDECHO"))<br />   (setvar "CMDECHO" 0)<br />   (setvar "OSMODE" 0)<br />   (if (setq ss (ssget '((0 . "*LINE,CIRCLE,ARC"))))<br />     (progn<br />       (setq n 0)<br />       (initget 2)<br />       (if (setq tmp<br />    (getdist<br />      (strcat "\n指定偏移距离(正__向外偏移 /负__向内偏移): <"<br />       (rtos tee_dist 2)<br />       ">"<br />      )<br />    )<br />    )<br /> (setq tee_dist tmp)<br />       ) ;_不输入时自动使用上一次输入数值<br />       (repeat (sslength ss)<br /> (setq ent (ssname ss n)<br />        n   (1+ n)<br /> )<br /> (setq CURVE (vlax-ename->vla-object ENT)<br />        x     (vlax-curve-getParamAtDist curve (/ (len curve) 3.33))<br />        pt    (vlax-curve-getPointAtParam curve x)<br /> );_获得线上指定距离值的点及参数<br /> (setq JANG (angle '(0 0 0) (vlax-curve-getfirstderiv CURVE X)))<br /> (setq PT1 (polar PT (+ JANG (* 0.5 pi)) 0.00000001))<br /> (setq PT2 (polar PT (- JANG (* 0.5 pi)) 0.00000001))<br /> (command "_.OFFSET" (abs tee_dist) ENT PT1 "")<br /> (if (or (and (> tee_dist 0) (> (LEN CURVE) (LEN (entlast))))<br />   (and (< tee_dist 0) (< (LEN CURVE) (LEN (entlast))))<br />      )<br />    (progn<br />      (entdel (entlast))<br />      (command "_.OFFSET" (abs tee_dist) ENT PT2 "")<br />    )<br /> )<br />       )<br />     )<br />   )<br />   (setvar "OSMODE" HOLDOSMODE)<br />   (setvar "CMDECHO" HOLDCMD)<br />   (command "_.UNDO" "E")<br />   (princ)<br /> )<br />

dforme

hb198075 发表于 2012-3-20 15:23

十分感谢，您帮我解决了一个大问题

429014673

hb198075 发表于 2012-3-20 15:23

偏移到当前层，如何改呀。。。

hb198075

在 repeat 的前面加上下面这句就能偏移到当前层了，或者手工在 offset 命令中输入L来改变偏移的图层模式。

1. (command "_.OFFSET" "L" "C" "" "")
   

(command "_.OFFSET" "L" "C" "" "")<br />

缘份呐

学习学习，

vlisp2012

很好的程序，对于下面材时减去料缝很有帮助。

shang_123

很不错 拿走了

雨的节奏

好东西、、新手路过学习

xingyun300

好像贱人工具箱里有这个功能，还是框选的！