[分享]PDF單檔或多檔批次匯入為DWG

主題回顧 :

原AUTOCAD 指令PDFIMPORT是PDF轉DWG功能，但:
(1.) 僅能單檔多頁中轉出一頁
(2.) 無法多檔轉檔
(3.) 不管PDF大小，比例固定會縮小25.4倍(需輸入25.4來還原比例)

此程式改良此功能:
(1.) 多檔全輸出
(2.) 單檔多頁全輸出
(3.) 單多頁選擇範圍輸出
(4.) 插入頁面接續不重疊
(5.) 檔案選取附路徑貼上功能(如圖2)
(6.) 頁面產生為圖塊或非圖塊選擇


使用注意事項:
1.請先確認AUTOCAD版本可以使用PDFIMPORT指令(設定參數用)
2.此程式利用OPENDCL開發圖型化視窗，必須安裝支援OPENDCL指令之程式OPENDCL RUNTIME，請選Windows Installer .MSI安裝

檔案內含LSP和說明檔，下載連結(回復可見):


歡迎參觀AUTOCAD二次開發AUTOLISP&OPENDCL

好實用的方法，來測試看看效果，謝謝提供~

謝謝無私奉獻分享此程式,感恩

感謝樓主分享~
抱歉 我打不開
他跳出no function definition: dcl-project-load
我有安裝OPENDCL

231113更
appload裡面沒有加入OPENDCL的.arx
加入後解決問題 感謝樓主

Hugo_Li 寫到:感謝樓主分享~
抱歉 我打不開
他跳出no function definition: dcl-project-load
我有安裝OPENDCL

是這個程式問題(dcl_project_import project nil nil)

若(COMMAND "_OPENDCL")沒有在程式中是無法載入此程式

請檢查載入此程式時指令攔有OpenDCL Runtime [9.1.5.2] loaded，才算有啟動opendcl。

感謝大哥分享，剛好碰到要處理很多檔案的案子，謝謝！

謝謝分享～找很久

感謝大大分享

謝謝大大的分享

感謝提供，工作上很常會使用到

謝謝分享~再找PDF轉DWG

謝謝您的分享

試試看 感謝您的分享

急用急用 ~ 感謝大大分享

謝謝分享，剛好轉檔轉到快昏了!

這個超猛的啦
剛好有這一個需求
感謝大佬

請教樓主
如果是舊版本的autocad（譬如：2016版本…
本身就沒有pdfimport的功能
是否就無法使用這個插件呢？

ianlcc 寫到:請教樓主
如果是舊版本的autocad（譬如：2016版本…
本身就沒有pdfimport的功能
是否就無法使用這個插件呢？

注意事項有說了，版本太舊沒有pdfimport是用不了的，我也是以pdfimport去做二次開發。

larrywu34 寫到:

ianlcc 寫到:請教樓主
如果是舊版本的autocad（譬如：2016版本…
本身就沒有pdfimport的功能
是否就無法使用這個插件呢？

注意事項有說了，版本太舊沒有pdfimport是用不了的，我也是以pdfimport去做二次開發。

不好意思，再向您請教個問題
因為沒接觸過OpenDCL Studio
想請問一下您裡面的這段是怎麼編寫的呢？
(SETQ project
'("YWt6A/g6AACUsP7ABuKTJCUSaitmgNnKG95VU7ajOCU/J8o1pRPV+249Fi0kEpdzVxbLijRX225Q"
"LAb/aW0SN57fyjoHvgXCX6Bzj78WnFuGvv2fO2Hyj//Wlv24ZnqogYIjRE2hUE1FTsUKs7AYGZil"
"DZjiR5kCoYGBmeKzdyN1bwGNVRd7yyxFk9tDyv1Eh9D1jBZZi41RJRZVcw4Ue6utRKQ+E6o+ldfs"
"0UvK5OgP4KPi7TW39OA9XdyNLffY1WWwyMb2RMaGMJTYHFSbhX5DOhsCU5jFLMCVnxH+tIdbNEYp"
"/i9n3WAkUIfoNfAwMO3pcddsxcfSXtlAshvqt00jAiG0GSvc1D2r3LA/gEO+semOSbbbaDfzlAfr"
"SPUClFvNNmPH2hXqOJ/91bfWnMCnO6XHbIMVsGVAvCeKWDRZrd9h6ui1D+8hLYHiTFKXzfKK4Wvg"
"3DNC0WyK8fMKt4FfnvF+AX6GdCe1JRoXssp4YN5UpKHvwdOYFlvLrmSswc+aXqMR6sbnkYrV6gfD"
"PjdBd4YXvnl++X6BfgZhnk++OX4ZFCiCUdpxfKjThwPUy4l0IPgd4ye1ipUeJIpN09zzCGSXbUPz"
"XeNwXSMR2tVfr01TK1O2RO6jaGas+Sju1AppAYitQGggdw1N8VdJvpleTUu24TxYIe6KchbHcSQE"
"eMaGUA6fY7YBZI6l/qF8QmO0PRBxJiSW1d0YED1NizT5iI0DW+HJ7qBJL/CK7sB9joj34K2AKEPF"
"c6yFf+FLBITstBGsJvA0AW6gDfDvgNe8c3gAJ58fFgldFpLkL8GKvZGOQOlYhB+ChyE/HwFmk+2C"
"wa8qdSBysaEZqgEg29FNjhL7YfuJ1XsieQZTHsp+NR7ig6iAb3ubdcotLidaP+++NjZaXmxqd/c6"
"Ptxe7+4WNjpiBmI22f8JZDZiBpFSsgL0zk4NjbYxaYXNpWn4uNMAc6vP9dDZWAitSiijZmYEkPfN"
"RZnI0qPGqqcIBtuDJa7UHu0ou0Xnygc0292oMqRv0+XKndm6FJlNdBVZMd7jCPQtpDfiCCRXPEWX"
"pPfwz5/oksgarrt2JwuPUycLD+ySC082KCOKLRwLL7ohIVDhkG+WOSMaq40yHXGxOSouKrWpo/JG"
"YsRdsPIQ/4zvn0f+JX8FuS6rPQQrBvhsUPDV5oyq5sygAunY0ATL7z00hnS4Wn8ia+VEdIvGntTa"
"ARee7lSBZOoZnJBvzAwJXQe+o5su4XVQ6S2muKFTrrC4eZ0Svay08SAQMniFW81dbVkkv9HRqljJ"
"g7QtRpvQE6PLMfMA0J7FXEovu+2hCKRQNT0w5E4PwP5cR9HjZpKI8q1YcNFcVRk1t7SnfJ7Ssq2c"
"sy+sEKQw98OO5i3A+9o4KWMVDvLZI4mlZYakM4WqNkF3ajp3A3xmg8OpbBX1zZpE3oK9/k+gBqhf"
"gGZ8gkKeM/5hCfYpWDG6AGfC4yoRLIAw+yF7COF/8uCQ50YHwInf4ol+5dK2GPsh/AQg/4IRZocb"
"C5kzjkoJrMr3iXQ7uiTRo0aI9JQZIU6gGPQ0AWPgSafKK3Rh/AacOxbz8+HoqOYS3qa2eoSXIlNC"
"sSZeTsgH+M05xItGQJOKHV0DlMQOrTYhTDqPLPGzNPIGvVrwnLvFMdCXGz9Z08a/GCJfZyUq+2rj"
"uvWGiX8Y/5w+ew3f469oOCNvEL7Zsr4Cv3tvdCex8XIM/9UbsQ7xKiyUWBhttXNPJbg+qdajQjsO"
"YhxE92ETJsAmzcwCWycnUIiquKAr7eurzHANZR1AS0n7XhUX0tL0QI6d0tSe4KM048oT4jHX5/EL"
"mN2KSjEOEgRUD93ZLWrf2Yq/HWnkOYTUBRH52Lq9uy8tD/dfWO/YNCzk3GZLSzkOEuQMIBXNoTU1"
"hRcKhoaTrq0E9NHgWKXE+qkEdNiKOk+WN9uwaBLJHJNil8fmdfeb+GMVm8uYS4tgiK1RsylxI5aG"
"zTmz8gJfS1FESQrOoMGJxBE18GMV2esTJ/vNL9lCESyZ8Zr/RCPWL6PbKMgdjjud3PazaccknfCc"
"9az58eGlKg2KhbAljzn8nZ7xOqtYuGFd9CI9NFwBqj6ghN2c+oVdFy/MFzSb4FcGF7owPPtuKguj"
"FJCsv+Um371rR/aLBGXLbfeOYEzpz6/sujxYU4e/BSJfBVPjXNXoVFdwJMRhEvR1E7eE9SslNRyr"
"KFp33JRUoBUG96j71FM5jl3WdaNOSdQ93IIjprf2suYahSGjcHXaxqHrloPSYAmBiVd6W2p/CM+B"
"W1X1UJwhNzl1SK1d9Shwi0YnRuUGJ8LDt5yD2w5/Jt5+nnnegFF+5VKYCXSZ/fskGNqBDa6g3GBY"
"1TvrhqO9A3S/UIEHXA3JEv8IDUmZKztpDUmf4asVFDszt05d7W9NT1JjAtROsPh/D6fXDE+crMCq"
"8rKnNbBukppb4x256qsIyqQvnSpx08jQg4HSCFRGNRIO2PCBfn342Zg="
)

ianlcc 寫到:

larrywu34 寫到:

ianlcc 寫到:請教樓主
如果是舊版本的autocad（譬如：2016版本…
本身就沒有pdfimport的功能
是否就無法使用這個插件呢？

注意事項有說了，版本太舊沒有pdfimport是用不了的，我也是以pdfimport去做二次開發。

不好意思，再向您請教個問題
因為沒接觸過OpenDCL Studio
想請問一下您裡面的這段是怎麼編寫的呢？
 (SETQ project
'("YWt6A/g6AACUsP7ABuKTJCUSaitmgNnKG95VU7ajOCU/J8o1pRPV+249Fi0kEpdzVxbLijRX225Q"
"LAb/aW0SN57fyjoHvgXCX6Bzj78WnFuGvv2fO2Hyj//Wlv24ZnqogYIjRE2hUE1FTsUKs7AYGZil"
"DZjiR5kCoYGBmeKzdyN1bwGNVRd7yyxFk9tDyv1Eh9D1jBZZi41RJRZVcw4Ue6utRKQ+E6o+ldfs"
"0UvK5OgP4KPi7TW39OA9XdyNLffY1WWwyMb2RMaGMJTYHFSbhX5DOhsCU5jFLMCVnxH+tIdbNEYp"
"/i9n3WAkUIfoNfAwMO3pcddsxcfSXtlAshvqt00jAiG0GSvc1D2r3LA/gEO+semOSbbbaDfzlAfr"
"SPUClFvNNmPH2hXqOJ/91bfWnMCnO6XHbIMVsGVAvCeKWDRZrd9h6ui1D+8hLYHiTFKXzfKK4Wvg"
"3DNC0WyK8fMKt4FfnvF+AX6GdCe1JRoXssp4YN5UpKHvwdOYFlvLrmSswc+aXqMR6sbnkYrV6gfD"
"PjdBd4YXvnl++X6BfgZhnk++OX4ZFCiCUdpxfKjThwPUy4l0IPgd4ye1ipUeJIpN09zzCGSXbUPz"
"XeNwXSMR2tVfr01TK1O2RO6jaGas+Sju1AppAYitQGggdw1N8VdJvpleTUu24TxYIe6KchbHcSQE"
"eMaGUA6fY7YBZI6l/qF8QmO0PRBxJiSW1d0YED1NizT5iI0DW+HJ7qBJL/CK7sB9joj34K2AKEPF"
"c6yFf+FLBITstBGsJvA0AW6gDfDvgNe8c3gAJ58fFgldFpLkL8GKvZGOQOlYhB+ChyE/HwFmk+2C"
"wa8qdSBysaEZqgEg29FNjhL7YfuJ1XsieQZTHsp+NR7ig6iAb3ubdcotLidaP+++NjZaXmxqd/c6"
"Ptxe7+4WNjpiBmI22f8JZDZiBpFSsgL0zk4NjbYxaYXNpWn4uNMAc6vP9dDZWAitSiijZmYEkPfN"
"RZnI0qPGqqcIBtuDJa7UHu0ou0Xnygc0292oMqRv0+XKndm6FJlNdBVZMd7jCPQtpDfiCCRXPEWX"
"pPfwz5/oksgarrt2JwuPUycLD+ySC082KCOKLRwLL7ohIVDhkG+WOSMaq40yHXGxOSouKrWpo/JG"
"YsRdsPIQ/4zvn0f+JX8FuS6rPQQrBvhsUPDV5oyq5sygAunY0ATL7z00hnS4Wn8ia+VEdIvGntTa"
"ARee7lSBZOoZnJBvzAwJXQe+o5su4XVQ6S2muKFTrrC4eZ0Svay08SAQMniFW81dbVkkv9HRqljJ"
"g7QtRpvQE6PLMfMA0J7FXEovu+2hCKRQNT0w5E4PwP5cR9HjZpKI8q1YcNFcVRk1t7SnfJ7Ssq2c"
"sy+sEKQw98OO5i3A+9o4KWMVDvLZI4mlZYakM4WqNkF3ajp3A3xmg8OpbBX1zZpE3oK9/k+gBqhf"
"gGZ8gkKeM/5hCfYpWDG6AGfC4yoRLIAw+yF7COF/8uCQ50YHwInf4ol+5dK2GPsh/AQg/4IRZocb"
"C5kzjkoJrMr3iXQ7uiTRo0aI9JQZIU6gGPQ0AWPgSafKK3Rh/AacOxbz8+HoqOYS3qa2eoSXIlNC"
"sSZeTsgH+M05xItGQJOKHV0DlMQOrTYhTDqPLPGzNPIGvVrwnLvFMdCXGz9Z08a/GCJfZyUq+2rj"
"uvWGiX8Y/5w+ew3f469oOCNvEL7Zsr4Cv3tvdCex8XIM/9UbsQ7xKiyUWBhttXNPJbg+qdajQjsO"
"YhxE92ETJsAmzcwCWycnUIiquKAr7eurzHANZR1AS0n7XhUX0tL0QI6d0tSe4KM048oT4jHX5/EL"
"mN2KSjEOEgRUD93ZLWrf2Yq/HWnkOYTUBRH52Lq9uy8tD/dfWO/YNCzk3GZLSzkOEuQMIBXNoTU1"
"hRcKhoaTrq0E9NHgWKXE+qkEdNiKOk+WN9uwaBLJHJNil8fmdfeb+GMVm8uYS4tgiK1RsylxI5aG"
"zTmz8gJfS1FESQrOoMGJxBE18GMV2esTJ/vNL9lCESyZ8Zr/RCPWL6PbKMgdjjud3PazaccknfCc"
"9az58eGlKg2KhbAljzn8nZ7xOqtYuGFd9CI9NFwBqj6ghN2c+oVdFy/MFzSb4FcGF7owPPtuKguj"
"FJCsv+Um371rR/aLBGXLbfeOYEzpz6/sujxYU4e/BSJfBVPjXNXoVFdwJMRhEvR1E7eE9SslNRyr"
"KFp33JRUoBUG96j71FM5jl3WdaNOSdQ93IIjprf2suYahSGjcHXaxqHrloPSYAmBiVd6W2p/CM+B"
"W1X1UJwhNzl1SK1d9Shwi0YnRuUGJ8LDt5yD2w5/Jt5+nnnegFF+5VKYCXSZ/fskGNqBDa6g3GBY"
"1TvrhqO9A3S/UIEHXA3JEv8IDUmZKztpDUmf4asVFDszt05d7W9NT1JjAtROsPh/D6fXDE+crMCq"
"8rKnNbBukppb4x256qsIyqQvnSpx08jQg4HSCFRGNRIO2PCBfn342Zg="
 )

這個是opendcl視窗檔案另成LSP碼，當電腦有灌opendcl runtime或studio時可放入lsp檔載入而已。

此站有人介紹OPENDCL

好的，謝謝您

larrywu34 寫到:

ianlcc 寫到:

larrywu34 寫到:

ianlcc 寫到:請教樓主
如果是舊版本的autocad（譬如：2016版本…
本身就沒有pdfimport的功能
是否就無法使用這個插件呢？

注意事項有說了，版本太舊沒有pdfimport是用不了的，我也是以pdfimport去做二次開發。

不好意思，再向您請教個問題
因為沒接觸過OpenDCL Studio
想請問一下您裡面的這段是怎麼編寫的呢？
 (SETQ project
'("YWt6A/g6AACUsP7ABuKTJCUSaitmgNnKG95VU7ajOCU/J8o1pRPV+249Fi0kEpdzVxbLijRX225Q"
"LAb/aW0SN57fyjoHvgXCX6Bzj78WnFuGvv2fO2Hyj//Wlv24ZnqogYIjRE2hUE1FTsUKs7AYGZil"
"DZjiR5kCoYGBmeKzdyN1bwGNVRd7yyxFk9tDyv1Eh9D1jBZZi41RJRZVcw4Ue6utRKQ+E6o+ldfs"
"0UvK5OgP4KPi7TW39OA9XdyNLffY1WWwyMb2RMaGMJTYHFSbhX5DOhsCU5jFLMCVnxH+tIdbNEYp"
"/i9n3WAkUIfoNfAwMO3pcddsxcfSXtlAshvqt00jAiG0GSvc1D2r3LA/gEO+semOSbbbaDfzlAfr"
"SPUClFvNNmPH2hXqOJ/91bfWnMCnO6XHbIMVsGVAvCeKWDRZrd9h6ui1D+8hLYHiTFKXzfKK4Wvg"
"3DNC0WyK8fMKt4FfnvF+AX6GdCe1JRoXssp4YN5UpKHvwdOYFlvLrmSswc+aXqMR6sbnkYrV6gfD"
"PjdBd4YXvnl++X6BfgZhnk++OX4ZFCiCUdpxfKjThwPUy4l0IPgd4ye1ipUeJIpN09zzCGSXbUPz"
"XeNwXSMR2tVfr01TK1O2RO6jaGas+Sju1AppAYitQGggdw1N8VdJvpleTUu24TxYIe6KchbHcSQE"
"eMaGUA6fY7YBZI6l/qF8QmO0PRBxJiSW1d0YED1NizT5iI0DW+HJ7qBJL/CK7sB9joj34K2AKEPF"
"c6yFf+FLBITstBGsJvA0AW6gDfDvgNe8c3gAJ58fFgldFpLkL8GKvZGOQOlYhB+ChyE/HwFmk+2C"
"wa8qdSBysaEZqgEg29FNjhL7YfuJ1XsieQZTHsp+NR7ig6iAb3ubdcotLidaP+++NjZaXmxqd/c6"
"Ptxe7+4WNjpiBmI22f8JZDZiBpFSsgL0zk4NjbYxaYXNpWn4uNMAc6vP9dDZWAitSiijZmYEkPfN"
"RZnI0qPGqqcIBtuDJa7UHu0ou0Xnygc0292oMqRv0+XKndm6FJlNdBVZMd7jCPQtpDfiCCRXPEWX"
"pPfwz5/oksgarrt2JwuPUycLD+ySC082KCOKLRwLL7ohIVDhkG+WOSMaq40yHXGxOSouKrWpo/JG"
"YsRdsPIQ/4zvn0f+JX8FuS6rPQQrBvhsUPDV5oyq5sygAunY0ATL7z00hnS4Wn8ia+VEdIvGntTa"
"ARee7lSBZOoZnJBvzAwJXQe+o5su4XVQ6S2muKFTrrC4eZ0Svay08SAQMniFW81dbVkkv9HRqljJ"
"g7QtRpvQE6PLMfMA0J7FXEovu+2hCKRQNT0w5E4PwP5cR9HjZpKI8q1YcNFcVRk1t7SnfJ7Ssq2c"
"sy+sEKQw98OO5i3A+9o4KWMVDvLZI4mlZYakM4WqNkF3ajp3A3xmg8OpbBX1zZpE3oK9/k+gBqhf"
"gGZ8gkKeM/5hCfYpWDG6AGfC4yoRLIAw+yF7COF/8uCQ50YHwInf4ol+5dK2GPsh/AQg/4IRZocb"
"C5kzjkoJrMr3iXQ7uiTRo0aI9JQZIU6gGPQ0AWPgSafKK3Rh/AacOxbz8+HoqOYS3qa2eoSXIlNC"
"sSZeTsgH+M05xItGQJOKHV0DlMQOrTYhTDqPLPGzNPIGvVrwnLvFMdCXGz9Z08a/GCJfZyUq+2rj"
"uvWGiX8Y/5w+ew3f469oOCNvEL7Zsr4Cv3tvdCex8XIM/9UbsQ7xKiyUWBhttXNPJbg+qdajQjsO"
"YhxE92ETJsAmzcwCWycnUIiquKAr7eurzHANZR1AS0n7XhUX0tL0QI6d0tSe4KM048oT4jHX5/EL"
"mN2KSjEOEgRUD93ZLWrf2Yq/HWnkOYTUBRH52Lq9uy8tD/dfWO/YNCzk3GZLSzkOEuQMIBXNoTU1"
"hRcKhoaTrq0E9NHgWKXE+qkEdNiKOk+WN9uwaBLJHJNil8fmdfeb+GMVm8uYS4tgiK1RsylxI5aG"
"zTmz8gJfS1FESQrOoMGJxBE18GMV2esTJ/vNL9lCESyZ8Zr/RCPWL6PbKMgdjjud3PazaccknfCc"
"9az58eGlKg2KhbAljzn8nZ7xOqtYuGFd9CI9NFwBqj6ghN2c+oVdFy/MFzSb4FcGF7owPPtuKguj"
"FJCsv+Um371rR/aLBGXLbfeOYEzpz6/sujxYU4e/BSJfBVPjXNXoVFdwJMRhEvR1E7eE9SslNRyr"
"KFp33JRUoBUG96j71FM5jl3WdaNOSdQ93IIjprf2suYahSGjcHXaxqHrloPSYAmBiVd6W2p/CM+B"
"W1X1UJwhNzl1SK1d9Shwi0YnRuUGJ8LDt5yD2w5/Jt5+nnnegFF+5VKYCXSZ/fskGNqBDa6g3GBY"
"1TvrhqO9A3S/UIEHXA3JEv8IDUmZKztpDUmf4asVFDszt05d7W9NT1JjAtROsPh/D6fXDE+crMCq"
"8rKnNbBukppb4x256qsIyqQvnSpx08jQg4HSCFRGNRIO2PCBfn342Zg="
 )

這個是opendcl視窗檔案另成LSP碼，當電腦有灌opendcl runtime或studio時可放入lsp檔載入而已。

此站有人介紹OPENDCL

感謝分享，下載來學習使用

謝謝版大，這功能真的好需要，謝謝分享~

疑問 ~
程式載入後 執行CP沒問題, 也預先設定為圖塊了,檔案也能選擇, 開始轉換卻沒發生任何事? 是哪邊設定有誤嗎?

阿希 寫到:疑問 ~
程式載入後 執行CP沒問題, 也預先設定為圖塊了,檔案也能選擇, 開始轉換卻沒發生任何事? 是哪邊設定有誤嗎?

若pdf本身非向量圖，就是轉不出來的。
有些pdf有鎖/亂碼，也是轉不出來。

larrywu34 寫到:

阿希 寫到:疑問 ~
程式載入後 執行CP沒問題, 也預先設定為圖塊了,檔案也能選擇, 開始轉換卻沒發生任何事? 是哪邊設定有誤嗎?

若pdf本身非向量圖，就是轉不出來的。
有些pdf有鎖/亂碼，也是轉不出來。

上述版主說的我皆測試過,皆可成功.
使用版主程式可選檔,依據提示選取左下頁面插入點, 指令列也顯示 "匯入完成" 圖面卻空空如也
比較那悶的一點是 正常來說按壓開始轉換, "PDF批次轉DWG" 這畫面應該會不見才對吧, 從頭到尾都一直在視窗中, 除了我按壓離開....