<已解決>請問自動編號的巨集怎麼寫？

請問這個自動編號的巨集怎麼寫？

比如有三字串分別為12，34，56

點選12，12變成12A

再來點選34，34變成34B

最後點選56，56變成56C.....

以此類推，在字串後面編ABC...Z

大大救救～

135ooooo 寫到:請問這個自動編號的巨集怎麼寫？

比如有三字串分別為12，34，56

點選12，12變成12A

再來點選34，34變成34B

最後點選56，56變成56C.....

以此類推，在字串後面編ABC...Z

大大救救～

妳這部份用巨集似乎太艱難了點 ~ 用lisp似乎比較合適
而且妳後面要加上的字 ~ 是統一 ? 還是有規則性的 ?

阿希 寫到:妳這部份用巨集似乎太艱難了點 ~ 用lisp似乎比較合適
而且妳後面要加上的字 ~ 是統一 ? 還是有規則性的 ?

恩恩～

是規則性，點第一個字串後面加A，再來點第二個後面則加B～

LISP可以麼？

135ooooo 寫到:

阿希 寫到:妳這部份用巨集似乎太艱難了點 ~ 用lisp似乎比較合適
而且妳後面要加上的字 ~ 是統一 ? 還是有規則性的 ?

恩恩～

是規則性，點第一個字串後面加A，再來點第二個後面則加B～

LISP可以麼？

第一個字串後面加A，再來點第二個後面則加B ~
一直加到z ~ 那之後還有嗎 ?

阿希 寫到:第一個字串後面加A，再來點第二個後面則加B ~
一直加到z ~ 那之後還有嗎 ?

恩恩～最多到J就可以了～
大大可以麼可以麼？

PS.
可否再使
字串變成紅色，高度3.5，前後加括弧（）
且該值輸入一表格 ，
如下圖，全部就是這樣，充滿希望

135ooooo 寫到:

阿希 寫到:第一個字串後面加A，再來點第二個後面則加B ~  
一直加到z ~ 那之後還有嗎 ?
恩恩～最多到J就可以了～
大大可以麼可以麼？

PS.
可否再使
字串變成紅色，高度3.5，前後加括弧（）
且該值輸入一表格 ，
如下圖，全部就是這樣，充滿希望

LISP 程式如下 ~ 只是簡易的,未完全考慮可能狀況 ~
至於表格也未加入

LISP程式載入方法 :1 輸入快捷"AP" 找尋LISP檔位置載入
                  2.輸入IT 即可
                      PS :  如須每各圖檔自動載入,可放入公事包內 ^ ^

(defun c:IT()
(setvar "cmdecho" 0)
(SETQ INTXT (GETSTRING "\n Input writing :"))
(SETQ ASI (ASCII INTXT))
(SETQ ENT (ENTSEL "\n SELECT A TEXT"))
(WHILE ENT
(SETQ ENDATA (ENTGET (CAR ENT)))
(SETQ EN_TXT (CDR (ASSOC 1 ENDATA)))
(SETQ NEWTX (STRCAT "(" EN_TXT ")" (CHR ASI)))
(SETQ ENDATA (SUBST (CONS 1 NEWTX) (ASSOC 1 ENDATA) ENDATA))
(ENTMOD ENDATA)
(SETQ ASI (+ ASI 1))
(SETQ ENT (ENTSEL "\N SELECT A TEXT"))
)
(prin1)
)
PS : 將上列程式碼貼到記事本,檔名改為IT.LSP即可

---

▼20160719補充下載IT.LSP檔▼

阿希 寫到:

LISP 程式如下 ~ 只是簡易的,未完全考慮可能狀況 ~
至於表格也未加入

LISP程式載入方法 :1 輸入快捷"AP" 找尋LISP檔位置載入
2.輸入IT 即可
PS : 如須每各圖檔自動載入,可放入公事包內 ^ ^

(defun c:IT()
(setvar "cmdecho" 0)
(SETQ INTXT (GETSTRING "\n Input writing :"))
(SETQ ASI (ASCII INTXT))
(SETQ ENT (ENTSEL "\n SELECT A TEXT"))
(WHILE ENT
(SETQ ENDATA (ENTGET (CAR ENT)))
(SETQ EN_TXT (CDR (ASSOC 1 ENDATA)))
(SETQ NEWTX (STRCAT "(" EN_TXT ")" (CHR ASI)))
(SETQ ENDATA (SUBST (CONS 1 NEWTX) (ASSOC 1 ENDATA) ENDATA))
(ENTMOD ENDATA)
(SETQ ASI (+ ASI 1))
(SETQ ENT (ENTSEL "\N SELECT A TEXT"))
)
(prin1)
)


PS : 將上列程式碼貼到記事本,檔名改為IT.LSP即可

謝謝希大大，真是太厲害了，真是佛心來的～

Spoiler（用來隱藏帖子內容）:

以上回覆!點擊可見!

感謝阿希 熱心回覆 積分+1

這程式似乎不錯
快收起來
多謝阿希了

JerryJr 寫到:這程式似乎不錯
快收起來
多謝阿希了

JerryJr前輩你愛說笑 , 這在你面前只是獻醜吧

因為不會寫lisp，所以每次看到會寫lisp的人總會肅然起敬，實在好厲害哦....

Reicy 寫到:因為不會寫lisp，所以每次看到會寫lisp的人總會肅然起敬，實在好厲害哦....

會LISP ....是閒閒沒事的人才會的.....
蘋果爸也是太忙...所以才把LISP....給遺棄

阿希 寫到:
會LISP ....是閒閒沒事的人才會的.....
蘋果爸也是太忙...所以才把LISP....給遺棄

因為我的功力不夠啦...未來如果有時間及機會，倒是很希望能跟大家一起研究!!

也很感謝阿希的技術支援喔~

ps:但是現在真的是有點小忙!!

其實我的lisp功力大多都還課本了
所以這些程式可以多多交流囉

這個LISP我要好好研究一下，這樣我就可以將所有尺寸的檢查號碼快速標注了。

大家都好厲害唷~我都不懂LISP~~

請問各位大大：
阿希前輩寫的LISP是採用ASCII方式，將字串或是數字轉換成ASCII碼，然後將ASCII的內碼+1，再去替換新的字串，達到A->B，B->C的方式，但是有一個問題會發生，就是如果是要增加數字的話，那數字1~9是OK的(因為ASCII的內碼有1~9)，但如果是數字10或是之後的號碼的話，則顯示的內容會變成 ; 等符號了(因為ASCII的內碼10是 ; 而不數字10) ，也就是說數字10就不會出現了。請問可以改良這個問題嗎??

Eason 寫到:請問各位大大：
阿希前輩寫的LISP是採用ASCII方式，將字串或是數字轉換成ASCII碼，然後將ASCII的內碼+1，再去替換新的字串，達到A->B，B->C的方式，但是有一個問題會發生，就是如果是要增加數字的話，那數字1~9是OK的(因為ASCII的內碼有1~9)，但如果是數字10或是之後的號碼的話，則顯示的內容會變成 ; 等符號了(因為ASCII的內碼10是 ; 而不數字10) ，也就是說數字10就不會出現了。請問可以改良這個問題嗎??

基本上LISP算是客製化的程式,會因使用者的需求而有所變化,如同我所說的 "未考慮任何可能情況"
Eason說的當然可以做到,只要有規則或有系統的排序都可以

LISP還不太敢去碰
先學起來先,
謝謝提問題的一千三百五十萬及回答問題的阿希
謝謝你們喔

巨集也可以編圖號嗎??因為我是在畫圖的.

爬文學習中----這個lisp正好可以在工作時用到了

這個LISP我要好好研究一下
因為我的功力不夠啦
這裡的程式可以多多利用與學習

原來還可以這樣丫，我真的要多多上來看看了

Eason 寫到:請問各位大大：
阿希前輩寫的LISP是採用ASCII方式，將字串或是數字轉換成ASCII碼，然後將ASCII的內碼+1，再去替換新的字串，達到A->B，B->C的方式，但是有一個問題會發生，就是如果是要增加數字的話，那數字1~9是OK的(因為ASCII的內碼有1~9)，但如果是數字10或是之後的號碼的話，則顯示的內容會變成 ; 等符號了(因為ASCII的內碼10是 ; 而不數字10) ，也就是說數字10就不會出現了。請問可以改良這個問題嗎??

我利用了前面大大的lisp 程式 稍微改了一下
不知是否可以滿足您的條件
首先 做一個 屬性圖塊
http://tw.myblog.yahoo.com/yakuei-smart/article?mid=173&next=149&l=f&fid=9
如上網只那樣@@做個屬性編號的圖塊
然後以下是改過的lisp
(defun c:XX()
(setvar "cmdecho" 0)
(SETQ EN2 (GETSTRING "輸入數字:"))
(SETQ X1 (getpoint EN2))
(WHILE X1
(setq en_data (command "insert" "NO.09-01" "s" "1" "r" "0" X1 EN2))
(ENTMOD en_data)
(SETQ ATT (atoi EN2))
(SETQ EN2 (+ ATT 1))
(SETQ EN2 (itoa EN2))
(SETQ X1 (getpoint EN2))
)
(prin1)
)



只要把(defun c:XX()
的c: 後面的xx改能你想要的指令
跟(setq en_data (command "insert" "NO.09-01" "s" "1" "r" "0" X1 EN2))
的"NO.09-01" " " 內改成你的圖塊名稱就可以了
希望有幫到忙^^"

135ooooo 寫到:請問這個自動編號的巨集怎麼寫？

比如有三字串分別為12，34，56

點選12，12變成12A

再來點選34，34變成34B

最後點選56，56變成56C.....

以此類推，在字串後面編ABC...Z

大大救救～

請問這邊所謂的"字串"指的是文字?還是...
剛試了一下,不知道作用...