[分享]新增標註型式LSP
+68
oopsyyyyy
gt05yzxy
millerwu91
jackiehover
jeamtseng32
ming1789
hung
沉默
anais99
MK WU
cd7025
benray
jaco4942
alexmai
C.C.CHIEN
hkjyiuop
lxg3443
dollarxx
lmt112233
lcskc
eazy0623
Janet90224
lolo0314
Joan-Yeh
kaven0922
ccxsw
厚速共
panshuru
zhangcan0516
kit92064
weiyaolieh
jgt2035
a0928311114
hugh817
minitsao
奶茶
john351486
ctest
wawhch
salad123
eric770914
ling1027
鄭淑娟
virage7676
Tsar
tjs1466
abcisabc
sabina0827
ma62266750
JYHBIN
leo133943
randytsay
et1029et
EVONNE
hueigo
DARDAR
maculon
judyyai
junbafa74
a258
djh1006
ji2342
crihy
qaz6605
archkkuo
kiko
Tiger&蘋果爸
小豬
72 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第3頁(共4頁)
[分享]新增標註型式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
年齡 : 36
來自 : 台北
職業 : 打雜
愛好 : 上網
個性 : 隨和
使用年資 : 初學者
使用版本 : 2010
積分 : 1
經驗值 : 5678
威望值 : 45
發帖精華 : 0
注冊日期 : 2009-06-12
回復: [分享]新增標註型式LSP
正好在找相關資料,感謝分享
lcskc- 一般會員
- 文章總數 : 59
年齡 : 52
來自 : 高雄
職業 : 模具
愛好 : pc相關
個性 : 安靜
使用年資 : 10
使用版本 : R12
經驗值 : 4124
威望值 : 31
注冊日期 : 2014-05-02
回復: [分享]新增標註型式LSP
好方便,有空來試試,謝謝分享。
lmt112233- 贊助會員
- 文章總數 : 107
年齡 : 65
來自 : hk
職業 : 結構繪圖
愛好 : 旅遊
個性 : 樂觀
使用年資 : 16
使用版本 : acad2012
經驗值 : 5833
威望值 : 30
注冊日期 : 2010-02-21
回復: [分享]新增標註型式LSP
很方便的~這樣不用一直跑設定去改字及箭頭大小了
dollarxx- 一般會員
- 文章總數 : 14
年齡 : 43
來自 : 桃園市桃園區
職業 : 建築
愛好 : 繪圖
個性 : 樂觀
使用年資 : 5年
使用版本 : 2007至2012
經驗值 : 3480
威望值 : 0
注冊日期 : 2015-06-01
回復: [分享]新增標註型式LSP
趕快來試試,感謝分享謝謝!
lxg3443- 一般會員
- 文章總數 : 14
年齡 : 37
來自 : 北京
職業 : cad
愛好 : 音乐
個性 : 活泼
使用年資 : 5年
使用版本 : 2014
經驗值 : 3826
威望值 : 0
注冊日期 : 2014-06-06
回復: [分享]新增標註型式LSP
謝謝小豬大大提供~
小弟不客氣收下,來去研究一下!
謝謝...
小弟不客氣收下,來去研究一下!
謝謝...
hkjyiuop- 初級會員
- 文章總數 : 105
年齡 : 36
來自 : 台灣新北市土城區
職業 : 機電工程師
愛好 : 學習
個性 : 開朗
使用年資 : 2年
使用版本 : 2016
積分 : 1
經驗值 : 4374
威望值 : 54
注冊日期 : 2014-04-25
回復: [分享]新增標註型式LSP
看起來很棒喔,下載來試試。
C.C.CHIEN- 一般會員
- 文章總數 : 29
年齡 : 59
來自 : 花蓮
職業 : 石材裝修設計與工地管理
愛好 : 大自然、運動、聽音樂
個性 : 沉默安靜
使用年資 : 10年
使用版本 : 2012
經驗值 : 5836
威望值 : 12
注冊日期 : 2009-02-10
回復: [分享]新增標註型式LSP
看看是什么新标注
alexmai- 一般會員
- 文章總數 : 42
年齡 : 44
來自 : guangzhou china
職業 : designer
愛好 : design
個性 : happy
使用年資 : 10years
使用版本 : autocad 2010
經驗值 : 4659
威望值 : 34
注冊日期 : 2012-08-16
回復: [分享]新增標註型式LSP
這LISP太厲害了,我很需要此物
jaco4942- 初級會員
- 文章總數 : 65
年齡 : 31
來自 : 台中
職業 : 車銑加工業
愛好 : 機械
個性 : 隨興
使用年資 : 1年
使用版本 : 2016
積分 : 1
經驗值 : 5701
威望值 : 14
注冊日期 : 2009-12-01
回復: [分享]新增標註型式LSP
很棒的程式,常用到歐!!!
benray- 專屬會員
- 文章總數 : 199
年齡 : 55
來自 : 花蓮縣
職業 : 建築、機電設計(飯店整合)、室內設計、REVIT
愛好 : GAME
個性 : 悶燒
使用年資 : >20年
使用版本 : 2025版
積分 : 6
經驗值 : 6510
威望值 : 103
發帖精華 : 1
注冊日期 : 2008-10-12
回復: [分享]新增標註型式LSP
這樣感覺很方便,非常感謝~~
cd7025- 初級會員
- 文章總數 : 20
年齡 : 43
來自 : 台北市
職業 : 室內設計
愛好 : 興趣廣泛
個性 : 隨和
使用年資 : 1年
使用版本 : 2011
積分 : 2
經驗值 : 5038
威望值 : 19
注冊日期 : 2011-03-19
回復: [分享]新增標註型式LSP
這麼好用的程式替我省下一些麻煩步驟,試用一下!感謝~~
MK WU- 初級會員
- 文章總數 : 67
年齡 : 51
來自 : 台灣台北
職業 : 工
愛好 : 看電視
個性 : 隨緣
使用年資 : 1年
使用版本 : 2013
積分 : 1
經驗值 : 4824
威望值 : 57
注冊日期 : 2012-07-02
回復: [分享]新增標註型式LSP
謝謝分享~常常出圖要使用不同比例
anais99- 初級會員
- 文章總數 : 107
年齡 : 46
來自 : 台北縣
職業 : 模具製圖
愛好 : 騎自行車
個性 : 開朗
使用年資 : 12
使用版本 : 2010
積分 : 4
經驗值 : 5637
威望值 : 12
注冊日期 : 2010-06-14
回復: [分享]新增標註型式LSP
看起來好方便 感謝分享
沉默- 初級會員
- 文章總數 : 18
年齡 : 33
來自 : 台北
職業 : 家具設計
愛好 : 電腦
個性 : 古板
使用年資 : 10
使用版本 : 2014
積分 : 1
經驗值 : 3148
威望值 : 30
注冊日期 : 2016-06-15
回復: [分享]新增標註型式LSP
好實用的工具喔,感謝分享。
hung- 一般會員
- 文章總數 : 58
年齡 : 52
來自 : 台北
職業 : 電腦繪圖
愛好 : 看電影
個性 : 樂觀
使用年資 : 15
使用版本 : 2014
經驗值 : 6066
威望值 : 0
注冊日期 : 2008-10-08
回復: [分享]新增標註型式LSP
感謝分享 謝謝
ming1789- 一般會員
- 文章總數 : 26
年齡 : 49
來自 : 彰化
職業 : 機械
愛好 : 上網
個性 : 樂觀
使用年資 : 10
使用版本 : 2014
經驗值 : 3155
威望值 : 0
注冊日期 : 2016-06-18
回復: [分享]新增標註型式LSP
有心的標註方式
jeamtseng32- 新手(尚未報到升等一般會員)
- 文章總數 : 2
年齡 : 46
來自 : 台北市
職業 : 建築
愛好 : 建築
個性 : 樂觀
使用年資 : 10年
使用版本 : 2011
經驗值 : 3540
威望值 : 0
注冊日期 : 2015-02-05
回復: [分享]新增標註型式LSP
先下載下來了 感謝大大分享
jackiehover- 初級會員
- 文章總數 : 160
年齡 : 38
來自 : 桃園市八德區
職業 : 消防設備、水電設計
愛好 : 上網、遊戲、網拍
個性 : 平易近人
使用年資 : 2014/09至今
使用版本 : 2014、15、16
積分 : 1
經驗值 : 4143
威望值 : 96
注冊日期 : 2015-08-31
回復: [分享]新增標註型式LSP
來試試看!! 感謝~!
millerwu91- 一般會員
- 文章總數 : 36
年齡 : 38
來自 : 板橋
職業 : 土木工程
愛好 : 看電影
個性 : 友善
使用年資 : 1
使用版本 : 2012
經驗值 : 3872
威望值 : 6
注冊日期 : 2014-09-16
回復: [分享]新增標註型式LSP
感謝無私分享
蠻實用的功能
蠻實用的功能
gt05yzxy- 一般會員
- 文章總數 : 9
年齡 : 32
來自 : 台北
職業 : 室內設計
愛好 : 設計
個性 : 要求完美
使用年資 : 3年
使用版本 : 2018
經驗值 : 2001
威望值 : 6
注冊日期 : 2019-06-03
回復: [分享]新增標註型式LSP
謝謝分享!!!!!!
oopsyyyyy- 一般會員
- 文章總數 : 47
年齡 : 30
來自 : 台北
職業 : 結構助理工程師
愛好 : 看電影
個性 : 活潑
使用年資 : 3
使用版本 : 2017
經驗值 : 2315
威望值 : 6
注冊日期 : 2019-01-19
回復: [分享]新增標註型式LSP
~~這個分享好像沒有lsp可下載,只能靠自已看螢幕打字???
hueigo- 初級會員
- 文章總數 : 94
年齡 : 59
來自 : 台中
職業 : 建築設計師
愛好 : 圍棋
個性 : 平實
使用年資 : 15
使用版本 : 2013
積分 : 4
經驗值 : 4932
威望值 : 121
注冊日期 : 2012-10-01
回復: [分享]新增標註型式LSP
已經補上附件囉~hueigo 寫到:~~這個分享好像沒有lsp可下載,只能靠自已看螢幕打字???
____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
回復: [分享]新增標註型式LSP
指令: ddd
尺寸比例:1
圖面比例:2
; 錯誤: 已拒絕 AutoCAD 變數設定值: "DIMFXL" 0.625
我沒辦法用ㄝ
尺寸比例:1
圖面比例:2
; 錯誤: 已拒絕 AutoCAD 變數設定值: "DIMFXL" 0.625
我沒辦法用ㄝ
greatmuta- 初級會員
- 文章總數 : 54
年齡 : 42
來自 : 桃園
職業 : 模具
愛好 : 上班以外時間放空睡覺
個性 : 討厭麻煩事
使用年資 : 10
使用版本 : 2004
積分 : 1
經驗值 : 4309
威望值 : 15
注冊日期 : 2013-08-12
回復: [分享]新增標註型式LSP
win7測試沒問題
但在win10上字體會顯示亂碼
但在win10上字體會顯示亂碼
wuwubaibai- 一般會員
- 文章總數 : 70
年齡 : 42
來自 : 彰化市
職業 : 板金
愛好 : 電腦
個性 : 外向
使用年資 : 4
使用版本 : 2010
經驗值 : 4194
威望值 : 0
注冊日期 : 2014-04-18
回復: [分享]新增標註型式LSP
感謝樓主分享喔
章富傑- 一般會員
- 文章總數 : 25
年齡 : 46
來自 : 基隆市
職業 : 機、水、電工程
愛好 : 騎重車
個性 : 開朗
使用年資 : 5年以上
使用版本 : 2014
經驗值 : 2782
威望值 : 12
注冊日期 : 2017-06-17
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第3頁(共4頁)
這個論壇的權限:
您 無法 在這個版面回復文章