单选图块在位图元

chlh_jd

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.             pt        (cadr en)
    
15.             mat        (caddr en)
    
16.             ins        (last mat)
    
17.             mat        (reverse (cdr (reverse mat)))
    
18.             mat        (append
    
19.                   (mapcar '(lambda (x y)
    
20.                              (append x (list y))
    
21.                            )
    
22.                           mat
    
23.                           ins
    
24.                   )
    
25.                   '((0. 0. 0. 1.))
    
26.                 )
    
27.             ent        (entget en1 '("*"))
    
28.             ent        (vl-remove (assoc -1 ent) ent)
    
29.             en1        (entmakex ent)
    
30.       )
    
31.       (if en1
    
32.         (progn
    
33.           (setq obj (vlax-ename->vla-object en1))
    
34.           (vla-TransformBy obj (vlax-tmatrix mat))
    
35.           (setq en1 (vlax-vla-object->ename obj))
    
36.         )
    
37.       )
    
38.       (list en1 pt T)
    
39.     )
    
40.     (append en (list nil))
    
41.   )
    
42. )

;;; 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 />             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 />           (setq en1 (vlax-vla-object->ename obj))<br />         )<br />       )<br />       (list en1 pt T)<br />     )<br />     (append en (list nil))<br />   )<br /> )

chlh_jd

应用举例:

zzl9105

未知命令呀，你这个是个什么功能？

xiaxiang

不错，一个很有用的函数，谢谢分享

LLXXZZ

对矩阵 转换一直不懂，用相关的资料学习一下，多谢分享。。。

teykmcqh

支持、学习、谢谢

crtrccrt

好程序
一个字
很好用

江湖远人

好东西收藏了，多谢楼主分享

vlisp2012

谁给解释一下该程序？

yshf

chlh_jd：你好！当块的旋转角不等于0度或180度时，ss-Nentsel 函数得到图元不在原位，还需要旋转2倍的块旋转角才到达原位。