高手请进来看看，，画槽功能！

---]聆听□?

求助，求画槽功能

牢固

1. (defun c:tt ()  (vl-load-com)
   
2.   (setq lasten (entlast))
   
3.   (initget 7)
   
4.   (setq r (getdist "\n输入半径:"))
   
5.   (command "PLINE")
   
6.   (while (= 1 (getvar "cmdactive"))
   
7.     (command pause)
   
8.   )
   
9.   (setq ss (ssadd))
   
10.   (setq pl (entlast))
    
11.   (if (not (equal pl lasten))
    
12.     (progn
    
13.       (vla-offset (vlax-ename->vla-object pl) r)
    
14.       (setq e1 (entlast))
    
15.       (ssadd e1 ss)
    
16.       (vla-offset (vlax-ename->vla-object pl) (- r))
    
17.       (setq e2 (entlast))
    
18.       (ssadd e2 ss)
    
19.       (command "arc"
    
20.                "c"
    
21.                "_non"
    
22.                (vlax-curve-getStartPoint pl)
    
23.                "non"
    
24.                (vlax-curve-getStartPoint e2)
    
25.                "non"
    
26.                (vlax-curve-getStartPoint e1)
    
27.       )
    
28.       (ssadd (entlast) ss)
    
29.       (command "arc"
    
30.                "c"
    
31.                "_non"
    
32.                (vlax-curve-getEndPoint pl)
    
33.                "non"
    
34.                (vlax-curve-getEndPoint e1)
    
35.                "non"
    
36.                (vlax-curve-getEndPoint e2)
    
37.       )
    
38.       (ssadd (entlast) ss)
    
39.      (command "pedit" "m" ss "" "j" "" "")
    
40.     )
    
41.   )
    
42.   (princ)
    
43. )

(defun c:tt ()  (vl-load-com)<br />   (setq lasten (entlast))<br />   (initget 7)<br />   (setq r (getdist "\n输入半径:"))<br />   (command "PLINE")<br />   (while (= 1 (getvar "cmdactive"))<br />     (command pause)<br />   )<br />   (setq ss (ssadd))<br />   (setq pl (entlast))<br />   (if (not (equal pl lasten))<br />     (progn<br />       (vla-offset (vlax-ename->vla-object pl) r)<br />       (setq e1 (entlast))<br />       (ssadd e1 ss)<br />       (vla-offset (vlax-ename->vla-object pl) (- r))<br />       (setq e2 (entlast))<br />       (ssadd e2 ss)<br />       (command "arc"<br />                "c"<br />                "_non"<br />                (vlax-curve-getStartPoint pl)<br />                "non"<br />                (vlax-curve-getStartPoint e2)<br />                "non"<br />                (vlax-curve-getStartPoint e1)<br />       )<br />       (ssadd (entlast) ss)<br />       (command "arc"<br />                "c"<br />                "_non"<br />                (vlax-curve-getEndPoint pl)<br />                "non"<br />                (vlax-curve-getEndPoint e1)<br />                "non"<br />                (vlax-curve-getEndPoint e2)<br />       )<br />       (ssadd (entlast) ss)<br />      (command "pedit" "m" ss "" "j" "" "")<br />     )<br />   )<br />   (princ)<br /> )

牢固

如果你懂一点Lisp的话，改个默认值，很简单吧！
自己动手练练吧！

yoyoho

感謝 牢固 版主,分享學習!{:soso_e179:}

牢固

牢固 发表于 2013-9-6 20:29

透明命令可以使用啊！比如在化纤过程中 使用图层命令，键入 'layer 即可使用图层透明命令！命令结束后继续画线！

sicky111

G版太热心了，咱论坛啥时候也搞一个优秀斑竹的评选活动啊？我举双手支持G版。

---]聆听□?

{:soso_e113:}是的，，版主确实很热心，大家一定能在这里开心交流！