单选图块在位图元

yshf

修改如下可出现不在原位置情况：

2. ;;; Nentsel
   
3. ;;; function : to nentsel a entity In situ
   
4. ;;; arg      : string to princ in command-line
   
5. ;;; return   : a list ( ename point is-of-block? )
   
6. ;;; Note     : if the ename is of a block , the routine copy a similar entity , so you must entdel it later
   
7. ;;; by GSLS(SS)
   
8. ;;;
   
9. (defun ss-Nentsel (msg / en en1 pt mat ins mat ent)
   
10.   (setq en (Nentsel msg))
    
11.   (if (= (length en) 4)
    
12.     (progn
    
13.       (setq en1        (car en)
    
14.             ang       (cdr (assoc 50 (entget (last en))))
    
15.             pt        (cadr en)
    
16.             mat        (caddr en)
    
17.             ins        (last mat)
    
18.             mat        (reverse (cdr (reverse mat)))
    
19.             mat        (append
    
20.                   (mapcar '(lambda (x y)
    
21.                              (append x (list y))
    
22.                            )
    
23.                           mat
    
24.                           ins
    
25.                   )
    
26.                   '((0. 0. 0. 1.))
    
27.                 )
    
28.             ent        (entget en1 '("*"))
    
29.             ent        (vl-remove (assoc -1 ent) ent)
    
30.             en1        (entmakex ent)
    
31.       )
    
32.       (if en1
    
33.         (progn
    
34.           (setq obj (vlax-ename->vla-object en1))
    
35.           (vla-TransformBy obj (vlax-tmatrix mat))
    
36.           (vla-Rotate Obj (vlax-3d-point ins) (* 2.0 ang))
    
37.           (setq en1 (vlax-vla-object->ename obj))
    
38.         )
    
39.       )
    
40.       (list en1 pt T)
    
41.     )
    
42.     (append en (list nil))
    
43.   )
    
44. )

;;; Nentsel<br /> ;;; function : to nentsel a entity In situ<br /> ;;; arg      : string to princ in command-line<br /> ;;; return   : a list ( ename point is-of-block? )<br /> ;;; Note     : if the ename is of a block , the routine copy a similar entity , so you must entdel it later <br /> ;;; by GSLS(SS)<br /> ;;;<br /> (defun ss-Nentsel (msg / en en1 pt mat ins mat ent)<br />   (setq en (Nentsel msg))<br />   (if (= (length en) 4)<br />     (progn<br />       (setq en1        (car en)<br />             ang       (cdr (assoc 50 (entget (last en))))<br />             pt        (cadr en)<br />             mat        (caddr en)<br />             ins        (last mat)<br />             mat        (reverse (cdr (reverse mat)))<br />             mat        (append<br />                   (mapcar '(lambda (x y)<br />                              (append x (list y))<br />                            )<br />                           mat<br />                           ins<br />                   )<br />                   '((0. 0. 0. 1.))<br />                 )<br />             ent        (entget en1 '("*"))<br />             ent        (vl-remove (assoc -1 ent) ent)<br />             en1        (entmakex ent)<br />       )<br />       (if en1<br />         (progn<br />           (setq obj (vlax-ename->vla-object en1))<br />           (vla-TransformBy obj (vlax-tmatrix mat))<br />           (vla-Rotate Obj (vlax-3d-point ins) (* 2.0 ang))<br />           (setq en1 (vlax-vla-object->ename obj))<br />         )<br />       )<br />       (list en1 pt T)<br />     )<br />     (append en (list nil))<br />   )<br /> )