双向偏移--while用法

newer

ngc 发表于 2016-10-14 00:44

不客气，你要是完成了画双线的代码，贴上来和大家分享。
讨论才是加深理解的最好方法，代码得写。以后有问题就贴上来，大家一起讨论。

cable2004

正需要，支持楼主大人了！

HLCAD

给你一个完整的代码如下：

2. (defun c:tt()
   
3.   (vl-load-com)
   
4.   (princ "\n单选双向偏移")
   
5.   (setq os (getvar 'osmode))
   
6.   (setq cmd (getvar 'cmdecho))
   
7.   (mapcar 'setvar (list 'osmode 'cmdecho) '(0 0))
   
8.   (or (setq w (getreal "\n【偏移宽度】/<10.0>："))
   
9.       (setq w 10.0)
   
10.       )
    
11.   (while (or (setq enpline (car(entsel"\n拾线偏移，回车则画线偏移:")))
    
12.              (and (setq pt1 (getpoint"\n开始绘制PL线的起点/<退出>."))
    
13.                   (setq pt2 (getpoint pt1 "\n开始绘制PL线的第2点/<退出>."))
    
14.                   (progn
    
15.                     (setq L-en (entlast));先设置最后一次的图元为L-en
    
16.                     (princ "\n继续绘制PL线，回车结束画线.")
    
17.                     (command "_.pline" "_non" pt1 pt2)
    
18.                     (while (>(getvar 'cmdactive)0)(command pause))
    
19.                     (setq enpline (entnext L-en))
    
20.                     );end progn
    
21.                   );end and
    
22.              );end or
    
23. 
    
24. 
    
25.          (setvar 'osmode 0)
    
26.          (vla-Offset (vlax-ename->vla-object enpline) (/ w 2.0))
    
27.          (setq pline1 (entlast))
    
28.          (command "change" pline1  "" "p" "c" "2" "" )
    
29.          (vla-Offset (vlax-ename->vla-object enpline) (/ w -2.0))
    
30.          (setq pline2 (entlast))
    
31.          (command "change" pline2  "" "p" "la" "ngc6"  "" )
    
32. ;         (command "change" pline2  "" "p" "c" "2" "" )
    
33.    )
    
34. (mapcar 'setvar (list 'osmode 'cmdecho) (list os cmd))
    
35. (princ)
    
36. )
    

(defun c:tt()<br />   (vl-load-com)<br />   (princ "\n单选双向偏移")<br />   (setq os (getvar 'osmode))<br />   (setq cmd (getvar 'cmdecho))<br />   (mapcar 'setvar (list 'osmode 'cmdecho) '(0 0))<br />   (or (setq w (getreal "\n【偏移宽度】/<10.0>："))<br />       (setq w 10.0)<br />       )<br />   (while (or (setq enpline (car(entsel"\n拾线偏移，回车则画线偏移:")))<br />              (and (setq pt1 (getpoint"\n开始绘制PL线的起点/<退出>."))<br />                   (setq pt2 (getpoint pt1 "\n开始绘制PL线的第2点/<退出>."))<br />                   (progn<br />                     (setq L-en (entlast));先设置最后一次的图元为L-en<br />                     (princ "\n继续绘制PL线，回车结束画线.")<br />                     (command "_.pline" "_non" pt1 pt2)<br />                     (while (>(getvar 'cmdactive)0)(command pause))<br />                     (setq enpline (entnext L-en))<br />                     );end progn<br />                   );end and<br />              );end or<br /> <br /> <br />          (setvar 'osmode 0)<br />          (vla-Offset (vlax-ename->vla-object enpline) (/ w 2.0))<br />          (setq pline1 (entlast))<br />          (command "change" pline1  "" "p" "c" "2" "" )<br />          (vla-Offset (vlax-ename->vla-object enpline) (/ w -2.0))<br />          (setq pline2 (entlast))<br />          (command "change" pline2  "" "p" "la" "ngc6"  "" )<br /> ;         (command "change" pline2  "" "p" "c" "2" "" )<br />    )<br /> (mapcar 'setvar (list 'osmode 'cmdecho) (list os cmd))<br /> (princ)<br /> )<br />

lj524917100

确实是难得好帖啊，顶先

longer1000

都是高手啊

sicky111

谢谢分享。

xvjiex

感谢分享双向偏移--while用法