hhh454 发表于 2020-12-4 22:27:34

交点修剪，学习的地方很多，要是能分享部分源码，就更好了，

czb203 发表于 2020-12-8 19:42:08


谢谢分享优秀的工具

唯玉有缘 发表于 2020-12-9 10:16:11

好东西，谢谢楼主分享:victory:

lee50310 发表于 2020-12-14 11:05:36

本帖最后由 lee50310 于 2021-1-6 13:02 编辑

要是能分享部分源码，就更好了
源碼已分享,在版面

yoyoho 发表于 2020-12-14 12:30:01

谢谢分享优秀的程序!!!!!

好饿 发表于 2020-12-14 14:06:57


谢谢分享优秀的程序!!!!!

jinan1913 发表于 2020-12-14 16:33:13

不错，偶尔会用到。谢谢

烟盒迷唇 发表于 2021-1-5 09:34:29

这个有个BUG啊，如果与块交叉，会把块给打散了。

lee50310 发表于 2021-1-5 20:42:21

本帖最后由 lee50310 于 2021-1-11 10:33 编辑

这个有个BUG啊，如果与块交叉，会把块给打散了。
感謝告知 ,新版已做修正 ,無奈因論壇關係目前檔案及圖片我這邊都無法更新上傳 會出現檔案過大而失敗
因此付費版 請自行更改程式即可 更改方式如下:
    (defun Draw_the_road ()
          .
          .
(if (= (ssget "_P" (list (cons 8 "地形地貌")(cons 62 1))) nil) (setq t2 1) (setq t2 0));判斷 sal是否有含中心線 t2=1 未含 ,t2=0 有含
                (setq ss3 (ssget "C" pt1 pt2 ))                              ;;選取兩側道路線+中心線
                (command "_EXPLODE" ss3"" )                        ;;炸開
                (setq ss3 (ssget "C" pt1 pt2 ))                              ;;再選一次
                (setq ss4 (ssget "_P" (list (cons 8 "地形地貌")(cons 0 "LINE")))) ;;從ss3中再過濾只取線 *****
                (setq ss1 (ssget "_P" (list (cons 8 "地形地貌")(cons 62 1))))   ;選取中心線      

          .
          .

   );end

,<<<<***在下載的程式中找到上面的 函式只要更改上面程式中 if 下面的那一行   ***>>
                   (setq ss3 (ssget "C" pt1 pt2 ))                                                            ;;選取兩側道路線+中心線
                  將他改為過濾選取
                  (setq ss3 (ssget "C" pt1 pt2 (list (cons 8 "地形地貌")(cons 0 "LINE"))))      ;;選取兩側道路線+中心線
                  即可



lee50310 发表于 2021-1-6 08:44:39

本帖最后由 lee50310 于 2021-1-6 12:33 编辑

烟盒迷唇 发表于 2020-12-3 15:36
有用样条曲线画的嘛
這是複線繪製, 道路完成後會轉成 多段線 "LWPOLYLINE"
页: 1 [2] 3 4
查看完整版本: 應網友要求寫了一個 十字路口生成器+道路修補功能