【分享】半自動順序編號
5 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
【分享】半自動順序編號
最近常常在用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
經驗值 : 5415
威望值 : 198
注冊日期 : 2013-08-31
回復: 【分享】半自動順序編號
謝謝你的熱心分享~
有需要的朋友可以試試!
有需要的朋友可以試試!
____________________________________________________________________________________
👉快速比例設定與出圖技巧-線上課程(點我)👈
回復: 【分享】半自動順序編號
感謝前輩分享,用起來真的很順手!!!
eazy0623- 一般會員
- 文章總數 : 26
年齡 : 36
來自 : Taichung
職業 : 電力規劃設計
愛好 : 運動
個性 : 獨立
使用年資 : 1
使用版本 : 2012
經驗值 : 4652
威望值 : 0
注冊日期 : 2012-07-18
回復: 【分享】半自動順序編號
用起來很順手,感謝前輩分享。
a810328- 一般會員
- 文章總數 : 17
年齡 : 40
來自 : 彰化
職業 : 畫CAD,作網頁
愛好 : PC
個性 : 還好
使用年資 : 7
使用版本 : 2014
經驗值 : 5368
威望值 : -3
注冊日期 : 2010-06-11
回復: 【分享】半自動順序編號
想請問,如果數字下去會有小數點後四位怎麼辦呢?
jackiehover- 初級會員
- 文章總數 : 160
年齡 : 38
來自 : 桃園市八德區
職業 : 消防設備、水電設計
愛好 : 上網、遊戲、網拍
個性 : 平易近人
使用年資 : 2014/09至今
使用版本 : 2014、15、16
積分 : 1
經驗值 : 4207
威望值 : 96
注冊日期 : 2015-08-31
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限:
您 無法 在這個版面回復文章