changyiran 发表于 2015-1-6 17:47:08

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

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

changyiran 发表于 2015-1-6 20:34:58

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

newbuser 发表于 2015-2-1 19:54:47

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

给你个获取三维多段线顶点坐标的程序。然后你再删除三维多段线并且生成二维多段线（自己加上扩展属性）;;;---------------------------------------------
;;; No.23-4-2 获取 POLYLINE 对象所有顶点坐标   
;;;---------------------------------------------
(Defun ayGetPolyLineVTX (LwPolyEntName / entData1 entName1 pel ptp wpl wpll plp par ct
                                                                                                                   pen rl pn clk pt al gx bj np xc gg rr cp retList)
        (setq entName1 LwPolyEntName)
        (setq retList nil)
        (setq entData1 (entget entName1))
        (if (= "POLYLINE" (Cdr (Assoc 0 entData1)))
                (progn
                        (setq pelentData1             ;取出对象表.
                              ptp(Cdr (Assoc 70 pel)) ;取出结束片段型.
                              wpl'()                  ;自建的点位数表.
                                                wpll '()
                                                entName1 (EntNext entName1)
                                                pen entName1
                        );end_setq
                        (While (/= "SEQEND" (Cdr (Assoc 0 (entget pen))));如果没束.
                                (setq pel (entget pen)               ;取得顶点对象数据表.
                                plp (Cdr (Assoc 10 pel))       ;取出控制点点位.
                                par (Cdr (Assoc 42 pel))       ;取出弓弦比.
                                wpl (Cons (List plp par) wpl);将数据加到WPL表中.
                                                        wpll (cons plp wpll)
                                );end_setq
                          (setq pen (EntNext pen));搜索下一个对象.
                        );end_while
                        (setq wpll (Reverse wpll))

                        ;以下代码暂时没有用！
                        (setq ct (If (= 0 (Cadr (Car wpl))) "直线片段封闭" "弧片段封闭"))
                        (setq wpl (Cons (Last wpl) wpl);加入封闭点.
                                  wpl (Reverse wpl)      ;整理WPL表.
                              rl (Length wpl)
                              pn 0
                        );end_setq
                        (setq clk (If (Or (= 0 ptp) (= 128 ptp)) "开口" "封闭"))
                        (Repeat (1- rl)          ;逐点分析.
                          (setq al (Nth pn wpl);取出点数据表.
                                pt (Car al)      ;取出点位.
                          );end_setq
                          (If (And (/= 0.0 (Cadr al)) (Nth pn wpl)) ;如果是断.
                                 (Progn (setq gx (Cadr al)               ;取出弓比.
                                         bj (* (ATAN (ABS gx)) 4)   ;计算包角.
                                         np (Car (Nth (1+ pn) wpl)) ;取出下一点位.
                                         xc (* 0.5 (Distance pt np));半弦长计算.
                                         gg (* gx xc)               ;弓高计算.
                                         rr (/ (+ (* xc xc)(* gg gg)) (* 2 gg))
                                    );end_setq
                                    (setq cp (Polar pt (setq pa (Angle pt np)) xc)
                                          cp (Polar cp (+ pa (* 0.5 PI)) (- rr gg))
                                    );end_setq
                          );end_progn
                          );end_if
                  (setq pn (1+ pn))
                        );end_repeat
                       
                        (setq retList wpll)
                );end_progn
        );end_if
);end_defun

changyiran 发表于 2015-2-1 21:29:13

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

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

Gu_xl 发表于 2015-2-1 21:36:04

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

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

newbuser 发表于 2015-2-2 10:40:41

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

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

changyiran 发表于 2015-2-3 22:27:02

Gu_xl 发表于 2015-2-1 21:36 static/image/common/back.gif
Lisp无法实现，用arx很容易！

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

llsheng_73 发表于 2015-2-3 22:43:34

Gu_xl 发表于 2015-2-1 21:36 static/image/common/back.gif
Lisp无法实现，用arx很容易！

比如给已有图块追加attrib同样保持句柄不变也是需要ARX支持才行,LSP做不到?
页: [1]
查看完整版本: 如何将轻量多段线转为二维多段线