求助大佬

787116960

新建块  生成*U块名字的lisp程序，因为另外一个程序只识别*U+数字的块   

787116960

freedom_ice 发表于 2023-8-4 12:16
选择集生成匿名块

大哥  帮我弄个可以运行的  函数我不会用啊

kozmosovia

找个代码改一下块名就行

lxl217114

搜索【匿名块】，很多工具

787116960

kozmosovia 发表于 2023-8-4 11:03
找个代码改一下块名就行

需要新建块

freedom_ice

选择集生成匿名块

2. ( defun ssNblock ( ss insertpt / InsPt number blocklist blk index SelectionSetObjs )
   
3.           ( vl-load-com )  
   
4.         (setq AcadObject   ( vlax-get-acad-object )  
   
5.               AcadDocument ( vla-get-ActiveDocument AcadObject )  
   
6.               ModelSpace   ( vla-get-ModelSpace AcadDocument )
   
7.         )         
   
8.         ( setq InsPt ( vlax-3d-point insertpt ) )              ;转化为ActiveX的点
   
9.   ( setq number ( sslength ss ) )
   
10.   ( setq blocklist ( vla-get-blocks AcadDocument ) )
    
11.   ( setq blk ( vla-add blocklist InsPt "*U" ) )          ;定义匿名图块
    
12.   ( setq SelectionSetObjs ( vlax-make-safearray vlax-vbobject ( cons 0 ( - number 1 ) ) ) )
    
13.   ( defun item ( ss index )
    
14.     ( vlax-ename->vla-object ( ssname ss index ) )
    
15.    )
    
16.   ( setq index 0 )
    
17.   ( repeat number
    
18.     ( vlax-safearray-put-element SelectionSetObjs index ( item ss index ) )
    
19.     ( setq index ( 1+ index ) )
    
20.    )                                                  ;把选择集的物体加入到匿名图块
    
21.   ( vla-copyobjects AcadDocument SelectionSetObjs blk );采用copyobjects方式
    
22.         (  setq ename (  vlax-vla-object->ename blk  ) )
    
23.         (  princ (  entget ename  )  )
    
24.   ( vla-insertblock ModelSpace InsPt ( vlax-get-property blk 'name ) 1 1 1 0 );插入图块
    
25. )

( defun ssNblock ( ss insertpt / InsPt number blocklist blk index SelectionSetObjs )<br />           ( vl-load-com )  <br />         (setq AcadObject   ( vlax-get-acad-object )  <br />               AcadDocument ( vla-get-ActiveDocument AcadObject )  <br />               ModelSpace   ( vla-get-ModelSpace AcadDocument ) <br />         )         <br />         ( setq InsPt ( vlax-3d-point insertpt ) )              ;转化为ActiveX的点<br />   ( setq number ( sslength ss ) )<br />   ( setq blocklist ( vla-get-blocks AcadDocument ) )<br />   ( setq blk ( vla-add blocklist InsPt "*U" ) )          ;定义匿名图块<br />   ( setq SelectionSetObjs ( vlax-make-safearray vlax-vbobject ( cons 0 ( - number 1 ) ) ) )<br />   ( defun item ( ss index )<br />     ( vlax-ename->vla-object ( ssname ss index ) )<br />    )<br />   ( setq index 0 )<br />   ( repeat number<br />     ( vlax-safearray-put-element SelectionSetObjs index ( item ss index ) )<br />     ( setq index ( 1+ index ) )<br />    )                                                  ;把选择集的物体加入到匿名图块<br />   ( vla-copyobjects AcadDocument SelectionSetObjs blk );采用copyobjects方式<br />         (  setq ename (  vlax-vla-object->ename blk  ) )<br />         (  princ (  entget ename  )  )<br />   ( vla-insertblock ModelSpace InsPt ( vlax-get-property blk 'name ) 1 1 1 0 );插入图块<br /> )

jun353835273

留个脚印


直接可以用的

kozmosovia

787116960 发表于 2023-8-4 12:08
需要新建块

先建个有名的，再多一步改一下名字不就是了。直接新建匿名的，代码还复杂。

787116960

kozmosovia 发表于 2023-8-4 15:30
先建个有名的，再多一步改一下名字不就是了。直接新建匿名的，代码还复杂。

http://bbs.mjtd.com/thread-188302-1-1.html?_dsign=62803cfc  帮我看看这个  修改下插入点