顧問教學
加入贊助
聯絡我們
【分享】半自動順序編號
5 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
【分享】半自動順序編號
由 蔣秉澔 2013-12-24, 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
經驗值 : 5206
威望值 : 198
注冊日期 : 2013-08-31
回復： 【分享】半自動順序編號
由 Tiger&蘋果爸 2013-12-27, 10:47
謝謝你的熱心分享～
有需要的朋友可以試試！
有需要的朋友可以試試！
____________________________________________________________________________________
👉[優惠]慶祝AutoCAD顧問十六週年の感謝有你(點我)👈
Tiger&蘋果爸- 系統管理員
- 文章總數 : 21138
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 88799
威望值 : 16967
注冊日期 : 2008-04-23
-
eazy0623- 一般會員
- 文章總數 : 26
年齡 : 35
來自 : Taichung
職業 : 電力規劃設計
愛好 : 運動
個性 : 獨立
使用年資 : 1
使用版本 : 2012
經驗值 : 4443
威望值 : 0
注冊日期 : 2012-07-18
a810328- 一般會員
- 文章總數 : 17
年齡 : 40
來自 : 彰化
職業 : 畫CAD，作網頁
愛好 : PC
個性 : 還好
使用年資 : 7
使用版本 : 2014
經驗值 : 5159
威望值 : -3
注冊日期 : 2010-06-11
回復： 【分享】半自動順序編號
由 jackiehover 2016-01-05, 15:13
想請問，如果數字下去會有小數點後四位怎麼辦呢?
____________________________________________________________________________________
jackiehover- 初級會員
- 文章總數 : 151
年齡 : 38
來自 : 桃園市八德區
職業 : 消防設備、水電設計
愛好 : 上網、遊戲、網拍
個性 : 平易近人
使用年資 : 2014/09至今
使用版本 : 2014、15、16
積分 : 1
經驗值 : 3953
威望值 : 96
注冊日期 : 2015-08-31
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限：
您 無法 在這個版面回復文章