将选择的对象投影到指定的参考框中

小毛草

2. ;;;;;;;;;;;将选择的对象投影到指定的参考框中
   
3. (defun c:sxx (/ *error* des ent enx idx lst mat ocs sel src typ)
   
4. 
   
5.   ;; 错误处理函数
   
6.   (defun *error* (msg)
   
7.     (LM:endundo (LM:acdoc))
   
8.     (if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*"))
   
9.       (princ (strcat "\nError: " msg))
   
10.     )
    
11.     (princ)
    
12.   )
    
13. 
    
14.   ;; 开始事务
    
15.   (LM:startundo (LM:acdoc))
    
16. 
    
17.   ;; 主程序
    
18.   (if
    
19.     (and
    
20.       ;; 选择对象
    
21.       (setq sel
    
22.             (LM:ssget "\n请选择对象: "
    
23.                       '("_:L"
    
24.                         ((-4 . "<OR")
    
25.                          (-4 . "<AND")
    
26.                          (0 . "ARC,CIRCLE,ELLIPSE,LINE,*POLYLINE,POINT")
    
27.                          (-4 . "<NOT")
    
28.                          (-4 . "<AND")
    
29.                          (0 . "POLYLINE") (-4 . "&") (70 . 88)
    
30.                          (-4 . "AND>")
    
31.                          (-4 . "NOT>")
    
32.                          (-4 . "AND>")
    
33.                          (-4 . "<AND")
    
34.                          (0 . "SPLINE") (-4 . "&=") (70 . 8)
    
35.                          (-4 . "AND>")
    
36.                          (-4 . "OR>")
    
37.                         )
    
38.                        )
    
39.                       )
    
40.             )
    
41.       ;; 获取源参考框
    
42.       (setq src (2dprojection:getreferenceframe "\n请选择源对象的参考框: "))
    
43.       ;; 获取目标参考框
    
44.       (setq des (2dprojection:getreferenceframe "\n请选择投影的参考框: "))
    
45.       ;; 获取变换矩阵
    
46.       (setq mat (2dprojection:getmatrix src des))
    
47.       ;; 获取当前 UCS 的 Z 轴方向
    
48.       (setq ocs (trans '(0.0 0.0 1.0) 1 0 t))
    
49.     )
    
50.     ;; 遍历选择集
    
51.     (repeat (setq idx (sslength sel))
    
52.       (setq ent (ssname sel (setq idx (1- idx)))
    
53.             enx (entget ent)
    
54.             typ (cdr (assoc 0 enx))
    
55.       )
    
56.       (cond
    
57.         ;; 处理点对象
    
58.         ((= "POINT" typ)
    
59.          (entmake
    
60.            (vl-list*
    
61.             '(0 . "POINT")
    
62.             (cons 10 (trans (2dprojection:mappoint mat (trans (cdr (assoc 10 enx)) 0 ocs)) ocs 0))
    
63.             (LM:defaultprops enx)
    
64.            )
    
65.          )
    
66.         )
    
67.         ;; 处理直线对象
    
68.         ((= "LINE" typ)
    
69.          (entmake
    
70.            (vl-list*
    
71.             '(0 . "LINE")
    
72.             (cons 10 (trans (2dprojection:mappoint mat (trans (cdr (assoc 10 enx)) 0 ocs)) ocs 0))
    
73.             (cons 11 (trans (2dprojection:mappoint mat (trans (cdr (assoc 11 enx)) 0 ocs)) ocs 0))
    
74.             (LM:defaultprops enx)
    
75.            )
    
76.          )
    
77.         )
    
78.         ;; 处理多段线、圆弧、圆、椭圆等对象
    
79.         ((setq lst (LM:Entity->PointList ent))
    
80.          (entmake
    
81.            (append
    
82.             (list
    
83.              '(000 . "LWPOLYLINE")
    
84.              '(100 . "AcDbEntity")
    
85.              '(100 . "AcDbPolyline")
    
86.              (cons 90 (length lst))
    
87.              (if (vlax-curve-isclosed ent) '(70 . 1) '(70 . 0))
    
88.             )
    
89.             (LM:defaultprops enx)
    
90.             (mapcar '(lambda (p) (cons 10 (2dprojection:mappoint mat (trans p 0 ent)))) lst)
    
91.             (list (assoc 210 enx))
    
92.            )
    
93.          )
    
94.         )
    
95.       )
    
96.     )
    
97.   )
    
98. 
    
99.   ;; 结束事务
    
100.   (LM:endundo (LM:acdoc))
     
101.   (princ)
     
102. )

;;;;;;;;;;;将选择的对象投影到指定的参考框中<br /> (defun c:sxx (/ *error* des ent enx idx lst mat ocs sel src typ)<br /> <br />   ;; 错误处理函数<br />   (defun *error* (msg)<br />     (LM:endundo (LM:acdoc))<br />     (if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*"))<br />       (princ (strcat "\nError: " msg))<br />     )<br />     (princ)<br />   )<br /> <br />   ;; 开始事务<br />   (LM:startundo (LM:acdoc))<br /> <br />   ;; 主程序<br />   (if<br />     (and<br />       ;; 选择对象<br />       (setq sel<br />             (LM:ssget "\n请选择对象: "<br />                       '("_:L"<br />                         ((-4 . "<OR")<br />                          (-4 . "<AND")<br />                          (0 . "ARC,CIRCLE,ELLIPSE,LINE,*POLYLINE,POINT")<br />                          (-4 . "<NOT")<br />                          (-4 . "<AND")<br />                          (0 . "POLYLINE") (-4 . "&") (70 . 88)<br />                          (-4 . "AND>")<br />                          (-4 . "NOT>")<br />                          (-4 . "AND>")<br />                          (-4 . "<AND")<br />                          (0 . "SPLINE") (-4 . "&=") (70 . 8)<br />                          (-4 . "AND>")<br />                          (-4 . "OR>")<br />                         )<br />                        )<br />                       )<br />             )<br />       ;; 获取源参考框<br />       (setq src (2dprojection:getreferenceframe "\n请选择源对象的参考框: "))<br />       ;; 获取目标参考框<br />       (setq des (2dprojection:getreferenceframe "\n请选择投影的参考框: "))<br />       ;; 获取变换矩阵<br />       (setq mat (2dprojection:getmatrix src des))<br />       ;; 获取当前 UCS 的 Z 轴方向<br />       (setq ocs (trans '(0.0 0.0 1.0) 1 0 t))<br />     )<br />     ;; 遍历选择集<br />     (repeat (setq idx (sslength sel))<br />       (setq ent (ssname sel (setq idx (1- idx)))<br />             enx (entget ent)<br />             typ (cdr (assoc 0 enx))<br />       )<br />       (cond<br />         ;; 处理点对象<br />         ((= "POINT" typ)<br />          (entmake<br />            (vl-list*<br />             '(0 . "POINT")<br />             (cons 10 (trans (2dprojection:mappoint mat (trans (cdr (assoc 10 enx)) 0 ocs)) ocs 0))<br />             (LM:defaultprops enx)<br />            )<br />          )<br />         )<br />         ;; 处理直线对象<br />         ((= "LINE" typ)<br />          (entmake<br />            (vl-list*<br />             '(0 . "LINE")<br />             (cons 10 (trans (2dprojection:mappoint mat (trans (cdr (assoc 10 enx)) 0 ocs)) ocs 0))<br />             (cons 11 (trans (2dprojection:mappoint mat (trans (cdr (assoc 11 enx)) 0 ocs)) ocs 0))<br />             (LM:defaultprops enx)<br />            )<br />          )<br />         )<br />         ;; 处理多段线、圆弧、圆、椭圆等对象<br />         ((setq lst (LM:Entity->PointList ent))<br />          (entmake<br />            (append<br />             (list<br />              '(000 . "LWPOLYLINE")<br />              '(100 . "AcDbEntity")<br />              '(100 . "AcDbPolyline")<br />              (cons 90 (length lst))<br />              (if (vlax-curve-isclosed ent) '(70 . 1) '(70 . 0))<br />             )<br />             (LM:defaultprops enx)<br />             (mapcar '(lambda (p) (cons 10 (2dprojection:mappoint mat (trans p 0 ent)))) lst)<br />             (list (assoc 210 enx))<br />            )<br />          )<br />         )<br />       )<br />     )<br />   )<br /> <br />   ;; 结束事务<br />   (LM:endundo (LM:acdoc))<br />   (princ)<br /> )

[size=16.002px]将选择的对象投影到指定的参考框中,可以试下！

zmzk

缺函数，Error: no function definition: 2DPROJECTION:GETREFERENCEFRAME

寒潮大冬瓜

小毛草发出好多代码