之前看到过以块内以某条直线水平转正的LSP，现在翻了二天还没找到。

hooboxu

有知道的朋友给个链接好吗？
谢谢了

Gu_xl

需加载XLRX_API！

1. (defun c:tt ()
   
2.   (while (setq e (nentselp))
   
3.     (if        (> (length e) 2)
   
4.       (progn
   
5.         (setq pt   (trans (cadr e) 1 0)
   
6.               m           (caddr e) ;_ 转换矩阵
   
7.               invM (XLRX-Mat-Inverse m) ;_ 逆矩阵
   
8.               e1   (car e) ;_ 选择的子对象
   
9.               e           (last (last e)) ;_ 选择的图块
   
10.                    ;;m0 (XLRX-Mat-blockTransform2Def e) ;_ 图块引用->图块定义转换矩阵
    
11.                    ;;m1 (XLRX-Mat-blockTransform2Ref e) ;_ 图块定义->图块引用转换矩阵
    
12.         )
    
13.         (if (member (xlrx-get e1 "isA")
    
14.                     '("AcDbLine"          "AcDbPolyline"
    
15.                       "AcDb2dPolyline"          "AcDb3dPolyline"
    
16.                       "AcDbCircle"          "AcDbArc"
    
17.                       "AcDbEllipse"          "AcDbSpline"
    
18.                      )
    
19.             )
    
20.           (progn
    
21.             (setq pt (XLRX-Mat-MxP invM pt)) ;_ 点转换到块定义
    
22.             (setq pt (xlrx-Curve-getClosestPointTo e1 pt))
    
23.             (setq vec (xlrx-Curve-getFirstDeriv e1 pt)
    
24.                   pt1 (mapcar '+ pt vec)
    
25.             )
    
26.             (setq pt  (XLRX-Mat-MxP m pt)
    
27.                   pt1 (XLRX-Mat-MxP m pt1)
    
28.             )
    
29.             (setq ang (angle pt pt1))
    
30.             (cond ((>= (/ pi 2) ang 0) (setq ang (- ang)))
    
31.                   ((>= (* pi 1.5) ang (/ pi 2)) (setq ang (- pi ang)))
    
32.                   ((>= (* pi 2) ang (* pi 1.5)) (setq ang (- (* pi 2) ang))
    
33.                   )
    
34.             )
    
35.             (setq m (XLRX-Mat-Rotation pt ang)) ;_ 构建旋转矩阵
    
36.             (XLRX-TRANSFORMBY e m)
    
37.           )
    
38.         )
    
39.       )
    
40.     )
    
41.   )
    
42. )

(defun c:tt ()<br />   (while (setq e (nentselp))<br />     (if        (> (length e) 2)<br />       (progn<br />         (setq pt   (trans (cadr e) 1 0)<br />               m           (caddr e) ;_ 转换矩阵<br />               invM (XLRX-Mat-Inverse m) ;_ 逆矩阵<br />               e1   (car e) ;_ 选择的子对象<br />               e           (last (last e)) ;_ 选择的图块<br />                    ;;m0 (XLRX-Mat-blockTransform2Def e) ;_ 图块引用->图块定义转换矩阵<br />                    ;;m1 (XLRX-Mat-blockTransform2Ref e) ;_ 图块定义->图块引用转换矩阵<br />         )<br />         (if (member (xlrx-get e1 "isA")<br />                     '("AcDbLine"          "AcDbPolyline"<br />                       "AcDb2dPolyline"          "AcDb3dPolyline"<br />                       "AcDbCircle"          "AcDbArc"<br />                       "AcDbEllipse"          "AcDbSpline"<br />                      )<br />             )<br />           (progn<br />             (setq pt (XLRX-Mat-MxP invM pt)) ;_ 点转换到块定义<br />             (setq pt (xlrx-Curve-getClosestPointTo e1 pt))<br />             (setq vec (xlrx-Curve-getFirstDeriv e1 pt)<br />                   pt1 (mapcar '+ pt vec)<br />             )<br />             (setq pt  (XLRX-Mat-MxP m pt)<br />                   pt1 (XLRX-Mat-MxP m pt1)<br />             )<br />             (setq ang (angle pt pt1))<br />             (cond ((>= (/ pi 2) ang 0) (setq ang (- ang)))<br />                   ((>= (* pi 1.5) ang (/ pi 2)) (setq ang (- pi ang)))<br />                   ((>= (* pi 2) ang (* pi 1.5)) (setq ang (- (* pi 2) ang))<br />                   )<br />             )<br />             (setq m (XLRX-Mat-Rotation pt ang)) ;_ 构建旋转矩阵<br />             (XLRX-TRANSFORMBY e m)<br />           )<br />         )<br />       )<br />     )<br />   )<br /> )

hooboxu

感谢G版，新年好，回去试试

hooboxu

G版没有2015的吗