如何将轻量多段线转为二维多段线

changyiran

我有一副图，目前已经有了轻量多段线即lwpolyline，现在我想把他转成二维多段线，即polyline，并且在转换后的多段线的各顶点图元中添加扩展属性，请高手们帮帮忙啊！

changyiran

各位版主大人出来看看啊，首先肯定是能实现的。南方cass就已经实现了。并且他们将轻量多段线变为二维多段线'后连句柄都没改变。实在太厉害了。

newbuser

changyiran 发表于 2015-1-6 20:34
各位版主大人出来看看啊，首先肯定是能实现的。南方cass就已经实现了。并且他们将轻量多段线变为二维多段线 ...

给你个获取三维多段线顶点坐标的程序。然后你再删除三维多段线并且生成二维多段线（自己加上扩展属性）

2. ;;;---------------------------------------------
   
3. ;;; No.23-4-2 获取 POLYLINE 对象所有顶点坐标   
   
4. ;;;---------------------------------------------
   
5. (Defun ayGetPolyLineVTX (LwPolyEntName / entData1 entName1 pel ptp wpl wpll plp par ct
   
6.                                                                                                                      pen rl pn clk pt al gx bj np xc gg rr cp retList)
   
7.         (setq entName1 LwPolyEntName)
   
8.         (setq retList nil)
   
9.         (setq entData1 (entget entName1))
   
10.         (if (= "POLYLINE" (Cdr (Assoc 0 entData1)))
    
11.                 (progn
    
12.                         (setq pel  entData1             ;取出对象表.
    
13.                               ptp  (Cdr (Assoc 70 pel)) ;取出结束片段型.
    
14.                               wpl  '()                  ;自建的点位数表.
    
15.                                                 wpll '()
    
16.                                                 entName1 (EntNext entName1)
    
17.                                                 pen entName1
    
18.                         );end_setq
    
19.                         (While (/= "SEQEND" (Cdr (Assoc 0 (entget pen))));如果没束.
    
20.                                 (setq pel (entget pen)               ;取得顶点对象数据表.
    
21.                                 plp (Cdr (Assoc 10 pel))       ;取出控制点点位.
    
22.                                 par (Cdr (Assoc 42 pel))       ;取出弓弦比.
    
23.                                 wpl (Cons (List plp par) wpl)  ;将数据加到WPL表中.
    
24.                                                         wpll (cons plp wpll)
    
25.                                 );end_setq
    
26.                           (setq pen (EntNext pen));搜索下一个对象.
    
27.                         );end_while
    
28.                         (setq wpll (Reverse wpll))
    
29. 
    
30.                         ;以下代码暂时没有用！
    
31.                         (setq ct (If (= 0 (Cadr (Car wpl))) "直线片段封闭" "弧片段封闭"))
    
32.                         (setq wpl (Cons (Last wpl) wpl);加入封闭点.
    
33.                                     wpl (Reverse wpl)        ;整理WPL表.
    
34.                               rl (Length wpl)
    
35.                               pn 0
    
36.                         );end_setq
    
37.                         (setq clk (If (Or (= 0 ptp) (= 128 ptp)) "开口" "封闭"))  
    
38.                         (Repeat (1- rl)          ;逐点分析.
    
39.                           (setq al (Nth pn wpl)  ;取出点数据表.
    
40.                                 pt (Car al)      ;取出点位.
    
41.                           );end_setq
    
42.                           (If (And (/= 0.0 (Cadr al)) (Nth pn wpl)) ;如果是断.
    
43.                                    (Progn (setq gx (Cadr al)               ;取出弓比.
    
44.                                          bj (* (ATAN (ABS gx)) 4)   ;计算包角.
    
45.                                          np (Car (Nth (1+ pn) wpl)) ;取出下一点位.
    
46.                                          xc (* 0.5 (Distance pt np));半弦长计算.
    
47.                                          gg (* gx xc)               ;弓高计算.
    
48.                                          rr (/ (+ (* xc xc)(* gg gg)) (* 2 gg))
    
49.                                     );end_setq  
    
50.                                     (setq cp (Polar pt (setq pa (Angle pt np)) xc)  
    
51.                                           cp (Polar cp (+ pa (* 0.5 PI)) (- rr gg))
    
52.                                     );end_setq
    
53.                             );end_progn
    
54.                           );end_if
    
55.                     (setq pn (1+ pn))
    
56.                         );end_repeat
    
57.                        
    
58.                         (setq retList wpll)
    
59.                 );end_progn
    
60.         );end_if
    
61. );end_defun
    

;;;---------------------------------------------<br /> ;;; No.23-4-2 获取 POLYLINE 对象所有顶点坐标    <br /> ;;;---------------------------------------------<br /> (Defun ayGetPolyLineVTX (LwPolyEntName / entData1 entName1 pel ptp wpl wpll plp par ct<br />                                                                                                                      pen rl pn clk pt al gx bj np xc gg rr cp retList)<br />         (setq entName1 LwPolyEntName)<br />         (setq retList nil)<br />         (setq entData1 (entget entName1))<br />         (if (= "POLYLINE" (Cdr (Assoc 0 entData1)))<br />                 (progn<br />                         (setq pel  entData1             ;取出对象表.<br />                               ptp  (Cdr (Assoc 70 pel)) ;取出结束片段型.<br />                               wpl  '()                  ;自建的点位数表.<br />                                                 wpll '()<br />                                                 entName1 (EntNext entName1)<br />                                                 pen entName1<br />                         );end_setq<br />                         (While (/= "SEQEND" (Cdr (Assoc 0 (entget pen))));如果没束.<br />                                 (setq pel (entget pen)               ;取得顶点对象数据表.<br />                                 plp (Cdr (Assoc 10 pel))       ;取出控制点点位.<br />                                 par (Cdr (Assoc 42 pel))       ;取出弓弦比.<br />                                 wpl (Cons (List plp par) wpl)  ;将数据加到WPL表中.<br />                                                         wpll (cons plp wpll)<br />                                 );end_setq <br />                           (setq pen (EntNext pen));搜索下一个对象.<br />                         );end_while<br />                         (setq wpll (Reverse wpll))<br /> <br />                         ;以下代码暂时没有用！<br />                         (setq ct (If (= 0 (Cadr (Car wpl))) "直线片段封闭" "弧片段封闭")) <br />                         (setq wpl (Cons (Last wpl) wpl);加入封闭点.<br />                                     wpl (Reverse wpl)        ;整理WPL表.<br />                               rl (Length wpl) <br />                               pn 0 <br />                         );end_setq <br />                         (setq clk (If (Or (= 0 ptp) (= 128 ptp)) "开口" "封闭"))  <br />                         (Repeat (1- rl)          ;逐点分析.<br />                           (setq al (Nth pn wpl)  ;取出点数据表.<br />                                 pt (Car al)      ;取出点位.<br />                           );end_setq <br />                           (If (And (/= 0.0 (Cadr al)) (Nth pn wpl)) ;如果是断.<br />                                    (Progn (setq gx (Cadr al)               ;取出弓比.<br />                                          bj (* (ATAN (ABS gx)) 4)   ;计算包角.<br />                                          np (Car (Nth (1+ pn) wpl)) ;取出下一点位.<br />                                          xc (* 0.5 (Distance pt np));半弦长计算.<br />                                          gg (* gx xc)               ;弓高计算.<br />                                          rr (/ (+ (* xc xc)(* gg gg)) (* 2 gg)) <br />                                     );end_setq  <br />                                     (setq cp (Polar pt (setq pa (Angle pt np)) xc)  <br />                                           cp (Polar cp (+ pa (* 0.5 PI)) (- rr gg)) <br />                                     );end_setq <br />                             );end_progn <br />                           );end_if<br />                     (setq pn (1+ pn))<br />                         );end_repeat<br />                         <br />                         (setq retList wpll)<br />                 );end_progn<br />         );end_if<br /> );end_defun<br />

changyiran

newbuser 发表于 2015-2-1 19:54
给你个获取三维多段线顶点坐标的程序。然后你再删除三维多段线并且生成二维多段线（自己加上扩展属性）

这样生出来的二维多段线句柄就变了。有没有什么法使得句柄不变。

Gu_xl

changyiran 发表于 2015-2-1 21:29
这样生出来的二维多段线句柄就变了。有没有什么法使得句柄不变。

Lisp无法实现，用arx很容易！

newbuser

changyiran 发表于 2015-2-1 21:29
这样生出来的二维多段线句柄就变了。有没有什么法使得句柄不变。

如果需要arx的支持，我看我这二把刀还是不研究了。不懂。

changyiran

Gu_xl 发表于 2015-2-1 21:36
Lisp无法实现，用arx很容易！

看来lisp还是有不小局限性啊。

llsheng_73

Gu_xl 发表于 2015-2-1 21:36
Lisp无法实现，用arx很容易！

比如给已有图块追加attrib同样保持句柄不变也是需要ARX支持才行,LSP做不到?