求创建无名块

戏男

请问怎么框选所有的不同聚集的图元 创建不同的块 如图中 四处框选后形成四个块，

戏男

怎么会这样啊？无人问津 难道高手都跑了吗？

lucas_3333

论坛里很多, 自己多动动手哈

1. ;; 生成匿名块程序
   
2. (defun C:UNBLOCK (/ pt sset n slen name)
   
3.   (setq pt (getpoint "\n指定插入点: "))
   
4.   (entmake
   
5.     (list '(0 . "BLOCK") '(2 . "*U") '(70 . 1) (cons 10 pt))
   
6.   )
   
7.   (prompt "\n选择对象:")
   
8.   (setq sset (ssget))
   
9.   (setq n 0)
   
10.   (if sset
    
11.     (progn
    
12.       (setq slen (sslength sset))
    
13.       (repeat slen
    
14.         (entmake (cdr (entget (ssname sset n))))
    
15.         (setq n (+ n 1))
    
16.       );_repeat
    
17.       (setq name (entmake '((0 . "ENDBLK"))))
    
18.       (entmake (list '(0 . "INSERT")(cons 2 name)(cons 10 pt)))
    
19.       (command "erase" sset "")
    
20.     )
    
21.     (princ "\nNo Objects Selected!")
    
22.   );_if
    
23.   (princ)
    
24. );_defun

;; 生成匿名块程序<br /> (defun C:UNBLOCK (/ pt sset n slen name)<br />   (setq pt (getpoint "\n指定插入点: "))<br />   (entmake<br />     (list '(0 . "BLOCK") '(2 . "*U") '(70 . 1) (cons 10 pt))<br />   )<br />   (prompt "\n选择对象:")<br />   (setq sset (ssget))<br />   (setq n 0)<br />   (if sset<br />     (progn<br />       (setq slen (sslength sset))<br />       (repeat slen<br />         (entmake (cdr (entget (ssname sset n))))<br />         (setq n (+ n 1))<br />       );_repeat<br />       (setq name (entmake '((0 . "ENDBLK"))))<br />       (entmake (list '(0 . "INSERT")(cons 2 name)(cons 10 pt)))<br />       (command "erase" sset "")<br />     )<br />     (princ "\nNo Objects Selected!")<br />   );_if<br />   (princ)<br /> );_defun

戏男

不对 楼上的误解了我的意思

lucas_3333

请问怎么框选所有的不同聚集的图元 创建不同的块 如图中 四处框选后形成四个块，

你不是说四处框选后形成四个块 吗? 最好传个示例