教學課程
加入贊助
聯絡我們
【分享】半自動順序編號
5 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
【分享】半自動順序編號
由 蔣秉澔 周二 24 12月 2013 - 17:03
最近常常在用EXPRESS工具的TCOUNT指令，發現還是有點小麻煩，剛好有在學LISP，就寫了一個簡易型的(有參考一些高手的方式)，我用起來還滿順手的，呵呵!!
(defun c:AW()
(setvar "cmdecho" 0)
(SETQ INTXT1 (GETSTRING "\n 代碼 :"))
(SETQ I (GETSTRING "\n 起始數字 :"))
(SETQ ENT (ENTSEL "\n 選擇一個文字"))
(WHILE ENT
(SETQ ENDATA1 (ENTGET (CAR ENT)))
(SETQ ENDATA1 (SUBST (CONS 1 (STRCAT INTXT1 I)) (ASSOC 1 ENDATA1) ENDATA1))
(ENTMOD ENDATA1)
(SETQ I (RTOS(1+ (ATOF I))))
(SETQ ENT (ENTSEL "\下一個"))
)
(prin1)
)
(defun c:AW()
(setvar "cmdecho" 0)
(SETQ INTXT1 (GETSTRING "\n 代碼 :"))
(SETQ I (GETSTRING "\n 起始數字 :"))
(SETQ ENT (ENTSEL "\n 選擇一個文字"))
(WHILE ENT
(SETQ ENDATA1 (ENTGET (CAR ENT)))
(SETQ ENDATA1 (SUBST (CONS 1 (STRCAT INTXT1 I)) (ASSOC 1 ENDATA1) ENDATA1))
(ENTMOD ENDATA1)
(SETQ I (RTOS(1+ (ATOF I))))
(SETQ ENT (ENTSEL "\下一個"))
)
(prin1)
)
蔣秉澔- 初級會員
- 文章總數 : 211
年齡 : 47
來自 : 嘉義市
職業 : 大電力系統設計、製程、檢測
愛好 : 電腦相關，出遊踏青
個性 : 待人隨和，對事執著
使用年資 : 8年
使用版本 : 2011 Electrical，2014
積分 : 4
經驗值 : 5399
威望值 : 198
注冊日期 : 2013-08-31
回復： 【分享】半自動順序編號
由 Tiger&蘋果爸 周五 27 12月 2013 - 10:47
謝謝你的熱心分享～
有需要的朋友可以試試！
有需要的朋友可以試試！
____________________________________________________________________________________
👉快速比例設定與出圖技巧-線上課程(點我)👈
Tiger&蘋果爸- 系統管理員
- 文章總數 : 21382
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 90361
威望值 : 17197
注冊日期 : 2008-04-23
-
eazy0623- 一般會員
- 文章總數 : 26
年齡 : 36
來自 : Taichung
職業 : 電力規劃設計
愛好 : 運動
個性 : 獨立
使用年資 : 1
使用版本 : 2012
經驗值 : 4636
威望值 : 0
注冊日期 : 2012-07-18
a810328- 一般會員
- 文章總數 : 17
年齡 : 40
來自 : 彰化
職業 : 畫CAD，作網頁
愛好 : PC
個性 : 還好
使用年資 : 7
使用版本 : 2014
經驗值 : 5352
威望值 : -3
注冊日期 : 2010-06-11
回復： 【分享】半自動順序編號
由 jackiehover 周二 5 1月 2016 - 15:13
想請問，如果數字下去會有小數點後四位怎麼辦呢?
____________________________________________________________________________________
jackiehover- 初級會員
- 文章總數 : 160
年齡 : 38
來自 : 桃園市八德區
職業 : 消防設備、水電設計
愛好 : 上網、遊戲、網拍
個性 : 平易近人
使用年資 : 2014/09至今
使用版本 : 2014、15、16
積分 : 1
經驗值 : 4191
威望值 : 96
注冊日期 : 2015-08-31
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限：
您 無法 在這個版面回復文章