用Entmake制造遮盖实体

Free-Lancer

LISP (entmake)’ing a WipeOut object in AutoCAD gives different coordinates than expected                                                        by Fenton Webb
Here’s one from the past I thought you might all like to see.
Using LISP to (entmake) a Wipeout object inside of AutoCAD… Adding the x,y,z values for group code 10 and the coordinates for the boundary (group code 14) it seems that when the wipeout is created it is not located at the specified coordinates…
The reason is because some objects use the OCS (Object Coordinate System)
Here’s a couple of examples which show how to deal specifically with the WipeOut object so that it places in the drawing as you would expect.

1. (defun c:makewo (/ )
   
2.   (setq ins_pt (getpoint "select a point for lower left of 2x2 wipeout"))
   
3.   ; Add 1.5 to the x and subtract .5 from the Y point
   
4.   ; With this change to the point used for the lower left
   
5.   ; the wipeout is the same as the selected point.
   
6.   (setq xVal (nth 0 ins_pt))
   
7.   (setq xVal (+ xVal 1.5))
   
8.   (setq yVal (nth 1 ins_pt))
   
9.   (setq yVal (- yVal 0.5))
   
10. 
    
11.   (entmake
    
12.     (list
    
13.       '(0 . "WIPEOUT")
    
14.       '(100 . "AcDbEntity")
    
15.       '(8 . "0")
    
16.       '(100 . "AcDbWipeout")
    
17.       (cons 10 (list xVal yVal 0.0))
    
18.       (cons 11 '(0.0 1.0 0.0))
    
19.       (cons 12 '(1.0 0.0 0.0))
    
20.       (cons 13 '(1.0 1.0 0.0))
    
21.       '(70 . 7)
    
22.       '(280 . 1)
    
23.       '(281 . 50)
    
24.       '(282 . 50)
    
25.       '(283 . 0)
    
26.       '(71 . 2); 1=RECTANGLE 2=POLYGON
    
27.       '(91 . 5); NUMBER OF VERTICIES TO FOLLOW
    
28. 
    
29.       ; Note: X and Y are reversed compared to the UCS
    
30.       ; the origin of these points is the lower right
    
31.       ; This is the lower right corner
    
32.       (cons 14 '(0.0 0.0 0.0))
    
33.       ;x and y are reversed 2.0 is the first y coordinate
    
34.       ;on the upper right corner
    
35.       (cons 14 '(2.0 0.0 0.0))
    
36.       ;This is the upper left corner
    
37.       ; Notice that the second coordinate is the X value
    
38.       ; and that a positive value moves it to the left which is
    
39.       ; the opposite of the default UCS.
    
40.       (cons 14 '(2.0 2.0 0.0))
    
41.       ;This is the lower left corner
    
42.       (cons 14 '(0.0 2.0 0.0))
    
43.       ;This completes the boundary of the wipeout
    
44.       ;needs to be the same as the first coordinate
    
45.       (cons 14 '(0.0 0.0 0.0))
    
46. 
    
47.       )
    
48.     )
    
49.   )
    
50. 
    
51. 
    
52. (defun c:makewo2 ()
    
53.   (setq ins_pt (getpoint "select a point"))
    
54.   (setq xVal (nth 0 ins_pt))
    
55.   (setq xVal (+ xVal 1.5))
    
56.   (setq yVal (nth 1 ins_pt))
    
57.   (setq yVal (- yVal 0.5))
    
58.   (entmake
    
59.     (list
    
60.       '(0 . "WIPEOUT")
    
61.       '(100 . "AcDbEntity")
    
62.       '(8 . "0")
    
63.       '(100 . "AcDbWipeout")
    
64.       (cons 10 (list xVal yVal 0.0))
    
65.       (cons 11 '(0.0 1.0 0.0))
    
66. 
    
67.       (cons 12 '(1.0 0.0 0.0))
    
68.       (cons 13 '(1.0 1.0 0.0))
    
69.       '(70 . 7)
    
70.       '(280 . 1)
    
71.       '(281 . 50)
    
72.       '(282 . 50)
    
73.       '(283 . 0)
    
74.       '(71 . 2)
    
75.       '(91 . 9)
    
76.       (cons 14 '(0.7888 -0.9376 0.0))
    
77.       (cons 14 '(-0.9336 0.7792 0.0))
    
78.       (cons 14 '(-0.9376 3.2112 0.0))
    
79.       (cons 14 '(0.7792 4.9336 0.0))
    
80.       (cons 14 '(3.2112 4.9376 0.0))
    
81.       (cons 14 '(4.9336 3.2208 0.0))
    
82.       (cons 14 '(4.9376 0.7888 0.0))
    
83.       (cons 14 '(3.2208 -0.9336 0.0))
    
84.       (cons 14 '(0.7888 -0.9376 0.0))
    
85.       )
    
86.     )
    
87.   )

(defun c:makewo (/ )<br />   (setq ins_pt (getpoint "select a point for lower left of 2x2 wipeout"))<br />   ; Add 1.5 to the x and subtract .5 from the Y point<br />   ; With this change to the point used for the lower left<br />   ; the wipeout is the same as the selected point.<br />   (setq xVal (nth 0 ins_pt))<br />   (setq xVal (+ xVal 1.5))<br />   (setq yVal (nth 1 ins_pt))<br />   (setq yVal (- yVal 0.5))<br /> <br />   (entmake<br />     (list<br />       '(0 . "WIPEOUT")<br />       '(100 . "AcDbEntity")<br />       '(8 . "0")<br />       '(100 . "AcDbWipeout")<br />       (cons 10 (list xVal yVal 0.0))<br />       (cons 11 '(0.0 1.0 0.0))<br />       (cons 12 '(1.0 0.0 0.0))<br />       (cons 13 '(1.0 1.0 0.0))<br />       '(70 . 7)<br />       '(280 . 1)<br />       '(281 . 50)<br />       '(282 . 50)<br />       '(283 . 0)<br />       '(71 . 2); 1=RECTANGLE 2=POLYGON<br />       '(91 . 5); NUMBER OF VERTICIES TO FOLLOW<br /> <br />       ; Note: X and Y are reversed compared to the UCS<br />       ; the origin of these points is the lower right<br />       ; This is the lower right corner<br />       (cons 14 '(0.0 0.0 0.0))<br />       ;x and y are reversed 2.0 is the first y coordinate<br />       ;on the upper right corner<br />       (cons 14 '(2.0 0.0 0.0))<br />       ;This is the upper left corner<br />       ; Notice that the second coordinate is the X value<br />       ; and that a positive value moves it to the left which is<br />       ; the opposite of the default UCS.<br />       (cons 14 '(2.0 2.0 0.0))<br />       ;This is the lower left corner<br />       (cons 14 '(0.0 2.0 0.0))<br />       ;This completes the boundary of the wipeout<br />       ;needs to be the same as the first coordinate<br />       (cons 14 '(0.0 0.0 0.0))<br /> <br />       )<br />     )<br />   )<br /> <br /> <br /> (defun c:makewo2 ()<br />   (setq ins_pt (getpoint "select a point"))<br />   (setq xVal (nth 0 ins_pt))<br />   (setq xVal (+ xVal 1.5))<br />   (setq yVal (nth 1 ins_pt))<br />   (setq yVal (- yVal 0.5))<br />   (entmake<br />     (list<br />       '(0 . "WIPEOUT")<br />       '(100 . "AcDbEntity")<br />       '(8 . "0")<br />       '(100 . "AcDbWipeout")<br />       (cons 10 (list xVal yVal 0.0))<br />       (cons 11 '(0.0 1.0 0.0))<br /> <br />       (cons 12 '(1.0 0.0 0.0))<br />       (cons 13 '(1.0 1.0 0.0))<br />       '(70 . 7)<br />       '(280 . 1)<br />       '(281 . 50)<br />       '(282 . 50)<br />       '(283 . 0)<br />       '(71 . 2)<br />       '(91 . 9)<br />       (cons 14 '(0.7888 -0.9376 0.0))<br />       (cons 14 '(-0.9336 0.7792 0.0))<br />       (cons 14 '(-0.9376 3.2112 0.0))<br />       (cons 14 '(0.7792 4.9336 0.0))<br />       (cons 14 '(3.2112 4.9376 0.0))<br />       (cons 14 '(4.9336 3.2208 0.0))<br />       (cons 14 '(4.9376 0.7888 0.0))<br />       (cons 14 '(3.2208 -0.9336 0.0))<br />       (cons 14 '(0.7888 -0.9376 0.0))<br />       )<br />     )<br />   )

laibinwu

这么多表啊