返回列表下一主題上一主題發帖

批次填入autocad檔名

carzyindex

中學生 Rank: 2

帖子: 42
主題: 11
精華: 0
積分: 104
點名: 0
作業系統: windows
軟體版本: office007
閱讀權限: 20
性別: 男
註冊時間: 2011-1-20
最後登錄: 2015-1-21

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-5-25 18:30 | 顯示全部帖子

批次填入autocad檔名

本帖最後由 carzyindex 於 2011-5-26 15:26 編輯

因工作需要

希望cad檔檔名填入圖畫某位置

(defun c:ppp(/)
  (command ".style" "htx1" "" "" "" "" "" "" "")
  (setq p1(getvar"dwgname"))
  (setq p2 (substr p1 1 (- (strlen p1) 4)))
  (command "Text" '(345 7) 2.3 0 p2)
)
-----------------------------------------------------------------
.style是字型

但是不曉得怎樣和excel檔結合

補充說明
將ppp.txt放入 c:

開啟autocad 在下方指令輸入
(load"c:\\ppp.txt")

匯入成功後再輸入

(c:ppp)

就能將檔案名稱放在cad裡特定的位置

但是檔案很多希望可用excel批次完成

ppp.rar (208 Bytes)

樓主熱帖

carzyindex

中學生 Rank: 2

帖子: 42
主題: 11
精華: 0
積分: 104
點名: 0
作業系統: windows
軟體版本: office007
閱讀權限: 20
性別: 男
註冊時間: 2011-1-20
最後登錄: 2015-1-21

2^#

發表於 2011-5-26 08:45 | 顯示全部帖子

回復 2# luhpro

上面指令是autolisp

TOP

carzyindex

中學生 Rank: 2

帖子: 42
主題: 11
精華: 0
積分: 104
點名: 0
作業系統: windows
軟體版本: office007
閱讀權限: 20
性別: 男
註冊時間: 2011-1-20
最後登錄: 2015-1-21

3^#

發表於 2011-5-26 10:39 | 顯示全部帖子

本帖最後由 carzyindex 於 2011-5-26 10:44 編輯

回復 4# GBKEE

vba可以開啟autocad不是嗎
http://blog.xuite.net/pertonchang/prog/14795319

批次開啟清單中cad檔再用cad裡面的功能動作
例如
9164ARP0-0012.dwg OCTPA-LCX66005A-001-00.dwg
9164ARP0-0013.dwg OCTPA-LCX66005A-002-00.dwg
9164ARP0-0014.dwg OCTPA-LCX66005A-003-00.dwg

cad裡面有很多輔助程式不知該如何完成動作

TOP

carzyindex