應網友要求寫了一個十字路口生成器+道路修補功能

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

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

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

谢谢分享优秀的工具

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

好东西，谢谢楼主分享

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

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

要是能分享部分源码，就更好了

源碼已分享,在版面

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

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

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

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

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

不错，偶尔会用到。谢谢

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

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

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

本帖最后由 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

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

烟盒迷唇发表于 2020-12-3 15:36
有用样条曲线画的嘛

這是複線繪製, 道路完成後會轉成多段線 "LWPOLYLINE"

账号		自动登录	找回密码
密码			注册

[源码] 應網友要求寫了一個 十字路口生成器+道路修補功能

[源码] 應網友要求寫了一個十字路口生成器+道路修補功能