[编程申请]：求助帮我编一个画云线的命令

yinhao

用PL线

陌生人

用et不好么？

yinhao

et是什么

zhynt

是cad的扩展工具。

zshutang

2002不是有画云线工具吗？

zhouxiaoxun2003

2002的画云线的工具在哪里？

jhzxj

对于画云线，我也很想知道，知道2004上有，2002上没有，如能有好心的人在2002上搞出来，不胜感激！

cqnj023

2002里的扩展工具里有，命令revcloud。

marry_01

那么渐开线呢以及螺旋线

curelandscaper

什么渐开线？螺旋线？

yinhao

谢谢,我用了果然好用

细水常流

CAD2004里就有这个工具

tc405003

本人上传一个，

2. 
   
3. [php]
   
4. (Defun C:rv (/
   
5.      ARC_DIST   ;;radius of included arc
   
6.      INC_ANGLE  ;;included angle in degrees
   
7.      LAST_PT    ;;the last point just entered/shown
   
8.      START_PT   ;;where the cloud began
   
9.      NEXT_PT    ;;where we are going next
   
10.      TMP        ;;tempory holder for radius of bulge
    
11.      )
    
12.      (command "layer" "M" "DEFPOINTS" "c" "r" "" "")
    
13.    (init_bonus_error
    
14.       (List
    
15.          (List "cmdecho" 0
    
16.                "blipmode" 0
    
17.                "osmode" 0
    
18.          )
    
19.          T     ;flag. True means use undo for error clean up.  
    
20.       ) ;list
    
21.    ) ;init_bonus_error
    
22. 
    
23. 
    
24. 
    
25.    ;;--------real program starts here!
    
26. 
    
27.    (Setq INC_ANGLE 110)
    
28.    
    
29.    (if (and
    
30.          (/= ""  (getcfg "AppData/AC_Bonus/Revcld_Bulge"))
    
31.          (/= nil (getcfg "AppData/AC_Bonus/Revcld_Bulge"))
    
32.        )
    
33.      (setq ARC_DIST (atof (getcfg "AppData/AC_Bonus/Revcld_Bulge")))
    
34.      (if (= (getvar "DIMSCALE") 0)
    
35.        (setq ARC_DIST 0.375)
    
36.        (setq ARC_DIST (* 0.375 (getvar "DIMSCALE")))
    
37.      )
    
38.    );end if
    
39. 
    
40.    (prompt (strcat "\nArc length set at " (rtos ARC_DIST 2 3)))
    
41. 
    
42.    (initget "Arc")
    
43.    (setq LAST_PT (GetPoint "\nArc length/<Pick cloud starting point>: "))
    
44. 
    
45.    (if (= LAST_PT "Arc")
    
46.      (progn
    
47.        (initget 6)
    
48.        (setq TMP (getdist (strcat "\nArc length <" (rtos ARC_DIST 2 3) ">: ")))
    
49.        (if TMP
    
50.          (Progn
    
51.            (setq ARC_DIST TMP)
    
52.                 ;R14 method of saving variable values
    
53.            (setcfg "AppData/AC_Bonus/Revcld_Bulge" (rtos ARC_DIST))
    
54.          )
    
55.        )
    
56.        (setq LAST_PT (getpoint "\nPick cloud start point: "))
    
57.      ) ;;end STR "RADIUS" test
    
58.    )
    
59. 
    
60.    (if LAST_PT (progn  ;;start up the cloud generator...
    
61.      (setq START_PT LAST_PT
    
62.            SAVED_EN (entlast))
    
63.      (Prompt "\nGuide crosshairs along cloud path...")
    
64.      (Command
    
65.         "_.pline"     ;draw cloud as a polyline on current layer
    
66.         LAST_PT
    
67.         "_a"         ;specify arc option
    
68.         "_a"         ;specify angle option
    
69.         INC_ANGLE    ;included angle
    
70.      )
    
71.    )) ;end IF LAST_PT
    
72. 
    
73.    (While LAST_PT  ;;as long as we have a last point value,
    
74. 
    
75.       (Setq NEXT_PT (GrRead 1)     ;;real time read
    
76.             READTYP (car NEXT_PT)
    
77.       )
    
78.       (if (or (=  5 READTYP) (= READTYP 3)) ;;read a position or a pick?
    
79.          (progn
    
80.            (setq NEXT_PT (cadr NEXT_PT))
    
81.            (If (or (> (Distance LAST_PT NEXT_PT) ARC_DIST) (= READTYP 3))
    
82.              (Progn
    
83.                (Command NEXT_PT "_a" INC_ANGLE)
    
84.                (Setq LAST_PT NEXT_PT)
    
85.              )
    
86.            )
    
87.            (If (>
    
88.                (Distance LAST_PT NEXT_PT)
    
89.                (Distance START_PT NEXT_PT)
    
90.                )
    
91.              (Progn
    
92.                (Command START_PT "_cl")
    
93.                (Setq LAST_PT Nil)
    
94.                (prompt "\nCloud finished.")
    
95.              )
    
96.            )
    
97.          )
    
98.          (prompt "\nMove the pointer to draw the cloud")
    
99.       );End if
    
100.    );End while
     
101.    (restore_old_error)
     
102.    (Princ)
     
103. ) ;end cloud.lsp[/php]

<br /> [php]<br /> (Defun C:rv (/<br />      ARC_DIST   ;;radius of included arc<br />      INC_ANGLE  ;;included angle in degrees<br />      LAST_PT    ;;the last point just entered/shown<br />      START_PT   ;;where the cloud began<br />      NEXT_PT    ;;where we are going next<br />      TMP        ;;tempory holder for radius of bulge<br />      )<br />      (command "layer" "M" "DEFPOINTS" "c" "r" "" "")<br />    (init_bonus_error<br />       (List<br />          (List "cmdecho" 0<br />                "blipmode" 0<br />                "osmode" 0<br />          )<br />          T     ;flag. True means use undo for error clean up.  <br />       ) ;list <br />    ) ;init_bonus_error<br /> <br /> <br /> <br />    ;;--------real program starts here!<br /> <br />    (Setq INC_ANGLE 110)<br />    <br />    (if (and<br />          (/= ""  (getcfg "AppData/AC_Bonus/Revcld_Bulge"))<br />          (/= nil (getcfg "AppData/AC_Bonus/Revcld_Bulge"))<br />        )<br />      (setq ARC_DIST (atof (getcfg "AppData/AC_Bonus/Revcld_Bulge")))<br />      (if (= (getvar "DIMSCALE") 0)<br />        (setq ARC_DIST 0.375)<br />        (setq ARC_DIST (* 0.375 (getvar "DIMSCALE")))<br />      )<br />    );end if<br /> <br />    (prompt (strcat "\nArc length set at " (rtos ARC_DIST 2 3)))<br /> <br />    (initget "Arc")<br />    (setq LAST_PT (GetPoint "\nArc length/<Pick cloud starting point>: "))<br /> <br />    (if (= LAST_PT "Arc")<br />      (progn<br />        (initget 6)<br />        (setq TMP (getdist (strcat "\nArc length <" (rtos ARC_DIST 2 3) ">: ")))<br />        (if TMP <br />          (Progn<br />            (setq ARC_DIST TMP)<br />                 ;R14 method of saving variable values<br />            (setcfg "AppData/AC_Bonus/Revcld_Bulge" (rtos ARC_DIST)) <br />          )<br />        )<br />        (setq LAST_PT (getpoint "\nPick cloud start point: "))<br />      ) ;;end STR "RADIUS" test<br />    )<br /> <br />    (if LAST_PT (progn  ;;start up the cloud generator...<br />      (setq START_PT LAST_PT<br />            SAVED_EN (entlast))<br />      (Prompt "\nGuide crosshairs along cloud path...")<br />      (Command<br />         "_.pline"     ;draw cloud as a polyline on current layer<br />         LAST_PT<br />         "_a"         ;specify arc option<br />         "_a"         ;specify angle option<br />         INC_ANGLE    ;included angle<br />      )<br />    )) ;end IF LAST_PT<br /> <br />    (While LAST_PT  ;;as long as we have a last point value,<br /> <br />       (Setq NEXT_PT (GrRead 1)     ;;real time read<br />             READTYP (car NEXT_PT)<br />       )<br />       (if (or (=  5 READTYP) (= READTYP 3)) ;;read a position or a pick?<br />          (progn<br />            (setq NEXT_PT (cadr NEXT_PT))<br />            (If (or (> (Distance LAST_PT NEXT_PT) ARC_DIST) (= READTYP 3))<br />              (Progn<br />                (Command NEXT_PT "_a" INC_ANGLE)<br />                (Setq LAST_PT NEXT_PT)<br />              )<br />            )<br />            (If (><br />                (Distance LAST_PT NEXT_PT)<br />                (Distance START_PT NEXT_PT)<br />                )<br />              (Progn<br />                (Command START_PT "_cl")<br />                (Setq LAST_PT Nil)<br />                (prompt "\nCloud finished.")<br />              )<br />            )<br />          )<br />          (prompt "\nMove the pointer to draw the cloud")<br />       );End if<br />    );End while<br />    (restore_old_error)<br />    (Princ)<br /> ) ;end cloud.lsp[/php]

conn

r14不能加载是什么问题？

wangwanli

lisp写的画版本修改线（云图），太简单，你可以扩充
（只能逆时针），鼠标右键封闭
（LOAD“VL")
COMMAND: VL<ENTER>