明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 11925|回复: 148

[源码] <*** 快速好用 自動路徑布局分圖 V4.6 ***>>

    [复制链接]
发表于 2021-12-29 12:37 | 显示全部楼层 |阅读模式
本帖最后由 lee50310 于 2023-7-22 18:24 编辑

<*** 快速好用  自動路徑布局分圖  V4.6  *** >>   

說明:可路徑布局 就是在大圖內 事先繪好的多段線(PLINE)  依圖的走向劃出路徑線
         可依dcl設定矩形視埠寬高值 自動依照路弳線走向創建圖框            
  ps:1.路線的長短可取決矩形視埠的數量,但長度可 小於  矩形視埠寬度   
      2.路徑線必須先畫好 (完整一段不可分段) 如測試圖中的 紅色多段線(Pline)
功能:
         1.依路徑線自動創建矩形視埠 (DCL之寬x高設定)     
         2.可產生單視埠-->合集
         3.可設定是否需自動產生輔助文字  
         4.路徑線,視埠框,輔助文字 可設是否印出   
         5.可清除上次布局視埠及矩形圖框+輔助文字
         6.可設置輸出至佈局空間 圖框視埠的比例大小(整體改變)

執行指令:pcom  

                                        <<<   源碼已分享 在第9頁 --> 85樓  >>



最新更新檔:  pcom7d_chs.fas (簡體版)
                   pcom7d_cht.fas  (繁體版)

修正: 路徑線偏垂型走勢 布局空間 排圖亂掉            更新日期:2023年 7月17日

         

;-----------------------------------------------------
pcom7c_chs.fas,pcom7c_cht.fas                                                   
修正  1.路徑線方向不同時會產生 圖框及文字顛倒問題      更新日期:2023年 7月13日
;------------------------------------------------------
pcom6E_chs.fas,pcom6E_cht.fas
新增 1.可設置輸出至佈局空間 圖框視埠的比例大小
       2.佈局空間文字顯示比例值                          更新日期:2023年 5月8日
       3.修正比例功能 例: 1:500   模型空間 圖 為1 則輸出  布局空間(圖紙空間)內 圖框視埠被放大500

;----------------------------------------------------------------------
        更新檔: pcom5f
1. 修正 (取餘數(總長度/圖框寬)) >20 ) ---> 則 圖框數+1    修正日期:2023年 5月5日
;----------------------------------------------------------------------
        更新檔:  pcom5e
1. 增加記憶功能                                                      修正日期:2022年 2月1日

;----------------------------------------------------------------------
        更新檔: pcom5c
1. 修正 ,正確的矩形視埠框數量                                 修正日期:2022年 1月4日
;----------------------------------------------------------------------

        更新檔: pcom5
1.支援多段線(路徑) 不同方向 可使布局分圖皆為正圖   修正日期:2022年 1月2日

;----------------------------------------------------------------------
       更新檔: pcom4
1.修正執行指令  按確定鈕 出現 參數錯誤                    修正日期:2022年 1月 1日

;----------------------------------------------------
程式已在 浩辰 cad  2016  32ˊˋbit  試用版 測試 ok     如動態圖所示  在39樓                    
              浩辰 cad  2021  64ˊˋbit  試用版 測試 ok
              AutoCAD 2018   64bit  繁體版 測試  ok       
            
































本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2023-5-9 13:34 | 显示全部楼层
看gif是在一个布局窗口分幅的。能否增加一个选项,一个布局一个分幅呢?
因为带地形图的话,一个布局多个视口,会很卡的。
回复 支持 1 反对 0

使用道具 举报

发表于 2021-12-30 08:44 | 显示全部楼层
好强大的工具

评分

参与人数 1明经币 +1 收起 理由
lee50310 + 1

查看全部评分

回复 支持 1 反对 0

使用道具 举报

 楼主| 发表于 2023-5-4 12:48 | 显示全部楼层
依然小小鸟 发表于 2023-3-9 12:35
这个问题修改了吗 后来

源碼已分享! 可下載自行修改
回复 支持 1 反对 0

使用道具 举报

 楼主| 发表于 2021-12-29 12:39 | 显示全部楼层
本帖最后由 lee50310 于 2021-12-29 12:57 编辑

已在cad2018 測試ok

;;-----------------------------------------
測試圖檔:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
回复 支持 1 反对 0

使用道具 举报

 楼主| 发表于 2021-12-30 10:37 | 显示全部楼层
jinaijia3018 发表于 2021-12-30 07:34
楼主,你好。cad2022中line线条拾取后无法识别,提示拾取line线条

已修正更新,請重新下載
回复 支持 1 反对 0

使用道具 举报

 楼主| 发表于 2021-12-29 12:49 | 显示全部楼层
本帖最后由 lee50310 于 2022-2-1 07:16 编辑



執行指令:tt     然後選剛剛下載打不開的檔案

例: test.dwg   則會產生修復檔   test_new.dwg
     將舊檔 刪除 用修復檔 test_new.dwg 開啟即可

发表于 2021-12-29 13:27 | 显示全部楼层
出现对话框后卡死,cad2016+win7

评分

参与人数 1明经币 +1 收起 理由
lee50310 + 1

查看全部评分

 楼主| 发表于 2021-12-29 13:46 | 显示全部楼层
本帖最后由 lee50310 于 2021-12-29 13:49 编辑
bai2000 发表于 2021-12-29 13:27
出现对话框后卡死,cad2016+win7

喔! 我在cad2018 test 是 ok
沒有 2016版可供測試 不過 我再檢查看看 再上傳
发表于 2021-12-30 07:34 | 显示全部楼层
楼主,你好。cad2022中line线条拾取后无法识别,提示拾取line线条
发表于 2021-12-30 08:17 | 显示全部楼层
谢谢大神,分享的佳作

点评

感謝支持,來此留言看到 0 就想補+1  发表于 2021-12-31 09:19

评分

参与人数 1明经币 +1 收起 理由
lee50310 + 1

查看全部评分

发表于 2021-12-30 08:46 | 显示全部楼层
一会测试下~~~~~~
发表于 2021-12-30 09:09 | 显示全部楼层
win7+64位+AUtocad 2010,打开两个图都不成功。


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-6-20 19:55 , Processed in 0.179360 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表