画长圆孔源码，请大家检查以下问题，并指正！多谢了！

duanshui83

(defun dtr (ang0)
(* ang0 (/ pi 180.0))
)
(defun c:slot (/ w ang1 bp1 bp2 p1 p2 p3 p4 cp1 cp2 cp3 cp4 cp5 cp6 tcm1 tcm2)
(setvar "cmdecho" 0)
(graphscr)
(setq w (getdist "\n Enter slot width（输入孔宽度）:")) ;定义孔宽度
(setq bp1 (getpoint "\n Enter first basepoint of the slot（输入长圆孔第一个中心点）:") ;长圆孔第一个基点
     bp2 (getpoint bp1 "\n Enter second basepoint of the slot（输入长圆孔第二个中心点）:") ;长圆孔第二个基点
     ang1 (angle bp1 bp2) ;计算两基点连线的夹角
     )
(setq p1 (polar bp1 (+ ang1 (dtr 90)) (/ w 2))
  p2 (polar bp1 (+ ang1 (dtr 270)) (/ w 2))
  p3 (polar bp2 (+ ang1 (dtr 90)) (/ w 2))
  p4 (polar bp2 (+ ang1 (dtr 270)) (/ w 2))
  );求得长圆孔四个关键点
(setq cp1 (polar bp1 (+ ang1 (dtr 90)) (/ (* 5 w) 6))
  cp2 (polar bp1 (+ ang1 (dtr 270)) (/ (* 5 w) 6))
  cp3 (polar bp2 (+ ang1 (dtr 90)) (/ (* 5 w) 6))
  cp4 (polar bp2 (+ ang1 (dtr 270)) (/ (* 5 w) 6))
  cp5 (polar bp1 (+ ang1 (dtr 180)) (/ (* 5 w) 6))
  cp6 (polar bp2 ang1 (/ (* 5 w) 6))
  );求得长圆孔中心轴线的六个关键点
;;;------检查是否有“PJ”图层，如无则创建，并置为当前图层--------
(setq tcm1 "PJ")
(if
   (= (tblobjname "LAYER" tcm1) nil);没有该图层
   (command "layer" "n" tcm1 "c" "2" tcm1 "");建立图层  
);if
(command "layer" "s" tcm1 "");置为当前图层
;;;------绘制长圆孔------
(command "pline" p2 p4 "a" p3 "l" p1 "a" p2 "");绘制长圆孔
;;;------检查是否有“zx”图层，如无则创建，并置为当前图层--------
(setq tcm2 "ZX")
(if
   (= (tblobjname "LAYER" tcm2) nil);没有该图层
   (command "layer" "n" tcm2 "c" "1" tcm2 "");建立图层  
);if
(command "layer" "s" tcm2 "");置为当前图层
;;;------绘制长圆孔中心线------
(command "line" cp1 cp2 "")
(command "line" cp3 cp4 "")
(command "line" cp5 cp6 "")
(setvar "cmdecho" 1)
(princ "\n It's Done! Please Check it!（绘制完成，请查看！）")
(prin1 )
)
(princ )
(prompt "<<slot>>绘制长圆孔")
(princ )
以上代码在运行时，有时会出现错误，不知什么原因，请大家指正！如顶端第三个长圆孔轴线没有按代码运行，不知何故？

duanshui83

自己先顶一个再说

cxs259

试了，挺不错的，赞一个！

BDYCAD

        正巧，我也用到这样的功能，只是行业应用不同，要求不同，我也简单贴上ARX代码，大家参考一下，新手也可以学习一下。高就也可指导一下。谢谢。
       对于ARX 写这个功能应该是很简单。所以在止抛砖引玉，有望有空的大侠改写一份ARX程序用JIG动态较果的：）

1. //--------------------------------支持程序--------------------------------------
   
2. AcDbBlockTableRecord *GetModelSpace(AcDb::OpenMode Mode){
   
3.         AcDbDatabase *pDwg = acdbHostApplicationServices()->workingDatabase();
   
4.         AcDbBlockTable *pBlockTable;
   
5.         AcDbBlockTableRecord *pModelSpace;
   
6.         pDwg->getSymbolTable(pBlockTable, AcDb::kForRead);
   
7.         pBlockTable->getAt(ACDB_MODEL_SPACE, pModelSpace, Mode);
   
8.         pBlockTable->close();
   
9.         return pModelSpace;
   
10. }
    
11. //凸度计算函数
    
12. double GetBulgeOf3Pt(
    
13.                                                            const AcGePoint3d &startPt                        //起点
    
14.                                                            , const AcGePoint3d &interPt                //中间一点
    
15.                                                            , const AcGePoint3d &endPt                        //终点
    
16.                                                            )
    
17. {
    
18.         double dTmp;
    
19.         AcGeCircArc3d aa(startPt, interPt, endPt);
    
20.         dTmp = (startPt.x - endPt.x) * (interPt.y - endPt.y) - (interPt.x - endPt.x) * (startPt.y - endPt.y);
    
21.         //圆弧逆时针方向
    
22.         if (dTmp > 0)        {
    
23.                 return tan((aa.endAng() - aa.startAng()) * 0.25);
    
24.         }
    
25.         //圆弧顺时针方向
    
26.         else if (dTmp < 0)        {
    
27.                 return -tan((aa.endAng() - aa.startAng()) * 0.25);
    
28.         }
    
29.         return 0;
    
30. }
    
31. //--------------------------------支持程序--------------------------------------
    
32. static void BDYCAD2012_RF(void)//20110720画足球场
    
33. {
    
34.         ads_real KuanDu,ChangDu,Rtd,Ltd;
    
35.         ads_point p1,p2,p3,p4,p5,Lmp,Rmp,Pt;
    
36.         AcGePoint3d Spt,Pt1,Pt2,Pt3,Pt4,Mpt;
    
37.         ads_name Ename;
    
38.         AcDbObjectId PLineID,CID;
    
39.         AcDbBlockTableRecord *pModelSpace;
    
40.         if (acedGetDist(NULL,_T("\n请输入宽度:"),&KuanDu)!=RTNORM)return;
    
41.         if (acedGetDist(NULL,_T("\n请输入长度:"),&ChangDu)!=RTNORM)return;
    
42.         if (acedGetPoint(NULL,_T("\n请输入插入点"),Pt)!=RTNORM)return;
    
43.         Spt=asPnt3d(Pt);
    
44.         p1[X]=Spt.x-((0.5*ChangDu)-(0.5*KuanDu));
    
45.         p1[Y]=Spt.y-(0.5*KuanDu);
    
46.         p2[X]=Spt.x+(0.5*ChangDu)-(0.5*KuanDu);
    
47.         p2[Y]=Spt.y-(0.5*KuanDu);
    
48. 
    
49.         p3[X]=Spt.x+(0.5*ChangDu)-(0.5*KuanDu);
    
50.         p3[Y]=Spt.y+(0.5*KuanDu);
    
51.         p4[X]=Spt.x-((0.5*ChangDu)-(0.5*KuanDu));
    
52.         p4[Y]=Spt.y+(0.5*KuanDu);
    
53.         p5[X]=Spt.x-((0.3*ChangDu)-(0.5*KuanDu));
    
54.         p5[Y]=Spt.y-(0.5*KuanDu);
    
55.         Lmp[X]=Spt.x-(0.5*ChangDu);
    
56.         Lmp[Y]=Spt.y;
    
57.         Rmp[X]=Spt.x+(0.5*ChangDu);
    
58.         Rmp[Y]=Spt.y;
    
59. 
    
60.         AcDbPolyline *QKPline=new AcDbPolyline(4);//生成四个点的LWPOLYLINE式多段线开始
    
61.         pModelSpace= GetModelSpace(AcDb::kForWrite);
    
62.         pModelSpace->appendAcDbEntity(PLineID,QKPline);
    
63.         pModelSpace->close();
    
64.         QKPline->setLayer(_T("0"));
    
65.         AcGePoint2d Pl2pt;
    
66. 
    
67.         Pl2pt=asPnt2d(p1);
    
68.         QKPline->addVertexAt(0,Pl2pt);
    
69. 
    
70.         Pt1=asPnt3d(p2);
    
71.         Pt2=asPnt3d(Rmp);
    
72.         Pt3=asPnt3d(p3);
    
73.         Rtd=GetBulgeOf3Pt(Pt1,Pt2,Pt3);//右边凸度如果RisFillQK=FALSE凸度等于0，这样就是直线，
    
74.         Pl2pt=asPnt2d(p2);
    
75.         QKPline->addVertexAt(1,Pl2pt,Rtd);//PLINE起点为弧
    
76. 
    
77.         Pl2pt=asPnt2d(p3);
    
78.         QKPline->addVertexAt(2,Pl2pt);//PLINE起点为弧3
    
79. 
    
80.         Pt1=asPnt3d(p4);
    
81.         Pt2=asPnt3d(Lmp);
    
82.         Pt3=asPnt3d(p1);
    
83.         Ltd=GetBulgeOf3Pt(Pt1,Pt2,Pt3);//右边凸度如果RisFillQK=FALSE凸度等于0，这样就是直线，
    
84.         Pl2pt=asPnt2d(p4);
    
85.         QKPline->addVertexAt(3,Pl2pt,Rtd);//PLINE起点为弧
    
86. 
    
87.         Pl2pt=asPnt2d(p1);
    
88.         QKPline->addVertexAt(4,Pl2pt);//PLINE起点为弧
    
89. 
    
90.         //QKPline->setClosed(TRUE);
    
91.         QKPline->close();
    
92.         acdbGetAdsName(Ename,PLineID);
    
93.         acedCommand(RTSTR,_T("rotate"),RTLB,RTENAME,Ename,RT3DPOINT,p1,RTLE,RTSTR,_T(""),RT3DPOINT,Pt,0);
    
94.         return;
    
95. }

//--------------------------------支持程序--------------------------------------<br /> AcDbBlockTableRecord *GetModelSpace(AcDb::OpenMode Mode){<br />         AcDbDatabase *pDwg = acdbHostApplicationServices()->workingDatabase();<br />         AcDbBlockTable *pBlockTable;<br />         AcDbBlockTableRecord *pModelSpace;<br />         pDwg->getSymbolTable(pBlockTable, AcDb::kForRead);<br />         pBlockTable->getAt(ACDB_MODEL_SPACE, pModelSpace, Mode);<br />         pBlockTable->close();<br />         return pModelSpace;<br /> }<br /> //凸度计算函数<br /> double GetBulgeOf3Pt(<br />                                                            const AcGePoint3d &startPt                        //起点<br />                                                            , const AcGePoint3d &interPt                //中间一点<br />                                                            , const AcGePoint3d &endPt                        //终点<br />                                                            )<br /> {<br />         double dTmp;<br />         AcGeCircArc3d aa(startPt, interPt, endPt);<br />         dTmp = (startPt.x - endPt.x) * (interPt.y - endPt.y) - (interPt.x - endPt.x) * (startPt.y - endPt.y);<br />         //圆弧逆时针方向<br />         if (dTmp > 0)        {<br />                 return tan((aa.endAng() - aa.startAng()) * 0.25);<br />         } <br />         //圆弧顺时针方向<br />         else if (dTmp < 0)        {<br />                 return -tan((aa.endAng() - aa.startAng()) * 0.25);<br />         }<br />         return 0;<br /> }<br /> //--------------------------------支持程序--------------------------------------<br /> static void BDYCAD2012_RF(void)//20110720画足球场<br /> {<br />         ads_real KuanDu,ChangDu,Rtd,Ltd;<br />         ads_point p1,p2,p3,p4,p5,Lmp,Rmp,Pt;<br />         AcGePoint3d Spt,Pt1,Pt2,Pt3,Pt4,Mpt;<br />         ads_name Ename;<br />         AcDbObjectId PLineID,CID;<br />         AcDbBlockTableRecord *pModelSpace;<br />         if (acedGetDist(NULL,_T("\n请输入宽度:"),&KuanDu)!=RTNORM)return;<br />         if (acedGetDist(NULL,_T("\n请输入长度:"),&ChangDu)!=RTNORM)return;<br />         if (acedGetPoint(NULL,_T("\n请输入插入点"),Pt)!=RTNORM)return;<br />         Spt=asPnt3d(Pt);<br />         p1[X]=Spt.x-((0.5*ChangDu)-(0.5*KuanDu));<br />         p1[Y]=Spt.y-(0.5*KuanDu);<br />         p2[X]=Spt.x+(0.5*ChangDu)-(0.5*KuanDu);<br />         p2[Y]=Spt.y-(0.5*KuanDu);<br /> <br />         p3[X]=Spt.x+(0.5*ChangDu)-(0.5*KuanDu);<br />         p3[Y]=Spt.y+(0.5*KuanDu);<br />         p4[X]=Spt.x-((0.5*ChangDu)-(0.5*KuanDu));<br />         p4[Y]=Spt.y+(0.5*KuanDu);<br />         p5[X]=Spt.x-((0.3*ChangDu)-(0.5*KuanDu));<br />         p5[Y]=Spt.y-(0.5*KuanDu);<br />         Lmp[X]=Spt.x-(0.5*ChangDu);<br />         Lmp[Y]=Spt.y;<br />         Rmp[X]=Spt.x+(0.5*ChangDu);<br />         Rmp[Y]=Spt.y;<br /> <br />         AcDbPolyline *QKPline=new AcDbPolyline(4);//生成四个点的LWPOLYLINE式多段线开始<br />         pModelSpace= GetModelSpace(AcDb::kForWrite);<br />         pModelSpace->appendAcDbEntity(PLineID,QKPline);<br />         pModelSpace->close();<br />         QKPline->setLayer(_T("0"));<br />         AcGePoint2d Pl2pt;<br /> <br />         Pl2pt=asPnt2d(p1);<br />         QKPline->addVertexAt(0,Pl2pt);<br /> <br />         Pt1=asPnt3d(p2);<br />         Pt2=asPnt3d(Rmp);<br />         Pt3=asPnt3d(p3);<br />         Rtd=GetBulgeOf3Pt(Pt1,Pt2,Pt3);//右边凸度如果RisFillQK=FALSE凸度等于0，这样就是直线，<br />         Pl2pt=asPnt2d(p2);<br />         QKPline->addVertexAt(1,Pl2pt,Rtd);//PLINE起点为弧<br /> <br />         Pl2pt=asPnt2d(p3);<br />         QKPline->addVertexAt(2,Pl2pt);//PLINE起点为弧3<br /> <br />         Pt1=asPnt3d(p4);<br />         Pt2=asPnt3d(Lmp);<br />         Pt3=asPnt3d(p1);<br />         Ltd=GetBulgeOf3Pt(Pt1,Pt2,Pt3);//右边凸度如果RisFillQK=FALSE凸度等于0，这样就是直线，<br />         Pl2pt=asPnt2d(p4);<br />         QKPline->addVertexAt(3,Pl2pt,Rtd);//PLINE起点为弧<br /> <br />         Pl2pt=asPnt2d(p1);<br />         QKPline->addVertexAt(4,Pl2pt);//PLINE起点为弧<br /> <br />         //QKPline->setClosed(TRUE);<br />         QKPline->close();<br />         acdbGetAdsName(Ename,PLineID);<br />         acedCommand(RTSTR,_T("rotate"),RTLB,RTENAME,Ename,RT3DPOINT,p1,RTLE,RTSTR,_T(""),RT3DPOINT,Pt,0);<br />         return;<br /> }

hubei_yuyu

好东西

尘缘一生

进行更改，椭圆孔宽度不用输入，改为鼠标拉动即可！

1. (defun c:slot (/ w ang1 bp1 bp2 p1 p2 p3 p4 cp1 cp2 cp3 cp4 cp5 cp6 tcm1 tcm2)
   
2.   (setvar "cmdecho" 0)
   
3.   (graphscr)  
   
4.   (setq bp1 (getpoint "\n输入长圆孔第一个中心点:")
   
5.     bp2 (getpoint bp1 "\n输入长圆孔第二个中心点:")
   
6.     bp3 (getpoint bp2 "\n拉出长圆孔半个宽度点:")
   
7.     ang1 (angle bp1 bp2)
   
8.     w (* (distance bp2 bp3) 2)
   
9.   )
   
10.   (setq p1 (polar bp1 (+ ang1 (* 0.5 pi)) (/ w 2))
    
11.     p2 (polar bp1 (+ ang1 (* 1.5 pi)) (/ w 2))
    
12.     p3 (polar bp2 (+ ang1 (* 0.5 pi)) (/ w 2))
    
13.     p4 (polar bp2 (+ ang1 (* 1.5 pi)) (/ w 2))
    
14.   );求得长圆孔四个关键点
    
15.   (setq cp1 (polar bp1 (+ ang1 (* 0.5 pi)) (/ (* 5 w) 6))
    
16.     cp2 (polar bp1 (+ ang1 (* 1.5 pi)) (/ (* 5 w) 6))
    
17.     cp3 (polar bp2 (+ ang1 (* 0.5 pi)) (/ (* 5 w) 6))
    
18.     cp4 (polar bp2 (+ ang1 (* 1.5 pi)) (/ (* 5 w) 6))
    
19.     cp5 (polar bp1 (+ ang1 pi) (/ (* 5 w) 6))
    
20.     cp6 (polar bp2 ang1 (/ (* 5 w) 6))
    
21.   );求得长圆孔中心轴线的六个关键点
    
22.   ;;;------检查是否有“PJ”图层，如无则创建，并置为当前图层--------
    
23.   (setq tcm1 "PJ")
    
24.   (if
    
25.     (= (tblobjname "LAYER" tcm1) nil);没有该图层
    
26.     (command "layer" "n" tcm1 "c" "2" tcm1 "");建立图层  
    
27.   );if
    
28.   (command "layer" "s" tcm1 "");置为当前图层
    
29.   ;;;------绘制长圆孔------
    
30.   (command "pline" p2 p4 "a" p3 "l" p1 "a" p2 "");绘制长圆孔
    
31.   ;;;------检查是否有“zx”图层，如无则创建，并置为当前图层--------
    
32.   (setq tcm2 "ZX")
    
33.   (if
    
34.     (= (tblobjname "LAYER" tcm2) nil);没有该图层
    
35.     (command "layer" "n" tcm2 "c" "1" tcm2 "");建立图层  
    
36.   );if
    
37.   (command "layer" "s" tcm2 "");置为当前图层
    
38.   ;;;------绘制长圆孔中心线------
    
39.   (command "line" cp1 cp2 "")
    
40.   (command "line" cp3 cp4 "")
    
41.   (command "line" cp5 cp6 "")
    
42.   (setvar "cmdecho" 1)
    
43.   (princ "\n It's Done! Please Check it!（绘制完成，请查看！）")
    
44.   (prin1 )
    
45. )
    

(defun c:slot (/ w ang1 bp1 bp2 p1 p2 p3 p4 cp1 cp2 cp3 cp4 cp5 cp6 tcm1 tcm2)<br />   (setvar "cmdecho" 0)<br />   (graphscr)  <br />   (setq bp1 (getpoint "\n输入长圆孔第一个中心点:") <br />     bp2 (getpoint bp1 "\n输入长圆孔第二个中心点:") <br />     bp3 (getpoint bp2 "\n拉出长圆孔半个宽度点:") <br />     ang1 (angle bp1 bp2)<br />     w (* (distance bp2 bp3) 2)<br />   )<br />   (setq p1 (polar bp1 (+ ang1 (* 0.5 pi)) (/ w 2))<br />     p2 (polar bp1 (+ ang1 (* 1.5 pi)) (/ w 2))<br />     p3 (polar bp2 (+ ang1 (* 0.5 pi)) (/ w 2))<br />     p4 (polar bp2 (+ ang1 (* 1.5 pi)) (/ w 2))<br />   );求得长圆孔四个关键点<br />   (setq cp1 (polar bp1 (+ ang1 (* 0.5 pi)) (/ (* 5 w) 6))<br />     cp2 (polar bp1 (+ ang1 (* 1.5 pi)) (/ (* 5 w) 6))<br />     cp3 (polar bp2 (+ ang1 (* 0.5 pi)) (/ (* 5 w) 6))<br />     cp4 (polar bp2 (+ ang1 (* 1.5 pi)) (/ (* 5 w) 6))<br />     cp5 (polar bp1 (+ ang1 pi) (/ (* 5 w) 6))<br />     cp6 (polar bp2 ang1 (/ (* 5 w) 6))<br />   );求得长圆孔中心轴线的六个关键点<br />   ;;;------检查是否有“PJ”图层，如无则创建，并置为当前图层--------<br />   (setq tcm1 "PJ")<br />   (if <br />     (= (tblobjname "LAYER" tcm1) nil);没有该图层<br />     (command "layer" "n" tcm1 "c" "2" tcm1 "");建立图层  <br />   );if<br />   (command "layer" "s" tcm1 "");置为当前图层<br />   ;;;------绘制长圆孔------<br />   (command "pline" p2 p4 "a" p3 "l" p1 "a" p2 "");绘制长圆孔<br />   ;;;------检查是否有“zx”图层，如无则创建，并置为当前图层--------<br />   (setq tcm2 "ZX")<br />   (if <br />     (= (tblobjname "LAYER" tcm2) nil);没有该图层<br />     (command "layer" "n" tcm2 "c" "1" tcm2 "");建立图层  <br />   );if<br />   (command "layer" "s" tcm2 "");置为当前图层<br />   ;;;------绘制长圆孔中心线------<br />   (command "line" cp1 cp2 "")<br />   (command "line" cp3 cp4 "")<br />   (command "line" cp5 cp6 "")<br />   (setvar "cmdecho" 1)<br />   (princ "\n It's Done! Please Check it!（绘制完成，请查看！）")<br />   (prin1 )<br /> )<br />

前生

我一般的做法是用entmake生成，相应的线，以及PLINE线。这样的话，层不用考虑

18112600842

学习学习