圖塊

Andyhon

批量....

那么程序得取得图块名...


到圆的中心点...
圆的滤取方式又如何!?

内定or动态 取得!?

Andyhon

2. 
   
3. (defun c:test ()
   
4.    (setq Dat
   
5.      '((0 . "INSERT")
   
6.        (100 . "AcDbEntity") (67 . 0) (410 . "Model")
   
7.        (8 . "0") (100 . "AcDbBlockReference")
   
8.        (2 . "Dummy")
   
9.        (10 0.0 0.0 0.0)
   
10.        (41 . 1.0) (42 . 1.0) (43 . 1.0)
    
11.        (50 . 0.0) (70 . 0) (71 . 0)
    
12.        (44 . 0.0) (45 . 0.0)
    
13.        (210 0.0 0.0 1.0)
    
14.       )
    
15.    )
    
16.    
    
17.    (setq blk
    
18.      (subst
    
19.        (assoc 2  (entget (car (entsel "\nSelect a Block選擇一個圖塊:" ))))
    
20.        (assoc 2 Dat)
    
21.        Dat
    
22.      )
    
23.    )
    
24.    
    
25.    (setq ss (ssget '((0 . "CIRCLE")))
    
26.          nn (sslength ss)
    
27.          nn (1- nn)
    
28.    )
    
29.    (while (setq ee (ssname ss nn))
    
30.      (setq Po (assoc 10 (entget ee))
    
31.            nn (1- nn)
    
32.      )
    
33.      (entmake (subst Po '(10 0.0 0.0 0.0) blk))
    
34.    )
    
35. )
    

<br /> (defun c:test ()<br />    (setq Dat<br />      '((0 . "INSERT") <br />        (100 . "AcDbEntity") (67 . 0) (410 . "Model") <br />        (8 . "0") (100 . "AcDbBlockReference") <br />        (2 . "Dummy") <br />        (10 0.0 0.0 0.0) <br />        (41 . 1.0) (42 . 1.0) (43 . 1.0) <br />        (50 . 0.0) (70 . 0) (71 . 0) <br />        (44 . 0.0) (45 . 0.0) <br />        (210 0.0 0.0 1.0)<br />       )<br />    )<br />    <br />    (setq blk<br />      (subst<br />        (assoc 2  (entget (car (entsel "\nSelect a Block選擇一個圖塊:" ))))<br />        (assoc 2 Dat)<br />        Dat<br />      )<br />    )<br />    <br />    (setq ss (ssget '((0 . "CIRCLE")))<br />          nn (sslength ss)<br />          nn (1- nn)<br />    )<br />    (while (setq ee (ssname ss nn))<br />      (setq Po (assoc 10 (entget ee))<br />            nn (1- nn)<br />      )<br />      (entmake (subst Po '(10 0.0 0.0 0.0) blk))<br />    )<br /> )<br />

Andyhon

基於 塊中心為基點 在插入點 程序已修訂

Andyhon

選了  圖A ==>"圓形L" ===>
(
(-1 . <Entity name: 7ef6d670>)
(0 . "INSERT")
(330 . <Entity name: 7ef6bcf8>)
(5 . "27E")
(100 . "AcDbEntity")
(67 . 0)
(410 . "Model")
(8 . "0")
(100 . "AcDbBlockReference")

(2 . "圓形L")    ; 圖塊名  <==此處為 圓形L

(10 5232.9 6318.07 0.0)    ; 位於圖A所在位置的 insert point ; 改了位置就變了

(41 . 1.0)
(42 . 1.0)
(43 . 1.0)
(50 . 0.0)
(70 . 0)
(71 . 0)
(44 . 0.0)
(45 . 0.0)
(210 0.0 0.0 1.0)
)