已知块转组，求组转块

zhuizhu

块转组的程序:

2. (defun b2g (blk / bname)
   
3.   (setq bname (cdr (assoc 2 (entget blk))))
   
4.   (command "._undo"
   
5.      "_begin"
   
6.      "._explode"
   
7.      blk
   
8.      "._-group"
   
9.      "_create"
   
10.      "*"
    
11.      (strcat "explode:" bname)
    
12.      (ssget "p")
    
13.      ""
    
14.      "._undo"
    
15.      "_end"
    
16.   )
    
17. )

(defun b2g (blk / bname)<br />   (setq bname (cdr (assoc 2 (entget blk))))<br />   (command "._undo"<br />      "_begin"<br />      "._explode"<br />      blk<br />      "._-group"<br />      "_create"<br />      "*"<br />      (strcat "explode:" bname)<br />      (ssget "p")<br />      ""<br />      "._undo"<br />      "_end"<br />   )<br /> )

求组转块函数

st788796

1. (defun c:tt (/ e el record grp grpname)
   
2.   (if
   
3.     (and (setq e (car (entsel "\nselect Entity in Group: ")))
   
4.   (setq el (entget e))
   
5.   (setq record
   
6.   (mapcar 'cdr
   
7.    (vl-remove-if-not '(lambda (x) (= (car x) 330)) el)
   
8.   )
   
9.   )
   
10.   (setq grp (vl-remove-if-not
    
11.        '(lambda (x) (= (cdr (assoc 0 (entget x))) "GROUP"))
    
12.        record
    
13.      )
    
14.   )
    
15.   (progn
    
16.     (princ "\nSelect Group ")
    
17.     (princ
    
18.       (setq grpname (mapcar 'vla-get-name
    
19.        (mapcar 'vlax-ename->vla-object grp)
    
20.       )
    
21.       )
    
22.     )
    
23.     t
    
24.   )
    
25.     )
    
26.      (progn
    
27.        (vl-cmdf ".block"
    
28.   (setq bn (rtos (* (getvar "cdate") 1e6) 2 0))
    
29.   (getvar "viewctr")
    
30.        )
    
31.        (foreach x grpname
    
32.   (vl-cmdf "G")
    
33.   (vl-cmdf x)
    
34.        )
    
35.        (vl-cmdf "")
    
36.        (vl-cmdf ".insert" bn (getvar "viewctr") 1. 1. 1. 0.)
    
37.      )
    
38.   )
    
39.   (princ)
    
40. )

(defun c:tt (/ e el record grp grpname)<br />   (if<br />     (and (setq e (car (entsel "\nselect Entity in Group: ")))<br />   (setq el (entget e))<br />   (setq record<br />   (mapcar 'cdr<br />    (vl-remove-if-not '(lambda (x) (= (car x) 330)) el)<br />   )<br />   )<br />   (setq grp (vl-remove-if-not<br />        '(lambda (x) (= (cdr (assoc 0 (entget x))) "GROUP"))<br />        record<br />      )<br />   )<br />   (progn<br />     (princ "\nSelect Group ")<br />     (princ<br />       (setq grpname (mapcar 'vla-get-name<br />        (mapcar 'vlax-ename->vla-object grp)<br />       )<br />       )<br />     )<br />     t<br />   )<br />     )<br />      (progn<br />        (vl-cmdf ".block"<br />   (setq bn (rtos (* (getvar "cdate") 1e6) 2 0))<br />   (getvar "viewctr")<br />        )<br />        (foreach x grpname<br />   (vl-cmdf "G")<br />   (vl-cmdf x)<br />        )<br />        (vl-cmdf "")<br />        (vl-cmdf ".insert" bn (getvar "viewctr") 1. 1. 1. 0.)<br />      )<br />   )<br />   (princ)<br /> )

炫翔

st788796 发表于 2013-10-25 12:07

测试了老兄的程序，貌似会移动位置

st788796

炫翔 发表于 2013-11-18 08:14
测试了老兄的程序，貌似会移动位置

正常，viewctr在操作时可能会有微小变化

yoyoho

感谢 st788796 分享程序,测试一下,真的有转动喔!
(50 . 0.0174533) ==> (50 . 0.0),就O.K.