AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

[討論]分享半自動畫圓+編號

上一篇主題 下一篇主題 向下

[討論]分享半自動畫圓+編號

發表 由 hueigo 于 2015-08-19, 10:54

lisp的原始碼如下:

(defun c:ot()                          ;;;設定呼叫指令
 (setvar "cmdecho" 0) (setq intext1 1)
;;;(setq luu  (getvar "clayer"))        ;;;記憶當層圖層
;;;(command "layer" "s" "text" "")     ;;;設定寫文字的圖層, 如果沒有這個圖層,請自行設定

;;; (setq ith (GETVAR "TEXTSIZE"))  ;;;;這行有點機車,如果字高為0會出錯
(setq ith (getint "\nEnter letter height:"))  ;;;;只好自已手動輸入字高,也好控制成果

(setq cir (* 1.3 ith))  ;;;設定畫圈圈為文字的倍數

  (setq sti (getstring "\n輸入前置文字,如果有的話: "))
  (setq its (getint "\n輸入初始數字:"))
  (setq ite (getint "\n輸入結束數字:"))
 
 (command "'redraw")
 (setq itn (+ (- ite its) 1))
 (repeat itn
   (setq itss (itoa its))
   (setq itt (strcat sti itss))

 (setq pt (getpoint "\n文字插入點: "))
   (command "circle"  pt cir )
   (command "text" "m" pt ith 0 itt)
   (setq its (+ its 1))
 )
;;;(command "layer" "s" luu "")   ;;;回到初始圖層
)
註:沒有輸入前置文字 直接按空白鍵 跳過就是純數字  前面有;;;是註解說明,沒動作的指令

如果把畫圓指令前方加;;; 可以變成純文字編號

下載lsp的位置,省去手key 還key錯  害羞
https://www.dropbox.com/s/xe3ogg4bybrhq9q/ot%E7%95%AB%E5%9C%93%E5%8A%A0%E7%B7%A8%E8%99%9F.lsp?dl=0

備用下載:
https://db.tt/MXbfXDS1
avatar
hueigo
初級會員
初級會員

文章總數 : 69
年齡 : 52
來自 : 台中
職業 : 建築設計師
愛好 : 圍棋
個性 : 平實
使用年資 : 15
使用版本 : 2013
積分 : 3
經驗值 : 2254
威望值 : 115
注冊日期 : 2012-10-01
顧問外掛程式 經典問與答讀者 男 天蝎座 龍

回頂端 向下

回復: [討論]分享半自動畫圓+編號

發表 由 Tiger&蘋果爸 于 2015-08-22, 11:48

謝謝hueigo前輩熱心分享~
有需要的朋友記得回文感謝喔!
謝謝囉

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17189
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 64592
威望值 : 12753
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

回復: [討論]分享半自動畫圓+編號

發表 由 poiuyy 于 2015-08-22, 13:44

感謝分享可以省去不少時間
avatar
poiuyy
初級會員
初級會員

文章總數 : 170
年齡 : 43
來自 : 台中
職業 : 小監
愛好 : 電影
個性 : 中庸
使用年資 : 5
使用版本 : 2010
積分 : 1
經驗值 : 1937
威望值 : 78
注冊日期 : 2014-06-24
藍鵲656號
男 天秤座 虎

回頂端 向下

回復: [討論]分享半自動畫圓+編號

發表 由 g3000202 于 2015-08-22, 14:29

謝謝大大的分享~~ 熱情
avatar
g3000202
一般會員
一般會員

文章總數 : 30
年齡 : 35
來自 : 新北市
職業 : 文書
愛好 : 看球賽
個性 : 文靜
使用年資 : 新手初學
使用版本 : 2013
經驗值 : 1019
威望值 : 12
注冊日期 : 2015-05-08
女 水瓶座 狗

回頂端 向下

回復: [討論]分享半自動畫圓+編號

發表 由 胡益彰 于 2015-08-23, 15:00

感恩 太帥啦
謝謝您的大力相助 好開心
avatar
胡益彰
一般會員
一般會員

文章總數 : 65
年齡 : 34
來自 : 新北市 蘆洲區
職業 : 室內裝潢-學徒
愛好 : 創作+計畫....難免白日夢
個性 : 傻傻的耿直(^Q^!)
使用年資 : 還再補習(多學+多學)
使用版本 : 2012~2014
經驗值 : 1807
威望值 : 66
注冊日期 : 2013-08-13
2D基礎函授 經典問與答讀者 男 水瓶座 豬

https://www.facebook.com/hu.y.zhang?viewas=100000686899395&p

回頂端 向下

回復: [討論]分享半自動畫圓+編號

發表 由 judyyai 于 2015-08-24, 01:27

謝謝分享~很實用~
小小建議~Enter letter height 可以改成中文會更好 竊喜

____________________________________________________________________________________
avatar
judyyai
管理顧問
管理顧問

文章總數 : 7642
年齡 : 40
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2014(開始於2015九月底)
AutoCAD基礎篇等級 : 10星級
積分 : 392
最佳解答 : 1
經驗值 : 27167
威望值 : 3454
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
2D基礎函授 3D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲2號
2009聚會勳章 串連貼紙成功 女 巨蟹座 蛇

回頂端 向下

回復: [討論]分享半自動畫圓+編號

發表 由 liao 于 2015-08-24, 01:51

已下載,感謝分享省去很多時間
avatar
liao
一般會員
一般會員

文章總數 : 15
年齡 : 40
來自 : 台北
職業 : 監工
愛好 : 遊山玩水
個性 : 溫和
使用年資 : 新手初學
使用版本 : 2008
經驗值 : 1837
威望值 : 6
注冊日期 : 2012-12-04
經典問與答讀者 男 白羊座 蛇

回頂端 向下

回復: [討論]分享半自動畫圓+編號

發表 由 kimtime 于 2015-08-24, 03:59

真的非常感謝大大的無私分享!
這個不錯用!省去很多時間!
avatar
kimtime
一般會員
一般會員

文章總數 : 110
年齡 : 32
來自 : 雲林
職業 : 助理工程師
愛好 : 打電腦
個性 : 內向
使用年資 : 2~3年
使用版本 : 2006
經驗值 : 2308
威望值 : 82
注冊日期 : 2012-11-08
2D基礎函授 3D基礎函授 經典問與答讀者 藍鵲674號
男 摩羯座 鼠

回頂端 向下

回復: [討論]分享半自動畫圓+編號

發表 由 ruru60 于 2015-08-24, 14:10

感恩~~ 感動
謝謝分享
avatar
ruru60
初級會員
初級會員

文章總數 : 123
年齡 : 45
來自 : 台中
職業 : 電腦繪圖員(管路配線)
愛好 : 園藝
個性 : 內向
使用年資 : 10
使用版本 : 2008
積分 : 1
經驗值 : 3336
威望值 : 76
注冊日期 : 2010-06-02
經典問與答讀者 藍鵲127號
女 雙魚座 鼠

回頂端 向下

回復: [討論]分享半自動畫圓+編號

發表 由 et1029et 于 2015-08-27, 08:04

感謝大大無私的分享~
avatar
et1029et
初級會員
初級會員

文章總數 : 356
年齡 : 36
來自 : 桃園
職業 : 行政繪圖
愛好 : 學習
個性 : 隨和
使用年資 : 新手初學
使用版本 : 2013
積分 : 4
經驗值 : 3316
威望值 : 324
注冊日期 : 2013-07-02
藍鵲666號
女 天蝎座 猴

回頂端 向下

回復: [討論]分享半自動畫圓+編號

發表 由 ilvms1984 于 2015-09-04, 19:22

感謝大大的分享
會寫lisp的都好厲害唷~ 感動
avatar
ilvms1984
一般會員
一般會員

文章總數 : 44
年齡 : 33
來自 : 士林
職業 : 待業
愛好 : 唱歌,看電影,舞台劇
個性 : 善良,信任,善變,霸道,易受傷,不隱藏,透明度百分百
使用年資 : 3~4年
使用版本 : 2014,2010
經驗值 : 1579
威望值 : 75
注冊日期 : 2014-03-10
女 雙魚座 鼠

回頂端 向下

回復: [討論]分享半自動畫圓+編號

發表 由 jackiehover 于 2015-10-26, 01:48

已下載,謝謝大大分享,感恩。
avatar
jackiehover
初級會員
初級會員

文章總數 : 125
年齡 : 31
來自 : 桃園市八德區
職業 : 消防設備、水電設計
愛好 : 上網、遊戲、網拍
個性 : 平易近人
使用年資 : 2014/09至2017/03
使用版本 : 2014、15、16
積分 : 1
經驗值 : 1414
威望值 : 78
注冊日期 : 2015-08-31
藍鵲699號
男 水瓶座 虎

回頂端 向下

回復: [討論]分享半自動畫圓+編號

發表 由 lcskc 于 2015-11-03, 22:52

教學相長,感謝分享
avatar
lcskc
一般會員
一般會員

文章總數 : 51
年齡 : 45
來自 : 高雄
職業 : 模具
愛好 : pc相關
個性 : 安靜
使用年資 : 10
使用版本 : R12
經驗值 : 1529
威望值 : 31
注冊日期 : 2014-05-02
男 處女座 鼠

回頂端 向下

上一篇主題 下一篇主題 回頂端


 
這個論壇的權限:
無法 在這個版面回復文章