[原创]批量偏移

paulpipi

支持原创，支持源码

paulpipi

是我想要的效果            

season_88

谢谢大师分享

dasha321

偏移之后删除原对象就好了

chenlianghuai

dforme 发表于 2016-6-16 14:09
谢谢，我这里有个相似的程序，但是只能改变原对象的颜色，能否帮我看看，让偏移后的对象颜色改变，比如4 ...

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

(defun C:w3 ( / curve ent holdcmd holdosmode jang n pt pt1 pt2 ss tmp x)<br />   (defun LEN (CURVE / TLEN)<br />     (setq TLEN (vlax-curve-getdistatparam CURVE (vlax-curve-getendparam CURVE)))<br />   )<br /> <br />   (command "_.UNDO" "BE")<br />   (if (null tee_dist) (setq tee_dist 10.0)) ;_设置全局变量<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 (getdist (strcat "\n指定偏移距离(正__向外偏移 /负__向内偏移): <" (rtos tee_dist 2) ">")))<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 />          (command "change" (entlast) "" "p" "c" 4 "")<br />    )<br /> )<br />       )<br />     )<br />   )<br /> <br /> ;;<<<<br /> ;;改变颜色<br /> ;;参考http://bbs.mjtd.com/forum.php?mod=viewthread&tid=101254<br />      ;(command "change" ss "" "p" "c" 4 "")<br /> ;;<<<<br />   (setvar "OSMODE" HOLDOSMODE)<br />   (setvar "CMDECHO" HOLDCMD)<br />   (command "_.UNDO" "E")<br />   (princ)<br /> )