[密技]：匿名图块转一般图块

雨箭风刀

hehe，这样也行：）

2. 
   
3. (defun c:reblk(/ blks ss n e nam namlst);----by 雨箭风刀 2006.2
   
4.   (setq BLKs (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))))
   
5.   (if (setq ss (ssget '((0 . "INSERT")(2 . "`*U*"))))
   
6.       (progn
   
7.         (repeat (setq n (sslength ss))
   
8.          (if (and (setq e (ssname ss (setq n (1- n))))
   
9.                  (wcmatch (setq nam (vla-get-name (vlax-ename->vla-object e))) "`**")
   
10.                  (not (member nam namlst)))
    
11.           (progn (setq namlst (cons nam namlst))
    
12.             (vla-put-name (vla-item blks nam) "U")
    
13.           )
    
14.          )
    
15.         )
    
16.        (vla-auditinfo (vla-get-activedocument (vlax-get-acad-object)) :vlax-true))
    
17.   )(princ)
    
18. )
    

<br /> (defun c:reblk(/ blks ss n e nam namlst);----by 雨箭风刀 2006.2 <br />   (setq BLKs (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))) <br />   (if (setq ss (ssget '((0 . "INSERT")(2 . "`*U*"))))<br />       (progn<br />         (repeat (setq n (sslength ss)) <br />          (if (and (setq e (ssname ss (setq n (1- n)))) <br />                  (wcmatch (setq nam (vla-get-name (vlax-ename->vla-object e))) "`**") <br />                  (not (member nam namlst))) <br />           (progn (setq namlst (cons nam namlst)) <br />             (vla-put-name (vla-item blks nam) "U") <br />           ) <br />          ) <br />         )<br />        (vla-auditinfo (vla-get-activedocument (vlax-get-acad-object)) :vlax-true))<br />   )(princ) <br /> )<br />

xyz518mm

最初由 LUCAS 发布
[B][CODE]
;;你要什么东东----,程序吗?我想那么简单就留给网友自己写!  8-)
;;匿名图块转一般图块
(defun C:NN_TO_N (/ A BLK OBJ)
  (setq OBJ (vlax-ename->vla-object (car (entsel))))
  (setq
    BLK        (vla-... [/B]

请教版主您这段 (vla-put-name BLK (setq A (rtos (* (getvar "CDATE") 1E8)))) 程序中的  1E8 所代表的意义为何
可以解说一下吗
谢谢

LUCAS

只是随意给个名称

doubao

学了不少新东西，多谢

paladin

本来编辑匿名块很是头痛。。。
谢谢这个方法。

fei_1

学习了。原来可以这样转

zwf9900

谢谢楼主的分享，但是能做得人性一点会比较好，例如自动命名！

lijuncad

长见

wzx21_ren

学习了~

hugesb

谢谢楼主了

hbgsw

想法还是很不错，这方法都有。福了。

cyt1

试了一下,不成功

predestinate

强悍，终于解决匿名块的问题了。

lisell

高人,太仰慕你们了

youdong

想学。没人领进门。