[分享]新增標註型式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顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第2頁(共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
經驗值 : 5726
威望值 : 45
發帖精華 : 0
注冊日期 : 2009-06-12
回復: [分享]新增標註型式LSP
謝謝分享即刻下載增長見識
virage7676- 一般會員
- 文章總數 : 30
年齡 : 47
來自 : 台中市北屯區
職業 : 自由業
愛好 : 慢跑
個性 : 寡言
使用年資 : 10
使用版本 : CAD2006
經驗值 : 4625
威望值 : -9
注冊日期 : 2012-08-04
回復: [分享]新增標註型式LSP
謝謝 先試試
鄭淑娟- 一般會員
- 文章總數 : 12
年齡 : 59
來自 : 林口
職業 : 建築
愛好 : 旅遊
個性 : 正直
使用年資 : 10年
使用版本 : 2011
經驗值 : 3793
威望值 : 0
注冊日期 : 2014-08-16
回復: [分享]新增標註型式LSP
謝謝大方分享資料~~
ling1027- 一般會員
- 文章總數 : 77
年齡 : 50
來自 : 新竹
職業 : CAD副工程師
愛好 : 認真的過生活
個性 : 冷靜...又熱清
使用年資 : 8年
使用版本 : 2004
經驗值 : 5320
威望值 : 48
注冊日期 : 2011-04-16
回復: [分享]新增標註型式LSP
謝謝分享~趕快來是看看!!感恩哪~
eric770914- 一般會員
- 文章總數 : 39
年齡 : 36
來自 : 新北市土城區
職業 : 營造業現場
愛好 : 賺錢
個性 : 衝動
使用年資 : 1年
使用版本 : 2014
經驗值 : 3917
威望值 : 0
注冊日期 : 2014-09-07
回復: [分享]新增標註型式LSP
感覺不錯的程式, 謝謝你的分享~
salad123- 一般會員
- 文章總數 : 61
年齡 : 41
來自 : 香港
職業 : 建築
愛好 : 寫lisp
個性 : 追求簡潔, 快捷
使用年資 : 5
使用版本 : 2011
經驗值 : 5440
威望值 : 108
注冊日期 : 2011-01-06
回復: [分享]新增標註型式LSP
好東西~用力推…
wawhch- 一般會員
- 文章總數 : 16
年齡 : 43
來自 : 台中
職業 : 製圖員
愛好 : 園藝
個性 : 好相處
使用年資 : 10
使用版本 : 2013
經驗值 : 4332
威望值 : 0
注冊日期 : 2013-03-24
回復: [分享]新增標註型式LSP
下載來試試看,感謝分享謝謝!
ctest- 一般會員
- 文章總數 : 59
年齡 : 55
來自 : 中壢
職業 : 待業
愛好 : watch
個性 : 溫和
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 5078
威望值 : 12
注冊日期 : 2011-09-19
回復: [分享]新增標註型式LSP
非常方便的小工具,感謝你的分享
john351486- 一般會員
- 文章總數 : 19
年齡 : 43
來自 : 中部
職業 : 五金加工
愛好 : 看書
個性 : 隨和
使用年資 : 新手
使用版本 : 2014
經驗值 : 3722
威望值 : 6
注冊日期 : 2014-12-13
回復: [分享]新增標註型式LSP
下載來試用看看,謝謝分享唷
奶茶- 初級會員
- 文章總數 : 54
年齡 : 48
來自 : 台南
職業 : 施工圖
愛好 : 上網
個性 : 開朗
使用年資 : 10年
使用版本 : AUTOCAD 2014
積分 : 2
經驗值 : 5991
威望值 : 30
注冊日期 : 2009-03-11
回復: [分享]新增標註型式LSP
感謝分享
看不太懂
抓下來試試看
看不太懂
抓下來試試看
minitsao- 一般會員
- 文章總數 : 21
年齡 : 45
來自 : 台南市
職業 : 消防設計
愛好 : 閱讀
個性 : 樂天
使用年資 : 6
使用版本 : 2008
經驗值 : 4501
威望值 : 0
注冊日期 : 2012-10-30
真是好工具
真想快點下載來用感恩
hugh817- 一般會員
- 文章總數 : 31
年齡 : 48
來自 : 台南
職業 : 工
愛好 : 發呆
個性 : 懶散
使用年資 : 5
使用版本 : 5
經驗值 : 4701
威望值 : 6
注冊日期 : 2012-06-02
回復: [分享]新增標註型式LSP
感謝分享,方便實用
a0928311114- 一般會員
- 文章總數 : 8
年齡 : 44
來自 : 台中
職業 : 工程助理
愛好 : 戶外活動
個性 : 隨和
使用年資 : 1年
使用版本 : 2010
經驗值 : 4578
威望值 : 0
注冊日期 : 2012-06-20
回復: [分享]新增標註型式LSP
此程式看似蠻好用,謝謝分享
是否具有可註解功能
是否具有可註解功能
jgt2035- 初級會員
- 文章總數 : 40
年齡 : 62
來自 : 台東縣
職業 : 水利工程
愛好 : 園藝
個性 : 勤快-老實
使用年資 : 5
使用版本 : 2010
積分 : 1
經驗值 : 4949
威望值 : 13
注冊日期 : 2011-11-11
好工具分享
下載使用,感謝分享。
weiyaolieh- 初級會員
- 文章總數 : 13
年齡 : 55
來自 : 桃園
職業 : 土木環工
愛好 : 遊玩
個性 : 活潑好動
使用年資 : 10年
使用版本 : 2004
積分 : 1
經驗值 : 5522
威望值 : 12
注冊日期 : 2009-12-08
kit92064- 一般會員
- 文章總數 : 44
年齡 : 49
來自 : 高雄
職業 : 工
愛好 : 閱讀
個性 : 普通
使用年資 : 20
使用版本 : 2016
經驗值 : 5403
威望值 : 0
注冊日期 : 2010-08-09
回復: [分享]新增標註型式LSP
提醒您:kit92064 寫到:謝謝,讚
回覆文章不得少於10個字(不包含符號,不可以重複),請多點鼓勵與互動!!
說明: http://autocad.bestoforum.net/t7044-topic
謝謝配合~
____________________________________________________________________________________
👉快速比例設定與出圖技巧-線上課程(點我)👈
回復: [分享]新增標註型式LSP
谢谢你的分享,看了视频很好用的样子
zhangcan0516- 初級會員
- 文章總數 : 83
年齡 : 33
來自 : 彰化
職業 : 結構工程師
愛好 : CAD,lisp,c,c++,vb
個性 : 温和
使用年資 : 5
使用版本 : 12
積分 : 1
經驗值 : 4114
威望值 : 36
注冊日期 : 2014-10-23
回復: [分享]新增標註型式LSP
好方便啊~~~真是嚇到我了,工作上常需要標註,這真是太好用了。
panshuru- 一般會員
- 文章總數 : 26
年齡 : 47
來自 : 新竹市
職業 : 繪圖員
愛好 : 上網
個性 : 內向
使用年資 : 7
使用版本 : 2011
經驗值 : 4349
威望值 : 0
注冊日期 : 2013-04-03
回復: [分享]新增標註型式LSP
謝謝分享,畫圖過程中常常花在標註的時間不亞於畫圖的時間說。
厚速共- 一般會員
- 文章總數 : 25
年齡 : 44
來自 : 桃園
職業 : 待業中
愛好 : 球賽欣賞
個性 : 隨和
使用年資 : 新手初學
使用版本 : 2012
經驗值 : 4290
威望值 : 18
注冊日期 : 2013-06-16
回復: [分享]新增標註型式LSP
我都是用 DIMSCALE 來改大小啦
ccxsw- 中級會員
- 文章總數 : 164
年齡 : 57
來自 : TAIWAN
職業 : AUTOCAD ENG
愛好 : sleep
個性 : 反戰
使用年資 : 18
使用版本 : 2008 MDT
積分 : 5
經驗值 : 6245
威望值 : 81
注冊日期 : 2008-10-04
回復: [分享]新增標註型式LSP
感謝分享!很實用!
kaven0922- 初級會員
- 文章總數 : 38
年齡 : 43
來自 : 台北
職業 : 設計師
愛好 : 畫圖
個性 : 沉穩
使用年資 : 5
使用版本 : 2010
經驗值 : 5458
威望值 : 0
注冊日期 : 2010-06-20
回復: [分享]新增標註型式LSP
太好了 感謝 分享 增強繪圖時間
Joan-Yeh- 專屬會員
- 文章總數 : 165
年齡 : 55
來自 : 台灣
職業 : 設計師
愛好 : 閱讀 放空
個性 : 中性
使用年資 : 10年
使用版本 : 2012
積分 : 1
經驗值 : 6350
威望值 : 15
注冊日期 : 2009-05-21
回復: [分享]新增標註型式LSP
新方法,下載來試試看
lolo0314- 一般會員
- 文章總數 : 21
年齡 : 44
來自 : 嘉義
職業 : 待業
愛好 : 營建
個性 : 運動
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 3910
威望值 : -3
注冊日期 : 2014-06-16
回復: [分享]新增標註型式LSP
越用越上手,感謝無私分享
Janet90224- 一般會員
- 文章總數 : 27
年齡 : 36
來自 : 高雄市
職業 : 室內設計師
愛好 : 攝影、旅遊、寵物
個性 : 相處外向隨和、實際地雷特多
使用年資 : 8年還在研學
使用版本 : 2010
經驗值 : 3871
威望值 : 18
注冊日期 : 2014-08-29
回復: [分享]新增標註型式LSP
感謝前輩分享,原本都是慢慢新增標註,先試用看看,推!!
eazy0623- 一般會員
- 文章總數 : 26
年齡 : 36
來自 : Taichung
職業 : 電力規劃設計
愛好 : 運動
個性 : 獨立
使用年資 : 1
使用版本 : 2012
經驗值 : 4636
威望值 : 0
注冊日期 : 2012-07-18
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第2頁(共4頁)
這個論壇的權限:
您 無法 在這個版面回復文章