[求助]：请问如何将line,pline物体转化为trace物体?

wee

请问如何将line,pline物体转化为trace物体?

秋枫

需编程解决

zhynt

既然看到了，就顺便问一下，trace实体和solid实体很相似，到底哪一种好呢？

wee

这我也想知道，不知哪里有编程序的介绍？

mmmm

2. 
   
3. ;==================================================================================================
   
4. ;函  数: C:OAS_Object_Line->ProtectedObject
   
5. ;功  能: 将直线转换成其他类型的以保护数据（同时标记实体以方便恢复）
   
6. ;格  式: (C:OAS_Object_Line->ProtectedObject 直线实体名[ENAME]
   
7. ;                                            转换模式[字符串"3DFACE"/"TRACE"/"SOLID"]
   
8. ;                                            转换不准确误差率[实数]
   
9. ;        )
   
10. ;返回值: [成功]: 新生成的实体实体名[ENAME]
    
11. ;        [失败]: NIL
    
12. ;示  例: (C:OAS_Object_Line->ProtectedObject (car (entsel)) "TRACE" 1000)
    
13. ;      =><Entity name: xxxxxxxx>
    
14. ;==================================================================================================
    
15. (Defun C:OAS_Object_Line->ProtectedObject (Entity Mode         Ratio        /
    
16.                                            E08          E10         E11        E62
    
17.                                            Dist          3DF10         3DF11        3DF12
    
18.                                            3DF13  Data         Dist        Rtn
    
19.                                           )
    
20.   (if (= (type Entity) 'ENAME)
    
21.     (setq Entity (entget Entity))
    
22.   )
    
23.   (if (null (member Mode (list "3DFACE" "TRACE" "SOLID")))
    
24.     (setq Mode "3DFACE")
    
25.   )
    
26.   (if (= (type Ratio) 'STR)
    
27.     (setq Ratio (read Ratio))
    
28.   )
    
29.   (if (> Ratio 1.0)
    
30.     (setq Ratio (/ 1.0 Ratio))
    
31.   )
    
32.   (setq        E08  (cdr (assoc 8 Entity))
    
33.         E10  (cdr (assoc 10 Entity))
    
34.         E11  (cdr (assoc 11 Entity))
    
35.         E62  (cdr (assoc 62 Entity))
    
36.         Dist (distance E10 E11)
    
37.   )
    
38.   (if (/= Mode "3DFACE")
    
39.     (setq E10 (polar E10 (angle E10 E11) (* Ratio Dist))
    
40.           E11 (polar E11 (angle E11 E10) (* Ratio Dist))
    
41.     )
    
42.   )
    
43.   (setq        Dist  (* Ratio Ratio (distance E10 E11))
    
44.         3DF10 (polar E10 (+ (angle E10 E11) (* 0.5 pi)) Dist)
    
45.         3DF11 (polar E10 (- (angle E10 E11) (* 0.5 pi)) Dist)
    
46.         3DF12 (polar E11 (+ (angle E10 E11) (* 0.5 pi)) Dist)
    
47.         3DF13 (polar E11 (- (angle E10 E11) (* 0.5 pi)) Dist)
    
48.   )
    
49.   (if (null E62)
    
50.     (setq E62 (cdr (assoc 62 (tblsearch "Layer" E08))))
    
51.   )
    
52.   (setq        Data (list (cons 0 Mode)
    
53.                    (cons 8 "0")
    
54.                    (cons 10 3DF10)
    
55.                    (cons 11 3DF11)
    
56.                    (cons 12 3DF12)
    
57.                    (cons 13 3DF13)
    
58.                    (cons 62 E62)
    
59.              )
    
60.   )
    
61.   (if (= Mode "3DFACE")
    
62.     (setq Data (append Data (list (cons 70 5))))
    
63.   )
    
64.   (if (setq Rtn (entmake Data))
    
65.     (progn
    
66.       (setq Rtn (entlast))
    
67.       (vlax-ldata-put Rtn "OASis-Protect-Layer" E08)
    
68.       (vlax-ldata-put Rtn "OASis-Protect-Ratio" (rtos Ratio 2 8))      
    
69.       (entdel (cdr (assoc -1 Entity)))
    
70.     )
    
71.   )
    
72.   Rtn
    
73. )
    

<br /> ;==================================================================================================<br /> ;函  数: C:OAS_Object_Line->ProtectedObject<br /> ;功  能: 将直线转换成其他类型的以保护数据（同时标记实体以方便恢复）<br /> ;格  式: (C:OAS_Object_Line->ProtectedObject 直线实体名[ENAME]<br /> ;                                            转换模式[字符串"3DFACE"/"TRACE"/"SOLID"]<br /> ;                                            转换不准确误差率[实数]<br /> ;        )<br /> ;返回值: [成功]: 新生成的实体实体名[ENAME]<br /> ;        [失败]: NIL<br /> ;示  例: (C:OAS_Object_Line->ProtectedObject (car (entsel)) "TRACE" 1000)<br /> ;      =><Entity name: xxxxxxxx><br /> ;==================================================================================================<br /> (Defun C:OAS_Object_Line->ProtectedObject (Entity Mode         Ratio        /<br />                                            E08          E10         E11        E62<br />                                            Dist          3DF10         3DF11        3DF12<br />                                            3DF13  Data         Dist        Rtn<br />                                           )<br />   (if (= (type Entity) 'ENAME)<br />     (setq Entity (entget Entity))<br />   )<br />   (if (null (member Mode (list "3DFACE" "TRACE" "SOLID")))<br />     (setq Mode "3DFACE")<br />   )<br />   (if (= (type Ratio) 'STR)<br />     (setq Ratio (read Ratio))<br />   )<br />   (if (> Ratio 1.0)<br />     (setq Ratio (/ 1.0 Ratio))<br />   )<br />   (setq        E08  (cdr (assoc 8 Entity))<br />         E10  (cdr (assoc 10 Entity))<br />         E11  (cdr (assoc 11 Entity))<br />         E62  (cdr (assoc 62 Entity))<br />         Dist (distance E10 E11)<br />   )<br />   (if (/= Mode "3DFACE")<br />     (setq E10 (polar E10 (angle E10 E11) (* Ratio Dist))<br />           E11 (polar E11 (angle E11 E10) (* Ratio Dist))<br />     )<br />   )<br />   (setq        Dist  (* Ratio Ratio (distance E10 E11))<br />         3DF10 (polar E10 (+ (angle E10 E11) (* 0.5 pi)) Dist)<br />         3DF11 (polar E10 (- (angle E10 E11) (* 0.5 pi)) Dist)<br />         3DF12 (polar E11 (+ (angle E10 E11) (* 0.5 pi)) Dist)<br />         3DF13 (polar E11 (- (angle E10 E11) (* 0.5 pi)) Dist)<br />   )<br />   (if (null E62)<br />     (setq E62 (cdr (assoc 62 (tblsearch "Layer" E08))))<br />   )<br />   (setq        Data (list (cons 0 Mode)<br />                    (cons 8 "0")<br />                    (cons 10 3DF10)<br />                    (cons 11 3DF11)<br />                    (cons 12 3DF12)<br />                    (cons 13 3DF13)<br />                    (cons 62 E62)<br />              )<br />   )<br />   (if (= Mode "3DFACE")<br />     (setq Data (append Data (list (cons 70 5))))<br />   )<br />   (if (setq Rtn (entmake Data))<br />     (progn<br />       (setq Rtn (entlast))<br />       (vlax-ldata-put Rtn "OASis-Protect-Layer" E08)<br />       (vlax-ldata-put Rtn "OASis-Protect-Ratio" (rtos Ratio 2 8))      <br />       (entdel (cdr (assoc -1 Entity)))<br />     )<br />   )<br />   Rtn<br /> )<br />