[求助]十万火急,哪位高手帮下忙,文件加密成多重匿名块了(已解决)?

龙龙仔

8楼巳修改(程序只是勉強可用)

userzhl

龙龙仔,8楼的程序我试了,没有修改呀.

英雄无敌

修改了一下龙龙仔的程序，不过这种情况只适用于所多重块内的所有块都是同一个插入点，如果不同，则还是有可能能位置移动的

(defun C:TT ()
   (setq DOC (vla-get-activedocument (vlax-get-acad-object)))
   (setq E (nentselp "\nSelect block:"));;要點綠色文字
   (setq A (car E))
   (setq OBJ_A (vlax-ename->vla-object A))
   (setq B (vla-objectidtoobject DOC (vla-get-ownerid OBJ_A)))
   (entmake (list '(0 . "INSERT")
    '(100 . "AcDbBlockReference")
    (cons 2 (vla-get-name B))
    (assoc 10 (entget (last (last e))))
    '(41 . 1.0)
     )
   )
   (command "_.explode" (entlast))
   (command "_.erase" (last (last E)) "")
)

userzhl

楼上英雄无敌,你可以打开文件试试,还是移位.

samshs

以前见过有这样的代码 找到后再发上来

龙龙仔

3. ;;未詳細測試
4. (defun C:TT (/ A B C DOC)
5.   (setq DOC (vla-get-activedocument (vlax-get-acad-object)))
6.   (setq A (nentselp "\nSelect block:"))
7.   ;;要點綠色文字
8.   (setq C (entget (last (last A))))
9.   (setq B (vla-objectidtoobject
10.      DOC
11.      (vla-get-ownerid (vlax-ename->vla-object (car A)))
12.    )
13.   )
14.   (entmake (list '(0 . "INSERT")
15.    '(100 . "AcDbBlockReference")
16.    (cons 2 (vla-get-name B))
17.    (assoc 10 C)
18.    (assoc 50 C)
19.    (assoc 41 C)
20.     )
21.   )
22.   (command "_.explode" (entlast))
23.   (command "_.erase" (last (last A)) "")
24. )

;;未詳細測試 (defun C:TT (/ A B C DOC)   (setq DOC (vla-get-activedocument (vlax-get-acad-object)))   (setq A (nentselp "\nSelect block:"))   ;;要點綠色文字   (setq C (entget (last (last A))))   (setq B (vla-objectidtoobject      DOC      (vla-get-ownerid (vlax-ename->vla-object (car A)))    )   )   (entmake (list '(0 . "INSERT")    '(100 . "AcDbBlockReference")    (cons 2 (vla-get-name B))    (assoc 10 C)    (assoc 50 C)    (assoc 41 C)     )   )   (command "_.explode" (entlast))   (command "_.erase" (last (last A)) "") )

userzhl

谢谢龙龙仔

huxu823

感谢分享！！！！！

nijiea123

测试有用 就是差个批量的