[请教]：请教无名块的做法

cooldream

听摊主说，无名块是编程实现的，故在这里
请教无名块的做法？？

playboy

什么叫无名块

aeo

无名块和普通块是一摸一样的,就是名字要写成 "*??"

不过插入又要写程序了，不然插不了.

playboy

我真是孤陋寡闻我都用cad三年了竟然没有遇到过。那么这种块存在层和属性吗。是怎么形成的呢？？？？

Qlin

一个例子：创建匿名块的函数
其中，ss1为实体选择集，pt1为匿名块的插入点

2. 
   
3.   [FONT=courier new]
   
4. (defun QAEC_UBlock (ss1 pt1 / i n num)
   
5.   (if (and ss1 pt1)
   
6.    (progn
   
7.     (entmake (list '(0 . "BLOCK")'(2 . "*U")'(70 . 1)(cons 10 pt1)))
   
8.     (setq i (sslength ss1) n (- 1))
   
9.     (repeat i
   
10.       (entmake (cdr (entget (ssname ss1 (setq n (1+ n))))))
    
11.     ); repeat
    
12.     (setq num (entmake '((0 . "ENDBLK")) ))
    
13.     (command "erase" ss1 "")
    
14.     (entmake (list '(0 . "INSERT")(cons 2 num)(cons 10 pt1)))
    
15.    );progn
    
16.    nil
    
17.   );if
    
18. );end QAEC_UBlock
    
19.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun QAEC_UBlock (ss1 pt1 / i n num)<br />   (if (and ss1 pt1)<br />    (progn<br />     (entmake (list '(0 . "BLOCK")'(2 . "*U")'(70 . 1)(cons 10 pt1)))<br />     (setq i (sslength ss1) n (- 1))<br />     (repeat i<br />       (entmake (cdr (entget (ssname ss1 (setq n (1+ n))))))<br />     ); repeat<br />     (setq num (entmake '((0 . "ENDBLK")) ))<br />     (command "erase" ss1 "")<br />     (entmake (list '(0 . "INSERT")(cons 2 num)(cons 10 pt1)))<br />    );progn<br />    nil<br />   );if<br /> );end QAEC_UBlock<br />   [/FONT]<br />

Qlin

再转一个：
创建并插入匿名块

创建并插入匿名块
发信站: 福州大学庭芳苑BBS站 (2002年10月31日13:51:41 星期四), 转信

; ablock.lsp
;创建并插入匿名块，在文件 "HANDFILE.TXT"中用描述的名字存储它们的句柄。

(defun C:ABLOCK (/ ins_pt num ss1 i n)
   (if (/= (getvar "HANDLES") 1) (command "HANDLES" "ON"))
   (setq f1 (open "handfile.txt" "w"))
   (write-line "项目名称和处理文件" f1)
   (close f1)
   (setq f1 (open "handfile.txt" "a"))
   (setq more t)
   (while more
      (initget "eXit")
      (setq ins_pt nil)
      (setq ins_pt (getpoint "\n插入点/<eXit>： "))
      (if (or (= ins_pt nil) (= ins_pt "eXit"))
         (progn
            (setq more nil)
         ); progn
         (progn
            (entmake (list '(0 . "BLOCK")'(2 . "*U")'(70 . 1)(cons 10
ins_pt)))
            (prompt "\n选择实体")
            (setq ss1 (ssget) i (sslength ss1) n (- 1))
            (repeat i
               (entmake (cdr (entget (ssname ss1 (setq n (1+ n))))))
            ); repeat
            (setq num (entmake '((0 . "ENDBLK")) ))
            (entmake (list '(0 . "INSERT")(cons 2 num)(cons 10
ins_pt)))
            (command "move" "L" "" ins_pt pause "redraw")
            (setq hndl (cdr (assoc 5 (entget (entlast)))))
            (setq zzname (getstring "\n项目名称： "))
            (write-line (strcat zzname " " hndl) f1)
         ); progn
      ); if
   ); while
   (close f1)
   (princ)
); ablock

efan2000

最初由 playboy 发布
[B]我真是孤陋寡闻我都用cad三年了竟然没有遇到过。那么这种块存在层和属性吗。是怎么形成的呢？？？？ [/B]

其实它真正的名称应该叫匿名块。
呵呵，不是你没遇到过，而是你没注意到。在AutoCAD中，标注采用的是匿名块，填充采用的也是匿名块，除非你没有使用这两类实体。

LUCAS

最初由 Qlin 发布
[B]一个例子：创建匿名块的函数
其中，ss1为实体选择集，pt1为匿名块的插入点

[CODE]
  
(defun QAEC_UBlock (ss1 pt1 / i n num)
  (if (and ss1 pt1)
   (progn
    (entmake (list '(0 .... [/B]

程序缺点,对polyline及带属性图块会出错,
更简单的方法可以用正常的方式建图块,再改为匿名块

cooldream

最初由 Qlin 发布
[B]再转一个：
创建并插入匿名块
[QUOTE]
创建并插入匿名块
发信站: 福州大学庭芳苑BBS站 (2002年10月31日13:51:41 星期四), 转信

; ablock.lsp
;创建并插入匿名块，在文件 "HANDFILE.TXT"中用描述的名字存储它... [/B]

再问个问题，
1. 匿名块主要有什么用途，比其他的块有什么优势！
2. 你提供的程序中要我输入项目名称是什么意思？

dxqyz

最初由 LUCAS 发布
程序缺点,对polyline及带属性图块会出错,
更简单的方法可以用正常的方式建图块,再改为匿名块

怎么把正常方式建的图块改为匿名块？

LUCAS

查看
http://www.xdcad.net/forum/showt ... d=432808#post432808

cooldream

用了你上面的程序，把正常图块变匿名块可以，但反过来就不可以~