社区 › 付费开发 › 各位大神，小弟初来乍到，帮我看看这个圆角命令怎么用。

ninja37 发表于 2019-3-22 22:58:39

各位大神，小弟初来乍到，帮我看看这个圆角命令怎么用。

各位大神，小弟初来乍到，帮我看看这个圆角命令怎么用。
由于小弟以前用的是台湾的twincad统达软件 ，自己编写了一套顺手的命令
但是由于换了电脑，装了一个WIN1064位导致统达不能用了，现在在用CAD2005+统赢，
小弟有事相求各位，现在工作每天苦不堪言，程序编不出来，机器经常停着。
这是我以前的代码：
[*******修改日期2019.03.09*******]
[********图层颜色线型规划********]
AS,*{
   LAYER mylayer;
   mylayer = layer("0","",0,0);
   mylayer.color = 9;
   mylayer = layer("1","",1,0);
   mylayer.color = 1;
   mylayer = layer("2","",3,0);
   mylayer.color = 6;
   mylayer = layer("3","",6,0);
   mylayer.color = 3;
   mylayer = layer("4","",2,0);
   mylayer.color = 2;
   mylayer = layer("5","",140,0);
   mylayer.color = 140;
   mylayer = layer("6","",150,0);
   mylayer.color = 150;
   mylayer = layer("7","",30,0);
   mylayer.color = 30;
   mylayer = layer("8","",220,0);
   mylayer.color = 220;
   mylayer = layer("9","",136,0);
   mylayer.color = 136;
   layer(mylayer);
   command("regen");
}
45,*{
   @selmask = ~FPOINT;
   @snapflag |= 0x2000;
   getesel(-2);
   command("CHANGE ALL \ L 4 ");
   command("CHANGE ALL \ C -1 ");
   @selmask = ~FDIM;
   @snapflag |= 0x2000;
   getesel(-2);
   command("CHANGE ALL \ L 5 ");
   command("CHANGE ALL \ C -1 ");
   @snapflag= 0;
   command("regen");
}
46,*{
   @selmask = ~FPOINT;
   @snapflag |= 0x2000;
   getesel(-2);
   command("CHANGE ALL \ L 4 ");
   command("CHANGE ALL \ C -1 ");
   @selmask = ~FTEXT;
   @snapflag |= 0x2000;
   getesel(-2);
   command("CHANGE ALL \ L 6 ");
   command("CHANGE ALL \ C -1 ");
   @snapflag= 0;
   command("regen");
}
56,*{
   @selmask = ~FDIM;
   @snapflag |= 0x2000;
   getesel(-2);
   command("CHANGE ALL \ L 5 ");
   command("CHANGE ALL \ C -1 ");
   @selmask = ~FTEXT;
   @snapflag |= 0x2000;
   getesel(-2);
   command("CHANGE ALL \ L 6 ");
   command("CHANGE ALL \ C -1 ");
   @snapflag= 0;
   command("regen");
}
456,*{
   @selmask = ~FPOINT;
   @snapflag |= 0x2000;
   getesel(-2);
   command("CHANGE ALL \ L 4 ");
   command("CHANGE ALL \ C -1 ");
   @selmask = ~FDIM;
   @snapflag |= 0x2000;
   getesel(-2);
   command("CHANGE ALL \ L 5 ");
   command("CHANGE ALL \ C -1 ");
   @selmask = ~FTEXT;
   @snapflag |= 0x2000;
   getesel(-2);
   command("CHANGE ALL \ L 6 ");
   command("CHANGE ALL \ C -1 ");
   @snapflag= 0;
   command("regen");
}
[------------------------------------------------------------------------------------------]
[********线割价格********]
CK,*{
   @TXTWIDTHF=1.5;
   @TXTCSPACE=0.5;
   @TXTROWDIST=0.2;
   command("lset 6 ");
   layer_on("6");
   command("wtnote");
   @CURCOLOR=-1;
   printf("\n穿孔图 !!");
   regen();
   return 0;
}
Z,*{
   command("lset 8 ");
   layer_on("8");
   command("DBINSERT");
   printf("\n线割价格图组 !!");
   regen();
   return 0;
}
W,*{
   getesel("\nSelect objects: ",FPOINT|FDIM|FTEXT);
   command("CHANGE p \ L 5 ");
   command("CHANGE p \ C -1 ");
   printf("\n注意!!!   [尺寸+文字]   [图层5]");
   regen();
   command("regen");
}
W1,*prcmode
W2,*{
   layer("0","",8,0);
   layer("4","",8,0);
   layer("5","",8,0);
   layer("6","",8,0);
   layer("7","",8,0);
   layer("8","",8,0);
   layer("9","",8,0);
   command("lset 7 ");
   layer_on("7");
   @CURCOLOR=-1;
   @TXTWIDTHF=0.55;
   @TXTCSPACE=0;
   @TXTROWDIST=0;
   @COLORMASK = 1|2|3;
   command("wtprice");
   printf("\n线割价格计算 !!");
   layer("0","",0,0);
   layer("4","",2,0);
   layer("5","",140,0);
   layer("6","",150,0);
   layer("7","",30,0);
   layer("8","",220,0);
   layer("9","",136,0);
   regen();
   return 0;
}
W3,*{
   command("lset 4 ");
   layer_on("4");
   command("DDSYMBOL");
   printf("\n插入符号 !!");
   regen();
   return 0;
}
W4,*{
   getesel("\nSelect objects: ",FSYMBOL);
   command("ERASE p");
   regen();
}
[------------------------------------------------------------------------------------------]
A,*$i=IARC $i=*^
AD,*ADim
AJ,*AutoJoin
AL,*ALdim
AP,*APerture
AR,*ARray
AT,*ATtext
BA,*BAse
BL,*BLock
BM,*BlipMode
BR,*BReak
BS,*BSpline
BH,*^C^Chatch
CL,*CoLor
CM,*ChaMfer
CN,*ChaNge
CO,*COpy
CS,*CSpline
DB,*DBlist
DI,*DXfIn
DM,*DMode
DR,*DRagmode
DV,*DimVar
E,*Erase
EC,*EColor
EL,*ELlipse
EM,*EMode
EX,*EXplode m
ET,*ExTend
F,*Fillet
FI,*FIll
I,*Insert
IG,*InvGear
J,*autoJoin
K,*undup
LA,*LAyer
LI,*LIst
LM,*LiMits
LO,*LOad
LT,*LineType
M,*Move
ME,*MEasure
MI,*Mirror
MN,*MiNsert
MO,*MOffset
N,*CHANGE
O,*Offset
OD,*ODim
OO,*OOPS
OR,*ORtho
OS,*OSnap
P,*Point
PJ,*PJoin
PL,*PLine
PO,*POlygon
PR,*PRplot
PT,*PTrim
PUUU,*PUrge
Q,*Quit
QC,*QChange
QT,*QTrim
R,*Rotate
RE,*REdraw
RC,*ReCord
RG,*ReGion
RN,*ReName
S,*Stretch
SA,*SAve
SB,*SymBol
SC,*SCale
SK,*Scolor
SD,*$i=SETDIM $i=*^
SE,*SElect
SH,*SHell
SL,*SymLib
SM,*SelMask
SN,*SNap
SP,*SPline
ST,*STyle
SW,*SWitch
SV,*SysVar
SR,*SCRIPT
TA,*TAgs
TE,*TagEdit
TI,*TagIn
TO,*TagOut
TR,*TRim
TV,*TagVar
UF,*UnFill
VD,*VDim
VF,*VFont
WB,*Wblock
ZZ,*Zoom
[------------------------------------------------------------------------------------------]
[------------------------------------------------------------------------------------------]
[********常用命令********]
B,*Box
C,*Circle
CCC,*Circle \d
L,*Line
JX,*ADDGAP G @ \M
ED,*QChange
G,*QChange
CA,*Copyclip
PA,*pasteclip
QB,*qbreak
QJ,*undercut
PU,*PUrgey
MA,*INHERIT
QQ,*Dwgout
LE,*LEader
AE,*SLEader
KK,*lapurge
WE,*Wirecut
WW,*Prplot W
WS,*Prplot S
ZC,*DXfOut
CR,*COPY;\@0,0;ROTATE P;;
4MI,*MIRROR;\\@0,10 N MIRROR;P;;@0,-10 @-10,0 N COPY P;;@0,0;ROTATE P;;@10,0 @-10,0
[------------------------------------------------------------------------------------------]
[************标注+文字 *************]
X,*Xdim
Y,*Ydim
H,*HDim
V,*VDim
HD,*HDim
LD,*LDim
D,*@DIMDOPT=4 DDIM \
RD,*@DIMROPT=4 RDIM \
DD2,*$i=DDIM1 $i=*^
RD2,*$i=RDIM1 $i=*^
CD,*SETDIM O \
T,*@CURLAYER=4 @TXTHEIGHT=5 @TXTWIDTHF=1.15 Text \ ;
T2,*Text \\ \;
[------------------------------------------------------------------------------------------]
[*************拉伸编辑***********]
S0.01,*lengthen d 0.01
S0.015,*lengthen d 0.015
S0.02,*lengthen d 0.02
S0.025,*lengthen d 0.025
S0.03,*lengthen d 0.03
S0.035,*lengthen d 0.035
S0.04,*lengthen d 0.04
S0.045,*lengthen d 0.045
S0.05,*lengthen d 0.05
S0.055,*lengthen d 0.055
S0.06,*lengthen d 0.06
S0.065,*lengthen d 0.065
S0.07,*lengthen d 0.07
S0.075,*lengthen d 0.075
S0.08,*lengthen d 0.08
S0.085,*lengthen d 0.085
S0.09,*lengthen d 0.09
S0.095,*lengthen d 0.095
S0.1,*lengthen d 0.1
S0.15,*lengthen d 0.15
S0.2,*lengthen d 0.2
S0.25,*lengthen d 0.25
S0.3,*lengthen d 0.3
S0.35,*lengthen d 0.35
S0.4,*lengthen d 0.4
S0.45,*lengthen d 0.45
S0.5,*lengthen d 0.5
S0.55,*lengthen d 0.55
S0.6,*lengthen d 0.6
S0.65,*lengthen d 0.65
S0.7,*lengthen d 0.7
S0.75,*lengthen d 0.75
S0.8,*lengthen d 0.8
S0.85,*lengthen d 0.85
S0.9,*lengthen d 0.9
S0.95,*lengthen d 0.95
S1,*lengthen d 1
S1.5,*lengthen d 1.5
S2,*lengthen d 2
S2.5,*lengthen d 2.5
S3,*lengthen d 3
S3.5,*lengthen d 3.5
S4,*lengthen d 4
S4.5,*lengthen d 4.5
S5,*lengthen d 5
S5.5,*lengthen d 5.5
S6,*lengthen d 6
S6.5,*lengthen d 6.5
S7,*lengthen d 7
S7.5,*lengthen d 7.5
S8,*lengthen d 8
S8.5,*lengthen d 8.5
S9,*lengthen d 9
S9.5,*lengthen d 9.5
S-0.01,*lengthen d -0.01
S-0.015,*lengthen d -0.015
S-0.02,*lengthen d -0.02
S-0.025,*lengthen d -0.025
S-0.03,*lengthen d -0.03
S-0.035,*lengthen d -0.035
S-0.04,*lengthen d -0.04
S-0.045,*lengthen d -0.045
S-0.05,*lengthen d -0.05
S-0.055,*lengthen d -0.055
S-0.06,*lengthen d -0.06
S-0.065,*lengthen d -0.065
S-0.07,*lengthen d -0.07
S-0.075,*lengthen d -0.075
S-0.08,*lengthen d -0.08
S-0.085,*lengthen d -0.085
S-0.09,*lengthen d -0.09
S-0.095,*lengthen d -0.095
S-0.1,*lengthen d -0.1
S-0.15,*lengthen d -0.15
S-0.2,*lengthen d -0.2
S-0.25,*lengthen d -0.25
S-0.3,*lengthen d -0.3
S-0.35,*lengthen d -0.35
S-0.4,*lengthen d -0.4
S-0.45,*lengthen d -0.45
S-0.5,*lengthen d -0.5
S-0.55,*lengthen d -0.55
S-0.6,*lengthen d -0.6
S-0.65,*lengthen d -0.65
S-0.7,*lengthen d -0.7
S-0.75,*lengthen d -0.75
S-0.8,*lengthen d -0.8
S-0.85,*lengthen d -0.85
S-0.9,*lengthen d -0.9
S-0.95,*lengthen d -0.95
S-1,*lengthen d -1
S-1.5,*lengthen d -1.5
S-2,*lengthen d -2
S-2.5,*lengthen d -2.5
S-3,*lengthen d -3
S-3.5,*lengthen d -3.5
S-4,*lengthen d -4
S-4.5,*lengthen d -4.5
S-5,*lengthen d -5
S-5.5,*lengthen d -5.5
S-6,*lengthen d -6
S-6.5,*lengthen d -6.5
S-7,*lengthen d -7
S-7.5,*lengthen d -7.5
S-8,*lengthen d -8
S-8.5,*lengthen d -8.5
S-9,*lengthen d -9
S-9.5,*lengthen d -9.5
[------------------------------------------------------------------------------------------]
[*************************]
FF,*{
   @FILLETRAD=0;
   command("fillet ");
   printf("\n注意!!!【0】R角已完成，圆成尖角");
   regen();
}
F0.1,*fillet r 0.10
F0.11,*fillet r 0.11
F0.12,*fillet r 0.12
F0.13,*fillet r 0.13
F0.14,*fillet r 0.14
F0.15,*fillet r 0.15
F0.16,*fillet r 0.16
F0.17,*fillet r 0.17
F0.18,*fillet r 0.18
F0.19,*fillet r 0.19
F2,*{
   @FILLETRAD=2;
   command("fillet ");
   printf("\n注意!!!R角 【2.0】 R角已完成");
   regen();
}
F3,*{
   @FILLETRAD=3;
   command("fillet ");
   printf("\n注意!!!R角 【2.0】 R角已完成");
   regen();
}
F4,*{
   @FILLETRAD=4;
   command("fillet ");
   printf("\n注意!!!R角 【2.0】 R角已完成");
   regen();
}
F5,*{
   @FILLETRAD=5;
   command("fillet ");
   printf("\n注意!!!R角 【2.0】 R角已完成");
   regen();
}
F6,*{
   @FILLETRAD=6;
   command("fillet ");
   printf("\n注意!!!R角 【2.0】 R角已完成");
   regen();
}
F7,*{
   @FILLETRAD=7;
   command("fillet ");
   printf("\n注意!!!R角 【2.0】 R角已完成");
   regen();
}
F8,*{
   @FILLETRAD=8;
   command("fillet ");
   printf("\n注意!!!R角 【2.0】 R角已完成");
   regen();
}
F9,*{
   @FILLETRAD=9;
   command("fillet ");
   printf("\n注意!!!R角 【2.0】 R角已完成");
   regen();
}
[------------------------------------------------------------------------------------------]
[*************************]
O1,*offset 1
O11,*offset 1.1
O12,*offset 1.2
O13,*offset 1.3
O14,*offset 1.4
O15,*offset 1.5
O16,*offset 1.6
O17,*offset 1.7
O18,*offset 1.8
O19,*offset 1.9
O2,*offset 2
O3,*offset 3
O4,*offset 4
O5,*offset 5
O6,*offset 6
O7,*offset 7
O8,*offset 8
O9,*offset 9
[------------------------------------------------------------------------------------------]
[*************************]
X0.1,*scale   \\0.1
X0.15,*scale   \\0.15
X0.2,*scale   \\0.2
X0.25,*scale   \\0.25
X0.3,*scale   \\0.3
X0.35,*scale   \\0.35
X0.4,*scale   \\0.4
X0.45,*scale   \\0.45
X0.5,*scale   \\0.5
X0.55,*scale   \\0.55
X0.6,*scale   \\0.6
X0.65,*scale   \\0.65
X0.7,*scale   \\0.7
X0.75,*scale   \\0.75
X0.8,*scale   \\0.8
X0.85,*scale   \\0.85
X0.9,*scale   \\0.9
X0.95,*scale   \\0.95
X1,*scale   \\1
X1.1,*scale   \\1.1
X1.2,*scale   \\1.2
X1.3,*scale   \\1.3
X1.4,*scale   \\1.4
X1.5,*scale   \\1.5
X1.6,*scale   \\1.6
X1.7,*scale   \\1.7
X1.8,*scale   \\1.8
X1.9,*scale   \\1.9
X2,*scale   \\2
X2.5,*scale   \\2.5
X3,*scale   \\3
X3.5,*scale   \\3.5
X4,*scale   \\4
X4.5,*scale   \\4.5
X5,*scale   \\5
X5.5,*scale   \\5.5
X6,*scale   \\6
X6.5,*scale   \\6.5
X7,*scale   \\7
X7.5,*scale   \\7.5
X8,*scale   \\8
X8.5,*scale   \\8.5
X9,*scale   \\9
X9.5,*scale   \\9.5
[------------------------------------------------------------------------------------------]
[*************************]
NC,*CHANGE \C -1;
NL,*CHANGE \L ;
ND,*{
   getesel("\nSelect objects: ",FCIRCLE);
   command("CHANGE p \ ALL D ");
   regen();
}
NT,*{
   getesel("\nSelect objects: ",FTEXT);
   command("CHANGE p \ ALL ");
   regen();
}
N1,*{
   command("lset 1 ");
   layer_on("1");
   @CURCOLOR=-1;
   @COLORMASK = 1|2|3;
   command("CHANGE \C -1");
   regen();
   return 0;
}
[------------------------------------------------------------------------------------------]
[*************************]
EED,*{
   getesel("\nSelect objects: ",FDIM);
   command("ERASE p");
   regen();
}
EET,*{
   getesel("\nSelect objects: ",FTEXT);
   command("ERASE p");
   regen();
}
EEL,*{
   getesel("\nSelect objects: ",FLINE);
   command("ERASE p");
   regen();
}
EEC,*{
   getesel("\nSelect objects: ",FCIRCLE);
   command("ERASE p");
   regen();
}
EEA,*{
   getesel("\nSelect objects: ",FARC);
   command("ERASE p");
   regen();
}
EEP,*{
   getesel("\nSelect objects: ",FPOINT);
   command("ERASE p");
   regen();
}
EEB,*{
   getesel("\nSelect objects: ",FINSERTE);
   command("ERASE p");
   regen();
}
[------------------------------------------------------------------------------------------]
[*************************]
B0.5,*lset 4 box c \0.5 0.5
B0.8,*lset 4 box c \0.8 0.8
B1,*lset 4 box c \1 1
B2,*lset 4 box c \2 2
B3,*lset 4 box c \3 3
B4,*lset 4 box c \4 4
B5,*lset 4 box c \5 5
B6,*lset 4 box c \6 6
B7,*lset 4 box c \7 7
B8,*lset 4 box c \8 8
B9,*lset 4 box c \9 9
[------------------------------------------------------------------------------------------]
[*************************]
C0.5,*CIRCLE \D 0.5
C0.8,*CIRCLE \D 0.8
C1,*CIRCLE \D 1
C2,*CIRCLE \D 2
C3,*CIRCLE \D 3
C4,*CIRCLE \D 4
C5,*CIRCLE \D 5
C6,*CIRCLE \D 6
C7,*CIRCLE \D 7
C8,*CIRCLE \D 8
C9,*CIRCLE \D 9
[------------------------------------------------------------------------------------------]
[*************************]
Y1,*{
   getesel("\nSelect objects: ",FCIRCLE);
   command("CHANGE P \ L 1 ");
   command("CHANGE P \ C -1 ");
   regen();
   printf("\n注意!!!图元已经改到   [图层] - [ 1 ] - [红色]");
}
Y2,*{
   getesel("\nSelect objects: ",FCIRCLE);
   command("CHANGE P \ L 2 ");
   command("CHANGE P \ C -1 ");
   regen();
   printf("\n注意!!!图元已经改到   [图层] - [ 2 ] - [绿色]");
}
Y3,*{
   getesel("\nSelect objects: ",FCIRCLE);
   command("CHANGE P \ L 3 ");
   command("CHANGE P \ C -1 ");
   regen();
   printf("\n注意!!!图元已经改到   [图层] - [ 3 ] - [紫色]");
}
Y4,*{
   getesel("\nSelect objects: ",FCIRCLE);
   command("CHANGE P \ L 4 ");
   command("CHANGE P \ C -1 ");
   regen();
   printf("\n注意!!!图元已经改到   [图层] - [ 4 ] - [紫色]");
}
[------------------------------------------------------------------------------------------]
[************选颜色换图层*************]
YS1,*{
   layer("0","",5,0);
   layer("4","",5,0);
   layer("5","",5,0);
   layer("6","",5,0);
   layer("7","",5,0);
   layer("8","",5,0);
   layer("9","",5,0);
   command("lset 1 ");
   layer_on("1");
   @CURCOLOR=-1;
   @COLORMASK =1|2|3;
   command("CHANGE \ L 1 ");
   regen();
   printf("\n注意!!!图元已经改到   [图层] - [ 1 ] - [红色]");
}
[------------------------------------------------------------------------------------------]
[************图层关闭开启操作*************]
AA,*{
   layer_on("*");
   command("lrel");
   regen();
}
QA,*{
   layer_off("*");
   regen();
}
QS,*LOFF
[------------------------------------------------------------------------------------------]
[*************图层0123456789打开并且置入当前************]
0,*{
   layer_on("0");
   @CURCOLOR=-1;
   @CURLTYPE=ltypeid("CONTINUOUS");
   command("lset 0 ");
   printf("\n注意!!!当前图层0其他杂的图元!!");
   regen();
}
1,*{
   layer_on("1");
   @CURCOLOR=-1;
   command("lset 1 ");
   printf("\n注意!!!            (割 1 刀) ------ 红色!!!");
   regen();
}
2,*{
   layer_on("2");
   @CURCOLOR=-1;
   command("lset 2 ");
   printf("\n注意!!!            (割 2 刀) ------ 绿色!!!");
   regen();
}
3,*{
   layer_on("3");
   @CURCOLOR=-1;
   command("lset 3 ");
   printf("\n注意!!!            (割 3 刀) ------ 紫色!!!");
   regen();
}
4,*{
   layer_on("4");
   @CURCOLOR=-1;
   command("lset 4 ");
   printf("\n注意!!!            (文字 + 尺寸) ------ 青色!!!");
   regen();
}
5,*{
   layer_on("5");
   @CURCOLOR=-1;
   command("lset 5 ");
   printf("\n注意!!!            (割斜度) ------ 蓝色!!!");
   regen();
}
6,*{
   layer_on("6");
   @CURCOLOR=-1;
   command("lset 6 ");
   printf("\n注意!!!            (割斜度) ------ 蓝色!!!");
   regen();
}
7,*{
   layer_on("7");
   @CURCOLOR=-1;
   command("lset 7 ");
   printf("\n注意!!!            (割斜度) ------ 蓝色!!!");
   regen();
}
8,*{
   layer_on("8");
   @CURCOLOR=-1;
   command("lset 8 ");
   printf("\n注意!!!            (割斜度) ------ 蓝色!!!");
   regen();
}
9,*{
   layer_on("9");
   @CURCOLOR=-1;
   command("lset 9 ");
   printf("\n注意!!!            (割斜度) ------ 蓝色!!!");
   regen();
}
[------------------------------------------------------------------------------------------]
[*************把图元移动到图层0123456789并且换颜色************]
00,*{
   command("CHANGE \\\L 0");
   command("CHANGE p \ C -1 ");
   command("regen");
}
11,*{
   command("CHANGE \\\L 1");
   command("CHANGE p \ C -1 ");
   command("regen");
}
22,*{
   command("CHANGE \\\L 2");
   command("CHANGE p \ C -1 ");
   command("regen");
}
33,*{
   command("CHANGE \\\L 3");
   command("CHANGE p \ C -1 ");
   command("regen");
}
44,*{
   command("CHANGE \\\L 4");
   command("CHANGE p \ C -1 ");
   command("regen");
}
55,*{
   command("CHANGE \\\L 5");
   command("CHANGE p \ C -1 ");
   command("regen");
}
66,*{
   command("CHANGE \\\L 6");
   command("CHANGE p \ C -1 ");
   command("regen");
}
77,*{
   command("CHANGE \\\L 7");
   command("CHANGE p \ C -1 ");
   command("regen");
}
88,*{
   command("CHANGE \\\L 8");
   command("CHANGE p \ C -1 ");
   command("regen");
}
99,*{
   command("CHANGE \\\L 9");
   command("CHANGE p \ C -1 ");
   command("regen");
}
[------------------------------------------------------------------------------------------]
[************把图元复制到图层0123456789并且换颜色*************]
FZ0,*{
   command("COPY \\@0,0 ");
   command("CHANGE P \ L 0 ");
   command("CHANGE p \ C -1 ");
   command("regen");
}
FZ1,*{
   command("COPY \\@0,0 ");
   command("CHANGE P \ L 1 ");
   command("CHANGE p \ C -1 ");
   command("regen");
}
FZ2,*{
   command("COPY \\@0,0 ");
   command("CHANGE P \ L 2 ");
   command("CHANGE p \ C -1 ");
   command("regen");
}
FZ3,*{
   command("COPY \\@0,0 ");
   command("CHANGE P \ L 3 ");
   command("CHANGE p \ C -1 ");
   command("regen");
}
FZ4,*{
   command("COPY \\@0,0 ");
   command("CHANGE P \ L 4 ");
   command("CHANGE p \ C -1 ");
   command("regen");
}
FZ5,*{
   command("COPY \\@0,0 ");
   command("CHANGE P \ L 5 ");
   command("CHANGE p \ C -1 ");
   command("regen");
}
FZ6,*{
   command("COPY \\@0,0 ");
   command("CHANGE P \ L 6 ");
   command("CHANGE p \ C -1 ");
   command("regen");
}
FZ7,*{
   command("COPY \\@0,0 ");
   command("CHANGE P \ L 7 ");
   command("CHANGE p \ C -1 ");
   command("regen");
}
FZ8,*{
   command("COPY \\@0,0 ");
   command("CHANGE P \ L 8 ");
   command("CHANGE p \ C -1 ");
   command("regen");
}
FZ9,*{
   command("COPY \\@0,0 ");
   command("CHANGE P \ L 9 ");
   command("CHANGE p \ C -1 ");
   command("regen");
}
[------------------------------------------------------------------------------------------]
[**************关闭图层0123456789***********]
Q0,*{
   layer_off("0");
   command("regen");
}
Q1,*{
   layer_off("1");
   command("regen");
}
Q2,*{
   layer_off("2");
   command("regen");
}
Q3,*{
   layer_off("3");
   command("regen");
}
Q4,*{
   layer_off("4");
   command("regen");
}
Q5,*{
   layer_off("5");
   command("regen");
}
Q6,*{
   layer_off("6");
   regen();
   return 0;
}
Q7,*{
   layer_off("7");
   command("regen");
}
Q8,*{
   layer_off("8");
   command("regen");
}
Q9,*{
   layer_off("9");
   command("regen");
}
Q13,*{
   layer_off("1");
   layer_off("2");
   layer_off("3");
   command("regen");
}
Q46,*{
   layer_off("4");
   layer_off("5");
   layer_off("6");
   command("regen");
}
Q59,*{
   layer_off("5");
   layer_off("6");
   layer_off("7");
   layer_off("8");
   layer_off("9");
   command("regen");
}
[------------------------------------------------------------------------------------------]
[**************锁定图层0123456789***********]
KS0,*{
   command("Llock 0 ");
   command("regen");
}
KS1,*{
   command("Llock 1 ");
   command("regen");
}
KS2,*{
   command("Llock 2 ");
   command("regen");
}
KS3,*{
   command("Llock 3 ");
   command("regen");
}
KS4,*{
   command("Llock 4 ");
   command("regen");
}
KS5,*{
   command("Llock 5 ");
   command("regen");
}
KS6,*{
   command("Llock 6 ");
   regen();
}
KS7,*{
   command("Llock 7 ");
   command("regen");
}
KS8,*{
   command("Llock 8 ");
   command("regen");
}
KS9,*{
   command("Llock 9 ");
   command("regen");
}
[------------------------------------------------------------------------------------------]
[*************************]
[**************锁定图层0123456789***********]
SD0,*{
   command("Llock 0 ");
   command("regen");
}
SD1,*{
   command("Llock 1 ");
   command("regen");
}
[------------------------------------------------------------------------------------------]
[*************************]

D0.3,*{
   @DIMTSIZE=0.3;
   @DIMASIZE=0.12;
   @DIMEXE=0.05;
   @DIMEXO=0.05;
   @DIMGAP=-0.01;
   @DIMTCDIST=0.05;
   @DIMTWIDTH=0.7;
   @DIMDRLEAD=0.1;
   @DIMCOLOR=144;
   @DIMECOLOR=144;
   @DIMTCOLOR=60;
   regen();
   printf("\n注意!!!    标注文字高度 0.5 MM");
}
D0.5,*{
   @DIMTSIZE=0.5;
   @DIMASIZE=0.2;
   @DIMEXE=0.05;
   @DIMEXO=0.05;
   @DIMGAP=-0.01;
   @DIMTCDIST=0.05;
   @DIMTWIDTH=0.7;
   @DIMDRLEAD=0.1;
   @DIMCOLOR=144;
   @DIMECOLOR=144;
   @DIMTCOLOR=60;
   regen();
   printf("\n注意!!!    标注文字高度 0.5 MM");
}
D0.7,*{
   @DIMTSIZE=0.7;
   @DIMASIZE=0.3;
   @DIMEXE=0.05;
   @DIMEXO=0.05;
   @DIMGAP=-0.01;
   @DIMTCDIST=0.05;
   @DIMTWIDTH=0.7;
   @DIMDRLEAD=0.1;
   @DIMCOLOR=144;
   @DIMECOLOR=144;
   @DIMTCOLOR=60;
   regen();
   printf("\n注意!!!    标注文字高度 0.5 MM");
}
D1,*{
   @DIMTSIZE=1;
   @DIMASIZE=0.5;
   @DIMDOPT=5;
   @DIMLOPT=4;
   @DIMROPT=4;
   @DIMEXE=0.08;
   @DIMEXO=0.08;
   @DIMGAP=0.08;
   @DIMTCDIST=0.1;
   @DIMTWIDTH=0.8;
   @DIMDRLEAD=0.1;
   @DIMCOLOR=144;
   @DIMECOLOR=144;
   @DIMTCOLOR=60;
   regen();
   printf("\n注意!!!    标注文字高度1 MM");
}
D1.5,*{
   @DIMTSIZE=1.5;
   @DIMASIZE=0.7;
   @DIMEXE=0.15;
   @DIMEXO=0.08;
   @DIMGAP=-0.01;
   @DIMTCDIST=0.05;
   @DIMTWIDTH=0.7;
   @DIMDRLEAD=0.1;
   @DIMCOLOR=144;
   @DIMECOLOR=144;
   @DIMTCOLOR=60;
   regen();
   printf("\n注意!!!    标注文字高度 1.5 MM");
}
D2,*{
   @DIMTSIZE=2;
   @DIMASIZE=1.0;
   @DIMDOPT=5;
   @DIMLOPT=4;
   @DIMROPT=4;
   @DIMEXE=0.18;
   @DIMEXO=0.1;
   @DIMGAP=0.07;
   @DIMTCDIST=0.05;
   @DIMTWIDTH=0.8;
   @DIMDRLEAD=0.1;
   @DIMCOLOR=144;
   @DIMECOLOR=144;
   @DIMTCOLOR=60;
   regen();
   printf("\n注意!!!    标注文字高度2 MM");
}
D2.5,*{
   @DIMTSIZE=2.5;
   @DIMASIZE=1.0;
   @DIMDOPT=5;
   @DIMLOPT=4;
   @DIMROPT=4;
   @DIMEXE=0.2;
   @DIMEXO=0.1;
   @DIMGAP=0.07;
   @DIMTCDIST=0.05;
   @DIMTWIDTH=0.8;
   @DIMDRLEAD=0.1;
   @DIMCOLOR=144;
   @DIMECOLOR=144;
   @DIMTCOLOR=60;
   regen();
   printf("\n注意!!!    标注文字高度2.5 MM");
}
D3,*{
   @DIMTSIZE=3;
   @DIMASIZE=1.5;
   @DIMDOPT=4;
   @DIMLOPT=4;
   @DIMROPT=4;
   @DIMEXE=0.25;
   @DIMEXO=0.3;
   @DIMGAP=0.07;
   @DIMTCDIST=0.1;
   @DIMTWIDTH=0.8;
   @DIMDRLEAD=0.1;
   @DIMCOLOR=144;
   @DIMECOLOR=144;
   @DIMTCOLOR=60;
   regen();
   printf("\n注意!!!    标注文字高度3 MM");
}
D4,*{
   @DIMTSIZE=4;
   @DIMASIZE=2;
   @DIMEXE=0.35;
   @DIMEXO=0.3;
   @DIMGAP=0.2;
   @DIMTCDIST=0.1;
   @DIMTWIDTH=0.8;
   @DIMDRLEAD=0.1;
   @DIMCOLOR=144;
   @DIMECOLOR=144;
   @DIMTCOLOR=60;
   regen();
   printf("\n注意!!!    标注文字高度4 MM");
}
D5,*{
   @DIMTSIZE=5;
   @DIMASIZE=2.5;
   @DIMEXE=0.4;
   @DIMEXO=0.3;
   @DIMGAP=0.2;
   @DIMTCDIST=0.1;
   @DIMTWIDTH=0.8;
   @DIMDRLEAD=0.1;
   @DIMCOLOR=144;
   @DIMECOLOR=144;
   @DIMTCOLOR=60;
   regen();
   printf("\n注意!!!    标注文字高度5 MM");
}
D6,*{
   @DIMTSIZE=6;
   @DIMASIZE=3;
   @DIMEXE=0.5;
   @DIMEXO=0.3;
   @DIMGAP=0.2;
   @DIMTCDIST=0.1;
   @DIMTWIDTH=0.8;
   @DIMDRLEAD=0.1;
   @DIMCOLOR=144;
   @DIMECOLOR=144;
   @DIMTCOLOR=60;
   regen();
   printf("\n注意!!!    标注文字高度6 MM");
}
D7,*{
   @DIMTSIZE=7;
   @DIMASIZE=3.5;
   @DIMEXE=0.6;
   @DIMEXO=0.3;
   @DIMGAP=0.2;
   @DIMTCDIST=0.1;
   @DIMTWIDTH=0.8;
   @DIMDRLEAD=0.1;
   @DIMCOLOR=144;
   @DIMECOLOR=144;
   @DIMTCOLOR=60;
   regen();
   printf("\n注意!!!    标注文字高度7 MM");
}
D8,*{
   @DIMTSIZE=8;
   @DIMASIZE=4;
   @DIMEXE=0.7;
   @DIMEXO=0.3;
   @DIMGAP=0.2;
   @DIMTCDIST=-0.1;
   @DIMTWIDTH=0.8;
   @DIMDRLEAD=0.1;
   @DIMCOLOR=144;
   @DIMECOLOR=144;
   @DIMTCOLOR=60;
   regen();
   printf("\n注意!!!    标注文字高度8 MM");
}
D9,*{
   @DIMTSIZE=9;
   @DIMASIZE=4;
   @DIMEXE=0.7;
   @DIMEXO=0.3;
   @DIMGAP=0.2;
   @DIMTCDIST=-0.1;
   @DIMTWIDTH=0.8;
   @DIMDRLEAD=0.1;
   @DIMCOLOR=144;
   @DIMECOLOR=144;
   @DIMTCOLOR=60;
   regen();
   printf("\n注意!!!    标注文字高度9 MM");
}
[------------------------------------------------------------------------------------------]
[         ———            测试参数说明书            ————                   ]



[@COLORMASK = 1|2;                                                                     ]
[@snapflag |= 0x4000;                                                                  ]
[                                                                                          ]
[   输入命令空格就打一个空格   \斜杠就是 选择图元和选择图上的点                        ]
[                                                                                          ]
[                                                                                          ]
[                                                                                          ]
[                                                                                          ]
[                                                                                          ]
[                                                                                          ]
[                                                                                          ]
[      getesel("\nSelect objects: ",FLINE|FARC|FCIRCLE);                                 ]
[                                                                                          ]
[                                                                                          ]
[                                                                                          ]
[                                                                                          ]
[                                                                                          ]
[------------------------------------------------------------------------------------------]
[———                测            试            ————]
000,*{
   @selmask = ~FPOINT;
   @COLORMASK = 1|2;
   @snapflag |= 0x2000;
   getesel(-2);
   command("CHANGE ALL \ L 4 ");
   command("CHANGE ALL \ C -1 ");
   printf("\n注意!!!   [所有点改到] [图层4][黄色]");
   @selmask = ~FDIM;
   regen();
   command("regen");
}
111,*{
   @COLORMASK = 1;
   @snapflag |= 0x2000;
   getesel("\nSelect objects: ",FLINE|FARC|FCIRCLE|);
   command("CHANGE p \ L 1 ");
   command("CHANGE p \ C -1 ");
   @snapflag= 0;
   printf("\n注意!!!   [所有点改到] [图层4][黄色]");
   regen();
   command("regen");
}
222,*{
   @selmask = ~FCIRCLE;
   e1 = gete("\nSelect objects: ",FCIRCLE);
   command("ddim slist @3,3");
   regen();
}
333,*{
   @selmask = ~FPOINT;
   @snapflag |= 0x2000;
   getesel(-2);
   command("CHANGE ALL \ L 4 ");
   command("CHANGE ALL \ C -1 ");
   @selmask = ~FDIM;
   @snapflag |= 0x2000;
   getesel(-2);
   command("CHANGE ALL \ L 5 ");
   command("CHANGE ALL \ C -1 ");
   @selmask = ~FTEXT;
   @snapflag |= 0x2000;
   getesel(-2);
   command("CHANGE ALL \ L 6 ");
   command("CHANGE ALL \ C -1 ");
   @snapflag= 0;
   command("regen");
444,*{
   command("SELECT c p1 p2 ^M");
   getesel(-2);
   command("CHANGE P\L 4 ");
   command("CHANGE P\C -1 ");
   command("regen");
}
[------------------------------------------------------------------------------------------]


ninja37 发表于 2019-3-22 23:03:18

各位高手们，最近小弟每天晚上9点下班还要学习LISP,编写了一些不像样的东西，基本无法使用。
(defun c:F0.1()
          (command "FILLET" "R" "0.1" "FILLET") (PRINC))
这个lisp不知道怎么回事就是不能运行，
由于以前的统达软件 圆角是这样的F0.1,*fillet r 0.10，我直接在命令行输入f0.1就可以了，
我想问一下现在LISP里面是不是命令不能带小数点。

ninja37 发表于 2019-3-22 23:06:10

还有各位高手们 ，这个代码也一直不能运行
(defun c:S1(command"_lengthen""de" "1""")(princ))
我是要直线一直延迟1mm的 单边延长就可以了，并且延长1mm后只要继续点直线的一头会不断的加1mm 直到取消命令 ，可是这个就是不行啊。

ninja37 发表于 2019-3-22 23:10:21

这个LISP实在是一时间难以入门，这么多的命令不知道怎么写
这个图是我以前统达写的命令
http://m.qpic.cn/psb?/V11p7F3e2DtABt/DgVgS*0Q15MfipeC9o9R6reRIZk4Rox5q6ku7T3xq*E!/b/dDcBAAAAAAAA&bo=AAYMAwAAAAADBys!&rf=viewer_4

ninja37 发表于 2019-3-22 23:11:14

目前只有这几个成功的
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;          ***倫華模具厂 中走丝 慢走丝 加工图层管理***            ;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN C:AA()
   (setvar "cmdecho" 0)       
   (COMMAND"LAYER" "ON" "*" "")
   (princ "\n*** 图层全开! ***")(princ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN C:QA()
   (setvar "cmdecho" 0)       
   (COMMAND"LAYER" "OFF" "*""y""")
   (command "-layer""u""*""")
   (command "-layer""t""*""")
   (princ "\n*** 图层全关! ***")(princ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN C:QA()
   (setvar "cmdecho" 0)       
   (COMMAND"LAYER" "OFF" "*""y""")
   (princ "\n*** 图层全关! ***")(princ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:1(/ s1)(lay_on "1")(setvar "cmdecho" 0)(setq s1 (ssget)) (if (= s1 nil)
(command "-layer" "s" "1" "") (command "change" s1 "" "P" "la" "1" ""))
(command "-layer" "")(setvar "cmdecho" 1)(princ))
(defun c:11(/ s1)(lay_on "1")(setvar "cmdecho" 0)(setq s1 (ssget)) (if (= s1 nil)
(command "-layer" "s" "1" "") (command "change" s1 "" "P" "la" "1" ""))
(command "-layer" "")(setvar "cmdecho" 1)(princ))
(defun C:22 (/ s1) (setq s1 (ssget)) (if (= s1 nil) (command "-layer" "s" "2" "")
(command "change" s1 "" "P" "la" "2" ""))(princ))
(defun C:33 (/ s1) (setq s1 (ssget)) (if (= s1 nil) (command "-layer" "s" "3" "")
(command "change" s1 "" "P" "la" "3" ""))(princ))
(defun C:44 (/ s1) (setq s1 (ssget)) (if (= s1 nil) (command "-layer" "s" "4" "")
(command "change" s1 "" "P" "la" "4" ""))(princ))
(defun C:55 (/ s1) (setq s1 (ssget)) (if (= s1 nil) (command "-layer" "s" "5" "")
(command "change" s1 "" "P" "la" "5" ""))(princ))
(defun C:66 (/ s1) (setq s1 (ssget)) (if (= s1 nil) (command "-layer" "s" "6" "")
(command "change" s1 "" "P" "la" "6" ""))(princ))
(defun C:77 (/ s1) (setq s1 (ssget)) (if (= s1 nil) (command "-layer" "s" "7" "")
(command "change" s1 "" "P" "la" "7" ""))(princ))
(defun C:88 (/ s1) (setq s1 (ssget)) (if (= s1 nil) (command "-layer" "s" "8" "")
(command "change" s1 "" "P" "la" "8" ""))(princ))
(defun C:99 (/ s1) (setq s1 (ssget)) (if (= s1 nil) (command "-layer" "s" "9" "")
(command "change" s1 "" "P" "la" "9" ""))(princ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
；；:图层对象选择,将标注归入5层,文字归入6层
(defun C:56(/ lm_ssd lm_sst)
(if (not (tblsearch "layer" "5"))
(command "-layer" "n" "5" "c" "1""5"""));endif
(if (not (tblsearch "layer" "6"))
(command "-layer" "n" "6" "c" "1""6"""));endif
(setq lm_ssd (ssget "X" '((0 . "DIMENSION")))
lm_sst (ssget "X" '((-4 . "<or")(0 . "TEXT")(0 . "MTEXT")(-4 . "or>"))));endsetq
(if lm_ssd (command "chprop" lm_ssd "" "la" "5"""))
(if lm_sst (command "chprop" lm_sst "" "la" "6"""))
)
;end defun
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

查看完整版本: 各位大神，小弟初来乍到，帮我看看这个圆角命令怎么用。