請問如何用entmake建立一個minsert物件

pizg

AutoCAD 的 minsert 指令可以插入多重圖塊,
那麼請問如何用AutoLISP 的 entmake 來建立一個匿名的 minsert 物件?

vormittag

本质还是"insert", 部分组码值不一样而已。看dxf帮助。

pizg

vormittag 发表于 2013-6-19 18:35
本质还是"insert", 部分组码值不一样而已。看dxf帮助。

小弟頭腦不好,
可否請大大舉個實例?

Gu_xl

pizg 发表于 2013-6-19 19:05
小弟頭腦不好,
可否請大大舉個實例?

1. (entmake (list
   
2.              '(0 . "INSERT")
   
3.              '(100 . "AcDbEntity")
   
4.              (cons 2 (getstring "\n输入块名称:"))
   
5.              '(100 . "AcDbMInsertBlock")
   
6.              (cons 10 (getpoint "\n插入点:"))
   
7.              '(41 . 1.0)             ;XScale
   
8.              '(42 . 1.0)              ;YScale
   
9.              '(43 . 1.0)              ;ZScale
   
10.              '(50 . 0.0)              ;Rotate
    
11.              '(70 . 1)                 ;Column count (optional; default = 1)
    
12.              '(71 . 1)                 ;Row count (optional; default = 1)
    
13.              '(44 . 0.0)               ;Column spacing (optional; default = 0)
    
14.              '(45 . 0.0)               ;Row spacing (optional; default = 0)
    
15.              ) ;_ 结束list
    
16.            )

(entmake (list<br />              '(0 . "INSERT")<br />              '(100 . "AcDbEntity")<br />              (cons 2 (getstring "\n输入块名称:"))<br />              '(100 . "AcDbMInsertBlock")<br />              (cons 10 (getpoint "\n插入点:"))<br />              '(41 . 1.0)             ;XScale<br />              '(42 . 1.0)              ;YScale<br />              '(43 . 1.0)              ;ZScale<br />              '(50 . 0.0)              ;Rotate<br />              '(70 . 1)                 ;Column count (optional; default = 1)<br />              '(71 . 1)                 ;Row count (optional; default = 1)<br />              '(44 . 0.0)               ;Column spacing (optional; default = 0)<br />              '(45 . 0.0)               ;Row spacing (optional; default = 0)<br />              ) ;_ 结束list<br />            )

pizg

Gu_xl 发表于 2013-6-19 19:41

感謝版主的回覆.

我想做一個匿名的Minsert, 代碼如下:

2. 
   
3. <span style="line-height: 1.5;">;;建立匿名圖塊</span>
   
4.       (EntMake '((0 . "BLOCK")(2 . "*U")(100 . "AcDbBlockReference")(70 . 3)(10 0 0 0)))
   
5.       (EntMake (list (cons 0 "LINE") (cons 100 "AcDbEntity") (cons 10 '(0 0 0)) (cons 11 '(10 10 0))))
   
6.       (setq blkn (EntMake '((0 . "ENDBLK"))))
   
7.       ;;多重插入
   
8.       (entmake
   
9.         (list        (cons 0 "INSERT")
   
10.                 (cons 100 "AcDbMInsertBlock")
    
11.                 (cons 70 2)
    
12.                 (cons 71 2)
    
13.                 (cons 2 blkn)
    
14.                 (cons 10 0 0 0)
    
15.         )
    
16.       )      
    

<br /> <span style="line-height: 1.5;">;;建立匿名圖塊</span><br />       (EntMake '((0 . "BLOCK")(2 . "*U")(100 . "AcDbBlockReference")(70 . 3)(10 0 0 0)))<br />       (EntMake (list (cons 0 "LINE") (cons 100 "AcDbEntity") (cons 10 '(0 0 0)) (cons 11 '(10 10 0))))<br />       (setq blkn (EntMake '((0 . "ENDBLK"))))<br />       ;;多重插入<br />       (entmake<br />         (list        (cons 0 "INSERT")<br />                 (cons 100 "AcDbMInsertBlock")<br />                 (cons 70 2)<br />                 (cons 71 2)<br />                 (cons 2 blkn)<br />                 (cons 10 0 0 0)<br />         )<br />       )      <br />

以上代碼是可行的.
但如果那條'(0 0 0) '(10 10 0)的線是既存的物件,
請問如何改寫下列代碼

2. 
   
3.       (setq ss (ssget)) ;;此處選到物件
   
4.       ;;建立匿名圖塊
   
5.       (EntMake '((0 . "BLOCK")(2 . "*U")(100 . "AcDbBlockReference")(70 . 3)(10 0 0 0)))
   
6.       ;;將 ss 置入此處
   
7.       (setq blkn (EntMake '((0 . "ENDBLK"))))
   
8.       ;;多重插入
   
9.       (entmake
   
10.         (list        (cons 0 "INSERT")
    
11.                 (cons 100 "AcDbMInsertBlock")
    
12.                 (cons 70 2)
    
13.                 (cons 71 2)
    
14.                 (cons 2 blkn)
    
15.                 (cons 10 0 0 0)
    
16.         )
    
17.       )      
    

<br />       (setq ss (ssget)) ;;此處選到物件<br />       ;;建立匿名圖塊<br />       (EntMake '((0 . "BLOCK")(2 . "*U")(100 . "AcDbBlockReference")(70 . 3)(10 0 0 0)))<br />       ;;將 ss 置入此處<br />       (setq blkn (EntMake '((0 . "ENDBLK"))))<br />       ;;多重插入<br />       (entmake<br />         (list        (cons 0 "INSERT")<br />                 (cons 100 "AcDbMInsertBlock")<br />                 (cons 70 2)<br />                 (cons 71 2)<br />                 (cons 2 blkn)<br />                 (cons 10 0 0 0)<br />         )<br />       )      <br />