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

[分享]新增標註型式LSP

1頁(共3頁) 1, 2, 3  下一步

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

[分享]新增標註型式LSP

發表 由 小豬 于 2014-12-27, 16:41


https://youtu.be/zveWnCRRsn4
(defun c:ddd ()
 (vl-load-com)
 (setvar "cmdecho" 0)
 (SETQ A (GETREAL "\n尺寸比例:"))
 (SETQ B (GETREAL "\n圖面比例:"))
 (COMMAND "-STYLE" "尺" "isocp.shx,chineset.shx" "0" "0.8" "" "" "")
 (setvar "DIMALTF" 2.5)
 (setvar "DIMTOLJ" 0)
 (setvar "DIMTFAC" 0.8000)
 (setvar "DIMTDEC" 3)
 (setvar "DIMTZIN" 8)
 (setvar "DIMFXL" (/ 1.25 B))
 (setvar "DIMATFIT" 3)
 (setvar "DIMALTTD" 3)
 (setvar "DIMLTEX1" "BYLAYER")
 (setvar "DIMLTEX2" "BYLAYER")
 (setvar "DIMEXO" (/ 0.6250 B))
 (setvar "DIMEXE" (/ 1.250 B))
 (setvar "DIMLWE" 13)
 (setvar "DIMCLRE" 3)
 (setvar "DIMTOFL" 1)
 (setvar "DIMTAD" 1)
 (setvar "DIMGAP" (/ 0.6250 B))
 (setvar "DIMTIH" 0)
 (setvar "DIMTXSTY" "尺")
 (setvar "DIMTOH" 0)
 (setvar "DIMCLRT" 1)
 (setvar "DIMTXT" (/ 3.0 B))
 (setvar "DIMLTYPE" "BYLAYER")
 (setvar "DIMLWD" 13)
 (setvar "DIMDLI" (/ 3.750 B))
 (setvar "DIMCLRD" 3)
 (setvar "DIMASZ" (/ 3.0 B))
 (setvar "DIMDEC" 3)
 (setvar "DIMLFAC" (/ 1 A))
 (setvar "DIMZIN" 8)
 (setvar "DIMAZIN" 2)
 (setvar "DIMADEC" 3)

 (if (= A B 1)
   (SETQ TT "ISO-25")
   (PROGN

     (SETQ TT (STRCAT (setq A (rtos A 2 1))
      '"-ISO-25-"
      (setq B (rtos B 2 1))
      )
     )
   )


 )
;-------------------------------------------------------------

 (setq ad (vla-get-ActiveDocument (vlax-get-acad-object)))
 (setq obj (vla-add (vla-get-dimstyles ad) TT))
 (vla-copyfrom Obj ad)
 (vla-put-activedimstyle ad Obj)

 (princ)
)
avatar
小豬
初級會員
初級會員

文章總數 : 17
年齡 : 29
來自 : 台北
職業 : 打雜
愛好 : 上網
個性 : 隨和
使用年資 : 初學者
使用版本 : 2010
積分 : 1
經驗值 : 3133
威望值 : 45
發帖精華 : 0
注冊日期 : 2009-06-12
男 摩羯座 兔

回頂端 向下

回復: [分享]新增標註型式LSP

發表 由 Tiger&蘋果爸 于 2014-12-29, 08:59

讚啦!! 謝謝小豬的分享~
我還沒有空試用,各位可以先試試喔~
謝謝囉

____________________________________________________________________________________
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

回頂端 向下

回復: [分享]新增標註型式LSP

發表 由 kiko 于 2014-12-29, 09:41

答對了 好方便,有空來試試,謝謝分享。
avatar
kiko
中級會員
中級會員

文章總數 : 195
年齡 : 41
來自 : 台灣省新北市
職業 : 通訊工程製圖
愛好 : 唱歌,K韓劇及恐怖片
個性 : 開朗.隨和
使用年資 : 6年
使用版本 : 2004版
積分 : 7
經驗值 : 3586
威望值 : 112
注冊日期 : 2008-10-22
經典問與答讀者 藍鵲72號
串連貼紙成功 女 白羊座 龍

http://tw.myblog.yahoo.com/kiko-qq

回頂端 向下

回復: [分享]新增標註型式LSP

發表 由 archkkuo 于 2014-12-29, 09:52

讚...讚...讚...真正讚啦....
avatar
archkkuo
初級會員
初級會員

文章總數 : 12
年齡 : 45
來自 : tapai
職業 : 建築師事務所跑工地的
愛好 : 電玩
個性 : 外向
使用年資 : 1
使用版本 : 2008
積分 : 1
經驗值 : 2879
威望值 : 6
注冊日期 : 2010-01-25
藍鵲41號
男 水瓶座 豬

回頂端 向下

回復: [分享]新增標註型式LSP

發表 由 qaz6605 于 2014-12-29, 11:09

新方法,下載來試試看.

qaz6605
初級會員
初級會員

文章總數 : 166
年齡 : 39
來自 : 台南市
職業 : 繪圖員
愛好 : 有關電腦的
個性 : 外向
使用年資 : 剛剛初道
使用版本 : 2006
積分 : 2
經驗值 : 3930
威望值 : 82
注冊日期 : 2008-12-31
經典問與答讀者 藍鵲285號
男 處女座 馬

回頂端 向下

回復: [分享]新增標註型式LSP

發表 由 crihy 于 2014-12-29, 12:27

可惜看不清楚指令操作的部分,但誠摯感謝小豬大大提供資訊分享,不知道這個LISP有沒有版本的限制...

crihy
初級會員
初級會員

文章總數 : 155
年齡 : 41
來自 : earth worth
職業 : 建築、結構、土木、水利、水保
愛好 : 學習專業知識
個性 : 認真上進
使用年資 : 自80年起
使用版本 : 2014
積分 : 2
經驗值 : 4303
威望值 : 213
注冊日期 : 2008-05-13
藍鵲366號
男 處女座 龍

回頂端 向下

回復: [分享]新增標註型式LSP

發表 由 ji2342 于 2014-12-29, 13:36

這個好用,常常使用到,推薦一下!感謝!
avatar
ji2342
中級會員
中級會員

文章總數 : 111
年齡 : 48
來自 : 台中市
職業 : 水土保持土木監造
愛好 : 電腦、軟體應用,手機APP運用,旅遊
個性 :
使用年資 : 16~
使用版本 : 2010,2014
積分 : 5
經驗值 : 3552
威望值 : 50
注冊日期 : 2008-09-12
2D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲514號
2010聚會勳章 男 處女座 雞

回頂端 向下

回復: [分享]新增標註型式LSP

發表 由 djh1006 于 2014-12-30, 11:23

光看示範影片就覺得超級好用,而且常會用到,感謝分享
標題名稱或許可以加註:(標註特徵的比例)
是不是更趨近這個好用的功能
avatar
djh1006
中級會員
中級會員

文章總數 : 156
年齡 : 46
來自 : 彰化縣員林鎮中山路二段369巷二弄15-14號
職業 : 沖壓模具設計工程師
愛好 : UG,SOLIDWORKS,AUTOCAD 2D,autolisp
個性 : 內向偏外
使用年資 : 18以上
使用版本 : 2014
積分 : 6
經驗值 : 3401
威望值 : 294
注冊日期 : 2011-06-16
男 獅子座 豬

回頂端 向下

回復: [分享]新增標註型式LSP

發表 由 a258 于 2014-12-30, 14:44

誠摯感謝小豬大大提供先下載試用看看
avatar
a258
初級會員
初級會員

文章總數 : 37
年齡 : 50
來自 : 桃園
職業 :
愛好 : 電腦
個性 : 自由
使用年資 : 1
使用版本 : 2008
積分 : 2
經驗值 : 2813
威望值 : 18
注冊日期 : 2010-07-10
顧問外掛程式 經典問與答讀者 藍鵲551號
男 雙子座 羊

回頂端 向下

回復: [分享]新增標註型式LSP

發表 由 junbafa74 于 2014-12-31, 00:34

AUTOCAD原始標註方式不人性化,先下載來測試一下,感謝分享~~
avatar
junbafa74
初級會員
初級會員

文章總數 : 80
年齡 : 43
來自 : 台中
職業 : 施工圖繪圖員
愛好 : 跑步運動
個性 : 開朗
使用年資 : 約3年
使用版本 : 2014
積分 : 2
經驗值 : 1741
威望值 : 78
注冊日期 : 2014-02-26
男 金牛座 虎

回頂端 向下

回復: [分享]新增標註型式LSP

發表 由 judyyai 于 2014-12-31, 00:43

謝謝分享~有空來試試看
這LSP的功效~

____________________________________________________________________________________
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聚會勳章 串連貼紙成功 女 巨蟹座 蛇

回頂端 向下

回復: [分享]新增標註型式LSP

發表 由 maculon 于 2014-12-31, 17:09

感謝分享!看起來很方便,工作上會用的到。
趕快下載來試試,謝謝了!
avatar
maculon
初級會員
初級會員

文章總數 : 45
年齡 : 47
來自 : 彰化縣
職業 : 模板工程
愛好 : book
個性 : 愛看書
使用年資 : 3年
使用版本 : 2008及2010
積分 : 1
經驗值 : 2114
威望值 : 18
注冊日期 : 2012-07-30
3D基礎函授 經典問與答讀者 藍鵲545號
男 巨蟹座 狗

回頂端 向下

回復: [分享]新增標註型式LSP

發表 由 DARDAR 于 2015-01-01, 12:13


趕快來試試,感謝分享謝謝!
avatar
DARDAR
高級會員
高級會員

文章總數 : 281
年齡 : 59
來自 : 台北
職業 : 營造金屬
愛好 : AutoCAD
個性 : 隨和
使用年資 : 5年↑
使用版本 : 2012
積分 : 15
經驗值 : 3898
威望值 : 90
注冊日期 : 2008-05-13
經典問與答讀者 藍鵲49號
男 白羊座 狗

回頂端 向下

回復: [分享]新增標註型式LSP

發表 由 hueigo 于 2015-01-04, 07:07

很好用的標註lisp,能夠依圖面大小,我也想來研究一個變化修改標註符號和箭頭的lisp。
avatar
hueigo
初級會員
初級會員

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

回頂端 向下

回復: [分享]新增標註型式LSP

發表 由 EVONNE 于 2015-01-06, 16:45

好方便,對我的工作應有很大幫助,THANK'S!!
avatar
EVONNE
初級會員
初級會員

文章總數 : 79
年齡 : 49
來自 : 苓雅區
職業 : 繪圖
愛好 : 看書
個性 : 尚可
使用年資 : 10
使用版本 : 2014 2016
積分 : 1
經驗值 : 2650
威望值 : 30
注冊日期 : 2011-07-18
藍鵲329號
女 天秤座 猴

回頂端 向下

回復: [分享]新增標註型式LSP

發表 由 et1029et 于 2015-01-23, 01:57

這樣以後就不用設太多標註型式了
感謝分享便捷的程式 讚啦!!
avatar
et1029et
初級會員
初級會員

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

回頂端 向下

回復: [分享]新增標註型式LSP

發表 由 randytsay 于 2015-02-11, 04:41

看起來好像很有用,只是操作畫面字太小看不太清楚
avatar
randytsay
初級會員
初級會員

文章總數 : 40
年齡 : 38
來自 : taipei
職業 : autocad
愛好 : movie
個性 : happy
使用年資 : 10
使用版本 : 2008
積分 : 1
經驗值 : 2622
威望值 : 18
注冊日期 : 2011-02-07
藍鵲153號
男 天蝎座 馬

回頂端 向下

回復: [分享]新增標註型式LSP

發表 由 a258 于 2015-03-08, 23:58

下載測試應該不錯用
謝謝
avatar
a258
初級會員
初級會員

文章總數 : 37
年齡 : 50
來自 : 桃園
職業 :
愛好 : 電腦
個性 : 自由
使用年資 : 1
使用版本 : 2008
積分 : 2
經驗值 : 2813
威望值 : 18
注冊日期 : 2010-07-10
顧問外掛程式 經典問與答讀者 藍鵲551號
男 雙子座 羊

回頂端 向下

回復: [分享]新增標註型式LSP

發表 由 leo133943 于 2015-03-09, 03:26

有需要用到,來試試看
avatar
leo133943
一般會員
一般會員

文章總數 : 16
年齡 : 50
來自 : 新竹
職業 :
愛好 : 電影
個性 : 衝動
使用年資 : 10
使用版本 : 2008
經驗值 : 2273
威望值 : 3
注冊日期 : 2011-10-07
男 雙子座 羊

回頂端 向下

回復: [分享]新增標註型式LSP

發表 由 JYHBIN 于 2015-03-09, 05:21

方便的好LISP程式,是工作上的好幫手!!
avatar
JYHBIN
一般會員
一般會員

文章總數 : 50
年齡 : 55
來自 : 高雄
職業 : 工程師
愛好 : 土木、建築、室內
個性 : 還OK啦!
使用年資 : 20
使用版本 : 2015
經驗值 : 2494
威望值 : 18
注冊日期 : 2011-08-03
藍鵲183號
男 獅子座 虎

回頂端 向下

回復: [分享]新增標註型式LSP

發表 由 ma62266750 于 2015-03-09, 06:18

承蒙大大無私奉獻,在此謝過!
avatar
ma62266750
初級會員
初級會員

文章總數 : 30
年齡 : 47
來自 : 九龍
職業 : 待業
愛好 : autocad
個性 : 唔錯
使用年資 : 2
使用版本 : 2009
積分 : 1
經驗值 : 1439
威望值 : 6
注冊日期 : 2014-03-12
男 天蝎座 雞

回頂端 向下

回復: [分享]新增標註型式LSP

發表 由 sabina0827 于 2015-03-09, 08:20

謝謝分享....這樣在標註時,會方便很多...丫裡壓抖
avatar
sabina0827
一般會員
一般會員

文章總數 : 43
年齡 : 37
來自 : 台北
愛好 : MUSIC
個性 :
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 2332
威望值 : 30
注冊日期 : 2012-01-04
藍鵲321號
女 處女座 猴

回頂端 向下

回復: [分享]新增標註型式LSP

發表 由 abcisabc 于 2015-03-09, 10:46

感謝大大
無私分享
滿新奇的
試看看
謝謝分享
avatar
abcisabc
一般會員
一般會員

文章總數 : 9
年齡 : 31
來自 : 天龍國
職業 : 工程師
愛好 : CAD
個性 : 安靜
使用年資 : 2年
使用版本 : 2013
經驗值 : 1490
威望值 : 0
注冊日期 : 2013-10-25
男 巨蟹座 虎

回頂端 向下

回復: [分享]新增標註型式LSP

發表 由 tjs1466 于 2015-03-09, 10:53

感謝分享,這些都很實用
avatar
tjs1466
一般會員
一般會員

文章總數 : 49
年齡 : 45
來自 : 高雄
職業 : 土木繪圖
愛好 : 運動
個性 : 樂觀
使用年資 : 5年
使用版本 : 2012
經驗值 : 1600
威望值 : 36
注冊日期 : 2013-12-30
藍鵲648號
男 獅子座 鼠

回頂端 向下

回復: [分享]新增標註型式LSP

發表 由 Tsar 于 2015-03-09, 13:23

最常大量用到的功能...
方便的lisp.謝謝分享.
avatar
Tsar
一般會員
一般會員

文章總數 : 28
年齡 : 44
來自 : Taichung
職業 : 建築石材.
愛好 : 電腦.遊戲.
個性 : 潛龍
使用年資 : 15以上
使用版本 : 2012
經驗值 : 2465
威望值 : 0
注冊日期 : 2011-05-03
男 射手座 鼠

回頂端 向下

1頁(共3頁) 1, 2, 3  下一步

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


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