[分享]新增標註型式LSP
[分享]新增標註型式LSP
主題回顧 :
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)
)
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)
)
小豬- 初級會員
- 文章總數 : 17
年齡 : 33
來自 : 台北
職業 : 打雜
愛好 : 上網
個性 : 隨和
使用年資 : 初學者
使用版本 : 2010
積分 : 1
經驗值 : 4407
威望值 : 45
發帖精華 : 0
注冊日期 : 2009-06-12
回復: [分享]新增標註型式LSP
正好在找相關資料,感謝分享
lcskc- 一般會員
- 文章總數 : 59
年齡 : 48
來自 : 高雄
職業 : 模具
愛好 : pc相關
個性 : 安靜
使用年資 : 10
使用版本 : R12
經驗值 : 2853
威望值 : 31
注冊日期 : 2014-05-02
回復: [分享]新增標註型式LSP
好方便,有空來試試,謝謝分享。
lmt112233- 一般會員
- 文章總數 : 90
年齡 : 62
來自 : hk
職業 : 結構繪圖
愛好 : 旅遊
個性 : 樂觀
使用年資 : 16
使用版本 : acad2012
經驗值 : 4479
威望值 : 30
注冊日期 : 2010-02-21
回復: [分享]新增標註型式LSP
很方便的~這樣不用一直跑設定去改字及箭頭大小了
dollarxx- 一般會員
- 文章總數 : 12
年齡 : 40
來自 : 桃園市桃園區
職業 : 建築
愛好 : 繪圖
個性 : 樂觀
使用年資 : 5年
使用版本 : 2007至2012
經驗值 : 2199
威望值 : 0
注冊日期 : 2015-06-01
回復: [分享]新增標註型式LSP
趕快來試試,感謝分享謝謝!
lxg3443- 一般會員
- 文章總數 : 14
年齡 : 33
來自 : 北京
職業 : cad
愛好 : 音乐
個性 : 活泼
使用年資 : 5年
使用版本 : 2014
經驗值 : 2555
威望值 : 0
注冊日期 : 2014-06-06
回復: [分享]新增標註型式LSP
謝謝小豬大大提供~
小弟不客氣收下,來去研究一下!
謝謝...
小弟不客氣收下,來去研究一下!
謝謝...
hkjyiuop- 初級會員
- 文章總數 : 100
年齡 : 33
來自 : 台灣新北市土城區
職業 : 機電工程師
愛好 : 學習
個性 : 開朗
使用年資 : 2年
使用版本 : 2016
積分 : 1
經驗值 : 3068
威望值 : 54
注冊日期 : 2014-04-25
回復: [分享]新增標註型式LSP
看起來很棒喔,下載來試試。
C.C.CHIEN- 贊助會員
- 文章總數 : 29
年齡 : 56
來自 : 花蓮
職業 : 石材裝修設計與工地管理
愛好 : 大自然、運動、聽音樂
個性 : 沉默安靜
使用年資 : 10年
使用版本 : 2012
經驗值 : 4565
威望值 : 12
注冊日期 : 2009-02-10
回復: [分享]新增標註型式LSP
看看是什么新标注
alexmai- 一般會員
- 文章總數 : 42
年齡 : 41
來自 : guangzhou china
職業 : designer
愛好 : design
個性 : happy
使用年資 : 10years
使用版本 : autocad 2010
經驗值 : 3388
威望值 : 34
注冊日期 : 2012-08-16
回復: [分享]新增標註型式LSP
這LISP太厲害了,我很需要此物
jaco4942- 初級會員
- 文章總數 : 65
年齡 : 28
來自 : 台中
職業 : 車銑加工業
愛好 : 機械
個性 : 隨興
使用年資 : 1年
使用版本 : 2016
積分 : 1
經驗值 : 4430
威望值 : 14
注冊日期 : 2009-12-01
回復: [分享]新增標註型式LSP
很棒的程式,常用到歐!!!
benray- 初級會員
- 文章總數 : 189
年齡 : 52
來自 : 花蓮縣
職業 : 建築、機電設計(飯店整合)、室內設計、REVIT
愛好 : GAME
個性 : 悶燒
使用年資 : 15年
使用版本 : 2016、2018版
積分 : 6
經驗值 : 5183
威望值 : 85
發帖精華 : 1
注冊日期 : 2008-10-12
回復: [分享]新增標註型式LSP
這樣感覺很方便,非常感謝~~
cd7025- 初級會員
- 文章總數 : 20
年齡 : 39
來自 : 台北市
職業 : 室內設計
愛好 : 興趣廣泛
個性 : 隨和
使用年資 : 1年
使用版本 : 2011
積分 : 2
經驗值 : 3767
威望值 : 19
注冊日期 : 2011-03-19
回復: [分享]新增標註型式LSP
這麼好用的程式替我省下一些麻煩步驟,試用一下!感謝~~ 

MK WU- 初級會員
- 文章總數 : 65
年齡 : 48
來自 : 台灣台北
職業 : 工
愛好 : 看電視
個性 : 隨緣
使用年資 : 1年
使用版本 : 2013
積分 : 1
經驗值 : 3538
威望值 : 57
注冊日期 : 2012-07-02
回復: [分享]新增標註型式LSP
謝謝分享~常常出圖要使用不同比例
anais99- 初級會員
- 文章總數 : 90
年齡 : 42
來自 : 台北縣
職業 : 模具製圖
愛好 : 騎自行車
個性 : 開朗
使用年資 : 12
使用版本 : 2010
積分 : 4
經驗值 : 4283
威望值 : 12
注冊日期 : 2010-06-14
回復: [分享]新增標註型式LSP
看起來好方便 感謝分享
沉默- 初級會員
- 文章總數 : 18
年齡 : 29
來自 : 台北
職業 : 家具設計
愛好 : 電腦
個性 : 古板
使用年資 : 10
使用版本 : 2014
積分 : 1
經驗值 : 1877
威望值 : 30
注冊日期 : 2016-06-15
回復: [分享]新增標註型式LSP
好實用的工具喔,感謝分享。
hung- 一般會員
- 文章總數 : 51
年齡 : 48
來自 : 台北
職業 : 電腦繪圖
愛好 : 看電影
個性 : 樂觀
使用年資 : 15
使用版本 : 2014
經驗值 : 4760
威望值 : 0
注冊日期 : 2008-10-08
回復: [分享]新增標註型式LSP
感謝分享 謝謝
ming1789- 一般會員
- 文章總數 : 26
年齡 : 45
來自 : 彰化
職業 : 機械
愛好 : 上網
個性 : 樂觀
使用年資 : 10
使用版本 : 2014
經驗值 : 1884
威望值 : 0
注冊日期 : 2016-06-18
回復: [分享]新增標註型式LSP
有心的標註方式
jeamtseng32- 新手上路
- 文章總數 : 2
年齡 : 43
來自 : 台北市
職業 : 建築
愛好 : 建築
個性 : 樂觀
使用年資 : 10年
使用版本 : 2011
經驗值 : 2269
威望值 : 0
注冊日期 : 2015-02-05
回復: [分享]新增標註型式LSP
先下載下來了 感謝大大分享
jackiehover- 初級會員
- 文章總數 : 149
年齡 : 35
來自 : 桃園市八德區
職業 : 消防設備、水電設計
愛好 : 上網、遊戲、網拍
個性 : 平易近人
使用年資 : 2014/09至今
使用版本 : 2014、15、16
積分 : 1
經驗值 : 2806
威望值 : 90
注冊日期 : 2015-08-31
回復: [分享]新增標註型式LSP
來試試看!! 感謝~!
millerwu91- 一般會員
- 文章總數 : 34
年齡 : 34
來自 : 板橋
職業 : 土木工程
愛好 : 看電影
個性 : 友善
使用年資 : 1
使用版本 : 2012
經驗值 : 2591
威望值 : 6
注冊日期 : 2014-09-16
回復: [分享]新增標註型式LSP
感謝無私分享
蠻實用的功能
蠻實用的功能
gt05yzxy- 一般會員
- 文章總數 : 8
年齡 : 28
來自 : 台北
職業 : 室內設計
愛好 : 設計
個性 : 要求完美
使用年資 : 3年
使用版本 : 2018
經驗值 : 725
威望值 : 6
注冊日期 : 2019-06-03
回復: [分享]新增標註型式LSP
謝謝分享!!!!!!
oopsyyyyy- 贊助會員
- 文章總數 : 40
年齡 : 27
來自 : 台北
職業 : 結構助理工程師
愛好 : 看電影
個性 : 活潑
使用年資 : 3
使用版本 : 2017
經驗值 : 1007
威望值 : 6
注冊日期 : 2019-01-19
回復: [分享]新增標註型式LSP
~~這個分享好像沒有lsp可下載,只能靠自已看螢幕打字???
hueigo- 初級會員
- 文章總數 : 91
年齡 : 56
來自 : 台中
職業 : 建築設計師
愛好 : 圍棋
個性 : 平實
使用年資 : 15
使用版本 : 2013
積分 : 4
經驗值 : 3643
威望值 : 121
注冊日期 : 2012-10-01
回復: [分享]新增標註型式LSP
指令: ddd
尺寸比例:1
圖面比例:2
; 錯誤: 已拒絕 AutoCAD 變數設定值: "DIMFXL" 0.625
我沒辦法用ㄝ
尺寸比例:1
圖面比例:2
; 錯誤: 已拒絕 AutoCAD 變數設定值: "DIMFXL" 0.625
我沒辦法用ㄝ
greatmuta- 初級會員
- 文章總數 : 51
年齡 : 38
來自 : 桃園
職業 : 模具
愛好 : 上班以外時間放空睡覺
個性 : 討厭麻煩事
使用年資 : 10
使用版本 : 2004
積分 : 1
經驗值 : 3027
威望值 : 15
注冊日期 : 2013-08-12
回復: [分享]新增標註型式LSP
win7測試沒問題
但在win10上字體會顯示亂碼
但在win10上字體會顯示亂碼
wuwubaibai- 一般會員
- 文章總數 : 60
年齡 : 38
來自 : 彰化市
職業 : 板金
愛好 : 電腦
個性 : 外向
使用年資 : 4
使用版本 : 2010
經驗值 : 2873
威望值 : 0
注冊日期 : 2014-04-18
回復: [分享]新增標註型式LSP
感謝樓主分享喔
章富傑- 一般會員
- 文章總數 : 23
年齡 : 43
來自 : 基隆市
職業 : 機、水、電工程
愛好 : 騎重車
個性 : 開朗
使用年資 : 5年以上
使用版本 : 2014
經驗值 : 1495
威望值 : 6
注冊日期 : 2017-06-17
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第3頁(共3頁)
這個論壇的權限:
您 無法 在這個版面回復文章