利用CAD VBA批量插入多段線

2021-10-05 08:36:26 字數 420 閱讀 6290

sub aa() '定義乙個執行過程

dim arr() as double '定義乙個空的動態陣列

m = 4 '隨便定乙個值

nn = array(7, 13, 15, 23) '定義乙個陣列,有幾個代表最終生成幾條線,數字加1 表示線的節點

for mn = 0 to ubound(nn) '動態定義陣列寬度

n = nn(mn) '給數賦值

redim arr(0 to n) as double '重新定義動態陣列

for i = 0 to n

arr(i) = m

m = m + 3

next i

thisdrawing.modelspace.addlightweightpolyline arr

next mn

end sub

AutoCad 修改多段線

對於用 pline 命令建立多段線物件,使用者可使用 pedit 命令來進行修改。該命令呼叫方式為 工具欄 modify ii 修改 ii 選單 modify 修改 object 物件 polyline 多段線 命令列 pedit 或別名pe 呼叫該命令後,系統首先提示使用者選擇多段線 pedit ...

利用procedure批量插入資料

要求在頁面查詢到5000條資料,為了方便插入,準備用shell指令碼寫curl命令呼叫自己寫的 介面,但是速度慢,而且寫的時候遇到點兒小問題,故用sql語句寫了這個功能 由於operationlog表中的ts欄位為13位的時間戳,所以採用了擷取的方式。drop table if exists ope...

利用procedure批量插入資料

要求在頁面查詢到5000條資料,為了方便插入,準備用shell指令碼寫curl命令呼叫自己寫的 介面,但是速度慢,而且寫的時候遇到點兒小問題,故用sql語句寫了這個功能 由於operationlog表中的ts欄位為13位的時間戳,所以採用了擷取的方式。drop table if exists ope...