Entmake MPolygon实体

marting

MPolygon是AUTOCAD MAP里面的实体，如果加载 acmpolygonobjXXX.arx , XXX是ACAD的大版本号。 是可以通过ENTMAKE函数生成MPOLYGON实体的。

1. (defun c:makeMPolygon (/ filename)
   
2.   (setq filename (strcat "acmpolygonobj" (substr (getvar "ACADVER") 1 2) ".dbx"))
   
3.   (or (member filename (arx))
   
4.       (arxload filename)
   
5.   )
   
6.   (entmake '((0 . "MPOLYGON")
   
7.              (100 . "AcDbEntity")
   
8.              (100 . "AcDbMPolygon")
   
9.              (70 . 1)
   
10.              (10 0.0 0.0 0.0)
    
11.              (210 0.0 0.0 1.0)
    
12.              (2 . "ANSI31")
    
13.              (71 . 0)
    
14.              (91 . 2)
    
15.              (92 . 2)
    
16.              (73 . 0)
    
17.              (72 . 0)
    
18.              (93 . 5)
    
19.              (10 62.6859 18.6225 0.0)
    
20.              (10 120.0 60.2636 0.0)
    
21.              (10 177.314 18.6225 0.0)
    
22.              (10 155.422 -48.7543 0.0)
    
23.              (10 84.5779 -48.7543 0.0)
    
24.              (92 . 2)
    
25.              (73 . 0)
    
26.              (72 . 0)
    
27.              (93 . 4)
    
28.              (10 20.0 100.0 0.0)
    
29.              (10 20.0 -100.0 0.0)
    
30.              (10 220.0 -100.0 0.0)
    
31.              (10 220.0 100.0 0.0)
    
32.              (76 . 1)
    
33.              (52 . 0.0)
    
34.              (41 . 2.0)
    
35.              (77 . 0)
    
36.              (78 . 1)
    
37.              (53 . 0.785398)
    
38.              (43 . 0.0)
    
39.              (44 . 0.0)
    
40.              (45 . -4.49013)
    
41.              (46 . 4.49013)
    
42.              (79 . 0)
    
43.              (11 0.0 0.0 0.0)
    
44.              (99 . 0)
    
45.              (450 . 0)
    
46.              (451 . 0)
    
47.              (460 . 0.0)
    
48.              (461 . 0.0)
    
49.              (452 . 0)
    
50.              (462 . 0.0)
    
51.              (453 . 0)
    
52.              (470 . "")
    
53.             )
    
54.   )
    
55.   (princ)
    
56. )
    

(defun c:makeMPolygon (/ filename)<br />   (setq filename (strcat "acmpolygonobj" (substr (getvar "ACADVER") 1 2) ".dbx"))<br />   (or (member filename (arx))<br />       (arxload filename)<br />   )<br />   (entmake '((0 . "MPOLYGON")<br />              (100 . "AcDbEntity")<br />              (100 . "AcDbMPolygon")<br />              (70 . 1)<br />              (10 0.0 0.0 0.0)<br />              (210 0.0 0.0 1.0)<br />              (2 . "ANSI31")<br />              (71 . 0)<br />              (91 . 2)<br />              (92 . 2)<br />              (73 . 0)<br />              (72 . 0)<br />              (93 . 5)<br />              (10 62.6859 18.6225 0.0)<br />              (10 120.0 60.2636 0.0)<br />              (10 177.314 18.6225 0.0)<br />              (10 155.422 -48.7543 0.0)<br />              (10 84.5779 -48.7543 0.0)<br />              (92 . 2)<br />              (73 . 0)<br />              (72 . 0)<br />              (93 . 4)<br />              (10 20.0 100.0 0.0)<br />              (10 20.0 -100.0 0.0)<br />              (10 220.0 -100.0 0.0)<br />              (10 220.0 100.0 0.0)<br />              (76 . 1)<br />              (52 . 0.0)<br />              (41 . 2.0)<br />              (77 . 0)<br />              (78 . 1)<br />              (53 . 0.785398)<br />              (43 . 0.0)<br />              (44 . 0.0)<br />              (45 . -4.49013)<br />              (46 . 4.49013)<br />              (79 . 0)<br />              (11 0.0 0.0 0.0)<br />              (99 . 0)<br />              (450 . 0)<br />              (451 . 0)<br />              (460 . 0.0)<br />              (461 . 0.0)<br />              (452 . 0)<br />              (462 . 0.0)<br />              (453 . 0)<br />              (470 . "")<br />             )<br />   )<br />   (princ)<br /> )<br />