通过autoCAD-vba画管道单线图 [1.12]

原創 end1n9 2020-06-19 11:08

 2020-02-13 在公司钉钉上直播了这个画单线图脚本的用法，个人感觉此脚本画单线图还是挺方便，于是分享出来。

--

附件：autoCAD2014及vba模块，脚本drawline_1.12，见网盘

链接: https://pan.baidu.com/s/1A4iE2vJhSrffjTP7RG6HGg 提取码: vfkp

--

说明如下：

發表評論
所有評論
還沒有人評論，想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章

vbs模拟post请求上传文件

''' VBS文件上傳類，二進制方式上傳 Class vbsFileUpload     Public c_strDestURL      ' 文件上傳URL http://127.0.0.1:8080/AirportPro/wideta

mjf853912229 2020-06-14 11:36:04

一次性登陆密码的实现

聲明：1.歡迎大家批評指正            2.測試環境：windows 7 32位 + 聯網  + 163郵箱 + 騰訊管家  +  網易郵箱客戶端  測試通過 第一步：在控制面板開啓win7 telnet客戶端，見圖1：

humors221 2020-07-04 06:02:44

windows中运行 sh文件

安裝git ，從軟件管家下載安裝即可 需要的是git裏面的sh.exe 設置git的bin目錄到 系統變量PATH 中 這樣就可以快速找到sh.exe了 最好的辦法就是直接設置.sh文件用sh.exe打開 測試代碼如下，寫

心飞路漫 2020-07-01 18:14:15

vbs- 16进制写成文件

'16進制寫成文件 'FileName:指定文件的位置，絕對路徑 'Buf 16進制字符 Function Write16ToFile(FileName,Buf) Const adTypeBinary = 1 Const adSa

辉子 2020-06-27 01:30:56

vbs-二进制转16进制

'二進制轉16進制 'binary二進制字符串 Function binaryToHex(binary) binary_len = len(binary) quyu = binary_len mod 4 If quyu <> 0

辉子 2020-06-27 01:30:56

vbs-文件变读成16进制

'文件讀成16進制 'FileName:需要轉變的文件 Function ReadBinary(FileName) Const adTypeBinary = 1 Dim stream, xmldom, node Set xmld

辉子 2020-06-27 01:30:56

vbs-组合使用

'文件讀成16進制 'FileName:需要轉變的文件 Function ReadBinary(FileName) Const adTypeBinary = 1 Dim stream, xmldom, node Set xmld

辉子 2020-06-27 01:30:56

vbs-16进制转2进制

'16進制轉2進制 'Buf 16進制字符串 Function hexTOBinary(Buf) Buf_len = len(Buf) For i = 1 To Buf_len hex_str = mid(Buf,i,1)

辉子 2020-06-27 01:30:56

分分钟教你轰炸沙雕朋友——用vbs实现QQ自动发消息，打QQ电话

首先本人沒有任何vbs和vba基礎，只學過c++和java，所以代碼大部分來自網絡 感謝Demon和天靈狐的攻略： Demon博文地址 天靈狐博文地址 航母式開頭尬聊 記得vbs整人代碼很多來着，沒想到百度了很久，根本找不到打

only蛋炒饭 2020-06-25 02:01:10

游戏数据更新检查

類型|存放數據的文件夾（相對路徑） 類型1|gameData\95vs\origin 類型2|gameData\loude\origin 類型3|gameData\trid\origin 類型4|gameData\xway\ori

笑虾 2020-06-24 21:25:44

《大话SecureCRT脚本》之基于secureCRT的批量设备维护工具

【引言 】 小知識點對於大神來說，有些不屑。因爲掌握後是如此的簡單。而且寫起來又是如此的麻煩。SecureCRT的腳本功能正是這樣。雖然如此，聞道有先後，術業有專攻，如是而已。只要能對閱讀者有所啓發，管他什麼知識點的大小^_^。 爲方便各

tct657 2020-06-23 05:06:43

《大话SecureCRT脚本》之（一）录屏回放

小菜：在路由器設備中，經常需要查看短時間內路由表和mac表等的變化趨勢，這種重複性的show操作啊，可真是多。感覺整個路由器都是show命令。哦不對，思科是這樣，華爲全是Display命令。 大鳥：你又開始研究路由器了？ 小菜：拿老闆錢財

tct657 2020-06-22 23:06:40

C语言获取开机时间(结合VBS脚本实现语音输出)

C語言程序部分: #include <stdio.h> #include <conio.h> #include<windows.h> int main () { unsigned long time = 0; char chr[50

牟蘑菇 2020-06-19 09:17:40

vbs 读写注册表

//vbs '變量定義 Dim writeName,writeValue,fileName,regLoaction,regApp '創建註冊表編輯器對象 Set regApp=WScript.CreateObject("WScript.

小强_Obj 2020-06-16 07:12:16

获取当前windows系统 及 版本

Dim strComputer : strComputer = "."Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!//" & 

showy_ho 2020-06-15 08:04:22