[LISP函数]：如何在一个line命令中实现多条线段连接

tangdeyu

如有p1、p2、p3、p4四个点，想将p1、p2连成一条线，p3、p4连成一条线，想在同一个line命令中实现，不知如何处理？
急呀!!!!!!!!!!!!!!!!!!!!!!!!!!!!

(command "line" (p1 p2) (p3 p4) 肯定是不行的吧？我已经试过了。

ohmylove

想不通你为什么会有如此需求。
试试这个：
(command "line"
(getpoint "p1:")
(getpoint "p2:")
(getpoint "p3:")
(progn (setq en (entlast)) (getpoint "p4:"))
(progn (entdel en) "")
)

tangdeyu

有四个点，线上方和下方分别有两个，我作条件判断，当确定其中两个点在下方时，则连接此两点，那么，另外两个点也就可以确认是在上方了，所以也要进行连接；点是由程序中计算出来的，不要再进行getpoint了，我现在是如此处理的：
(if (< y_p7_cha 0)
          (        if (< y_p8_cha 0)
                            (command "line" p7 p8 "") ;;本来在此就可以连接p5p6的
                            (command "line" p7 p6 "") ;;本来在此就可以连接p5p8的


          
          )
          
          (        if (> y_P8_cha 0)
                            (command "line" p7 p8 "") ;;本来在此就可以连接p5p6的

                            (command "line" p7 p6 "") ;;本来在此就可以连接p5p8的


          
          )

               )

  
        (if (< y_p7_cha 0)
          (        if (< y_p8_cha 0)
                            (command "line" p5 p6 "")
                            (command "line" p5 p8 "")

          
          )
          
          (        if (> y_P8_cha 0)
                            (command "line" p5 p6 "")
                            (command "line" p5 p8 "")

          
          )

               )
两次if,苦死了!!!

请帮一次忙吧!!!!

ohmylove

两个办法：
1。把我上面的语句做成函数，把getpoint换成已知点；
2。还是你原来的程序，不过不用两次if，你应该看看progn函数，你的两个画线命令可以放到progn里面就行了。

sunshinejwt

高手啊，两个点都能连接了。那请大神们帮帮忙。我也想要一个连接线段的，要框选的，只有头尾相连的直线连接起来，在一条直线上，不是头尾相连的不连接，不改变线段的属性，就是说不要转成多段线。我的主要是做建筑的结构图，想把PKPM导出来的梁线连接起来。所以才要不首尾相连的不连接。http://bbs.xdcad.net/forum.php?m ... p;page=1#pid3612016