[ARX程序]：我想将一些首尾相连的line arc poline。。

xulixin

我想将一些首尾相连的line arc poline 组成一条poline,不知用arx for 14如何实现？

XDSoft

最初由 xulixin 发布
[B]我想将一些首尾相连的line arc poline 组成一条poline,不知用arx for 14如何实现？ [/B]

去“程序库论坛”，“晓东写的程序”帖子，里面有JOIN的程序，LISP完全可以做到，参考下代码吧，不清楚的地方，可以到论坛讨论

xulixin

“晓东写的程序”于下：
;;命令 C_L2PL
;;（使用XDRX_API）将图形中选择的所有LINE变成多义线并和其他所有选
;;中的多义线和圆弧，能JOIN成一根多义线的，JOIN成一根多义线...
;;

(defun l2pl (l_name / s2 n e bl#)
(setq s2 (ssget (list' (-4 . "<AND") '(0 . "LINE,*POLYLINE,ARC") (cons 8 l_name)
            '
            (-4 . "<NOT") '
            (-4 . "<AND") '
            (0 . "*POLYLINE") '
            (70 . 1) '
            (-4 . "AND>") '
            (-4 . "NOT>") '
            (-4 . "AND>")
         )
     ))
(if s2
  (progn
   (setq n (sslength s2))
   (xdrx_setsstodb s2 0)
   (xdrx_pbarbegin "已完成：" n)
   (setq i 0)
   (repeat n
    (if (setq e (xdrx_getentdata 0))
     (progn
      (if (wcmatch (xdrx_getentdxf 0) "*POLYLINE")
       (command ".pedit" e "j" s2 "" "")
       (command ".pedit" e "y" "j" s2 "" "")
      )
      (xdrx_setenttodb e)
      (if (= (xdrx_getentdxf 70) 1)
       (progn
        (ssdel e s0)
        (setq n (1- n))
       )
      )
     )
    )
    (xdrx_pbarsetpos (setq i (1+ i)))
   )
   (xdrx_pbarend)
  )
)
)
(defun C:C_L2PL ()
(prompt "\n请选择要连接成POLYLINE的LINE(线)和ARC(弧)<退出>:")
(l2pl "*")
(princ)
)

其中的一些函数如xdrx_setsstodb 、xdrx_pbarend等晓东做的不知道什么功能？

xulixin

其中的一些函数如xdrx_setsstodb 、xdrx_pbarend等晓东做的不知道什么功能？

masterhe

最初由 xulixin 发布
[B]我想将一些首尾相连的line arc poline 组成一条poline,不知用arx for 14如何实现？ [/B]

一个土办法就是用Pedit命令，这个我想没有什么多说的。
另外就是由这些line arc pline 的实体信息去构造一条完整的pline。

XDSoft

最初由 xulixin 发布
[B]其中的一些函数如xdrx_setsstodb 、xdrx_pbarend等晓东做的不知道什么功能？ [/B]

xdrx_setsstodb作用就是把选择集加入XDRX_API内部核心数据库关于处理选择集的结构中，以后可以用循环直接得到选择集实体，非常方便。可以多个选择集嵌套进行多重循环。如：

  (xdrx_setsstodb ss1 0)
  (while (setq e (xdrx_getentdata 0)) 得到ss1的当前位置的实体
     .....
     (xdrx_setsstodb ss2 1)
     (while (setq e2 (xdrx_getentdata 1)) 得到ss2当前位置的实体
        ....
     )
   )

xdrx_pbarend是让LISP可以在状态行里面显示“进度条”，和其他两个函数配合，具体见手册。

CamPtt

最初由 masterhe 发布
[B]

一个土办法就是用edit命P令，这个我想没有什么多说的。
另外就是由这些line arc pline 的实体信息去构造一条完整的pline。 [/B]

用Pedit命令的办法怎么个土法？

(试试引用)

xulixin

那位可提供ARX原码，不胜感激。

bluesolar

作出来了吗？
我也想实现这个功能，可是我也不会
作出来大家分享一下好吗？

天堂鸟

这个问题我也很急啊，出来了吗？

bluewood_cn

我搞出来了。
用Pedit 命令。

ads_name ss1;
ads_name ssInput;


           其中ss1是选中的一个line 或者arc
                      ssInput 是剩下的要处理的line 或者arc

        acedCommand(RTSTR, "PEDIT",
                   RTENAME, ss1,
                   RTSTR, "Y",
                    RTSTR, "J",
                    RTPICKS, ssInput,
                   RTSTR, "",
                  RTSTR, "",
                 0);


然后就可以了。

希望对你有用

limingqian

Pedit就可以解决.