[求助]：新手求助怎样把刚才用Vlisp画的内容组成块﹖

stillwin

我用Vlisp画了3个圆和两条直线﹐现在想把它组成一个块﹐怎样才能组成这个块﹖多谢各位朋友的帮助﹗

xyp1964

生成GROUP：
[php]
(defun c:test()
  (setq ss1 (ssget "x"))
  ……
  ……
  (setq ss2 (ssget "x"))
  (command "select" ss2 "r" ss1 "")
  (setq ss (ssget "P"))
  (command "group" "c" "*" "" ss "")
  )[/php]

stillwin

多謝 xyp1964的回復.

狂刀

(defun c:test()
  (setq ss1 (ssget "x"))
  ……
  ……
  (setq ss2 (ssget "x"))
  (command "select" ss2 "r" ss1 "")
  (command "_copybase" "0,0" "p"  "" ".erase" "p" "")
  (command "_pasteblock" "0,0" )
  )

eachy

为什么不直接用Vl方法作块然后往块里加实体，最后将块 Insert 到Modelspace

lei_na521

(defun c:test()
  (setq ss1 (ssget "x"))
  ……
  ……
  (setq ss2 (ssget "x"))
  (command "select" ss2 "r" ss1 "")
  (setq ss (ssget "P"))
  (command "group" "c" "*" "" ss "")
  )
我是个新手,没太看明白,能不能详细解释一下呀!谢谢!

panzhongw

eachy能讲解一下用VL做块再插入的方法吗？
通常我是用ENTMAK生成块。

lei_na521

(defun c:test()
(setq ss1 (ssget "x"))
……
……
(setq ss2 (ssget "x"))
(command "select" ss2 "r" ss1 "")
(command "_copybase" "0,0" "p" "" ".erase" "p" "")
(command "_pasteblock" "0,0" )
)
块名怎么获取呀
能否自定义块名

eachy

最初由 panzhongw 发布
[B]eachy能讲解一下用VL做块再插入的方法吗？
通常我是用ENTMAK生成块。 [/B]

2. 
   
3. (defun c:tt (/ doc ms blks blkdef)
   
4.   (setq        ms   (vlax-get-property
   
5.                (setq doc (vlax-get-property
   
6.                            (vlax-get-acad-object)
   
7.                            'activedocument
   
8.                          )
   
9.                )
   
10.                'modelspace
    
11.              )
    
12.         blks (vlax-get-property doc 'blocks)
    
13.   )
    
14.   (setq        blkdef (vla-add blks (vlax-3d-point '(0. 0. 0.)) "*U"))
    
15.   (vla-addline
    
16.     blkdef
    
17.     (vlax-3d-point '(0. 0. 0.))
    
18.     (vlax-3d-point '(1. 1. 0.))
    
19.   )
    
20.   (vla-addcircle blkdef (vlax-3d-point '(0. 0. 0.)) 2.)
    
21.   (vla-insertblock
    
22.     ms
    
23.     (vlax-3d-point (getvar "viewctr"))
    
24.     (vla-get-name blkdef)
    
25.     1.
    
26.     1.
    
27.     1.
    
28.     0.
    
29.   )
    
30.   (princ)
    
31. )

<br /> (defun c:tt (/ doc ms blks blkdef)<br />   (setq        ms   (vlax-get-property<br />                (setq doc (vlax-get-property<br />                            (vlax-get-acad-object)<br />                            'activedocument<br />                          )<br />                )<br />                'modelspace<br />              )<br />         blks (vlax-get-property doc 'blocks)<br />   )<br />   (setq        blkdef (vla-add blks (vlax-3d-point '(0. 0. 0.)) "*U"))<br />   (vla-addline<br />     blkdef<br />     (vlax-3d-point '(0. 0. 0.))<br />     (vlax-3d-point '(1. 1. 0.))<br />   )<br />   (vla-addcircle blkdef (vlax-3d-point '(0. 0. 0.)) 2.)<br />   (vla-insertblock<br />     ms<br />     (vlax-3d-point (getvar "viewctr"))<br />     (vla-get-name blkdef)<br />     1.<br />     1.<br />     1.<br />     0.<br />   )<br />   (princ)<br /> )

panzhongw

谢谢EACHY！

stillwin

多謝各位﹐是個新手看不太明白﹐慢慢摸索就會明白了

dandee

方法就几种group,和vl的已经说了，这里提供你alisp的方法：（很实用）

其实用autolisp做块，代码更简单，如果你对dxf有多了解的话，就可以随意设置块里的东西，如层，颜色。。等等

(entmake (list '(0 . "BLOCK") '(2 . "*U") '(70 . 1)(cons 10  块的插入点)))

(entmake (list '(0 . "CIRCLE")  (cons 10 圆心)(cons 40  圆半径)   ))           ;需要画的圆
(entmake (list '(0 . "line") (cons 10 线A的起点)(cons 11 线A的终点 )))      ;需要画的线A
(entmake (list '(0 . "line") (cons 10 线B的起点)(cons 11 线B的起点 )))      ;需要画的线B

(setq blk (entmake '((0 . "ENDBLK"))) ;;;这里做成了无名block

(entmake (list (cons 0 "INSERT")(cons 2 blk)(cons 10  块的插入点)(cons 50 块的插入的角度)))
;;做成了插入块。

如果想换成有名字的块 '(2 . "*U") 换成(cons 2 块名)

狂刀

ｖｌａ方法如何将选集实体放入块定义里面？

eachy

最初由 狂刀 发布
[B]ｖｌａ方法如何将选集实体放入块定义里面？ [/B]

用vla-copyobjects

silen618

谢谢12楼主指点，方才弄明白为什么不能有效创建有名块。

还需更改组码(70. 0)。