教學課程
加入贊助
聯絡我們![*[已解決]關於自寫工具列 - 頁 2 Aoe1-113](https://i.servimg.com/u/f67/12/31/59/66/aoe1-113.png)
![*[已解決]關於自寫工具列 - 頁 2 Ioaoe110](https://i.servimg.com/u/f67/12/31/59/66/ioaoe110.png)
![*[已解決]關於自寫工具列 - 頁 2 2020-310](https://i.servimg.com/u/f67/12/31/59/66/2020-310.png)
![*[已解決]關於自寫工具列 - 頁 2 Oiu15010](https://i.servimg.com/u/f67/12/31/59/66/oiu15010.png)
![*[已解決]關於自寫工具列 - 頁 2 2020-211](https://i.servimg.com/u/f67/12/31/59/66/2020-211.png)
![*[已解決]關於自寫工具列 - 頁 2 Ia15010](https://i.servimg.com/u/f62/19/71/67/71/ia15010.png)
![*[已解決]關於自寫工具列 - 頁 2 Aizyao10](https://i.servimg.com/u/f67/12/31/59/66/aizyao10.png)
![*[已解決]關於自寫工具列 - 頁 2 Uos15010](https://i.servimg.com/u/f67/12/31/59/66/uos15010.png)
![*[已解決]關於自寫工具列 - 頁 2 BPl3tjj](https://i.imgur.com/BPl3tjj.png)
![*[已解決]關於自寫工具列 - 頁 2 Ziao1510](https://i.servimg.com/u/f62/19/71/67/71/ziao1510.png)
![*[已解決]關於自寫工具列 - 頁 2 Aoe15010](https://i.servimg.com/u/f67/12/31/59/66/aoe15010.png)
![*[已解決]關於自寫工具列 - 頁 2 Oo-2-110](https://i.servimg.com/u/f67/12/31/59/66/oo-2-110.png)
![*[已解決]關於自寫工具列 - 頁 2 Zuoiy_10](https://i.servimg.com/u/f67/12/31/59/66/zuoiy_10.png)
![*[已解決]關於自寫工具列 - 頁 2 Aizyao11](https://i.servimg.com/u/f67/12/31/59/66/aizyao11.png)
![*[已解決]關於自寫工具列 - 頁 2 Iyb_1510](https://i.servimg.com/u/f67/12/31/59/66/iyb_1510.png)
![*[已解決]關於自寫工具列 - 頁 2 Aoe1-112](https://i.servimg.com/u/f67/12/31/59/66/aoe1-112.png)
![*[已解決]關於自寫工具列 - 頁 2 Uos15011](https://i.servimg.com/u/f67/12/31/59/66/uos15011.png)
![*[已解決]關於自寫工具列 - 頁 2 Aoe2da10](https://i.servimg.com/u/f67/12/31/59/66/aoe2da10.png)
![*[已解決]關於自寫工具列 - 頁 2 Aoe2da11](https://i.servimg.com/u/f67/12/31/59/66/aoe2da11.png)
![*[已解決]關於自寫工具列 - 頁 2 Aoe10](https://i.servimg.com/u/f67/12/31/59/66/aoe10.png)
*[已解決]關於自寫工具列
+23
aodi
HEMOS
k172924
anais99
leoneriol
hoiyen
Tanya
jjch001
elva5240
yuanyih
snoopyhot
xbox9106029
wcl05275
t249752
lth075
k12271030
老水牛
596
DARDAR
ching1791
judyyai
Tiger&蘋果爸
cji306
27 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論 :: 已解決主題精華區
第2頁(共2頁)
![*[已解決]關於自寫工具列 - 頁 2 Empty](https://2img.net/i/empty.gif)
*[已解決]關於自寫工具列
由 cji306 2008-05-20, 14:11
主題回顧 :
看了蘋果爸爸的巨集教學感謝喔 但我的問題來了 我想自寫一個工具列 在使用指令menuload 掛入 但我寫出來的有問題無法掛入 請大大幫忙撿查一下那裡出問題
http://www.badongo.com/file/9464614
看了蘋果爸爸的巨集教學感謝喔 但我的問題來了 我想自寫一個工具列 在使用指令menuload 掛入 但我寫出來的有問題無法掛入 請大大幫忙撿查一下那裡出問題
http://www.badongo.com/file/9464614
cji306 在 2008-05-21, 17:11 作了第 1 次修改
cji306- 該用戶停權中
- 文章總數 : 61
經驗值 : 6034
威望值 : 0
注冊日期 : 2008-05-15
回復： *[已解決]關於自寫工具列
由 anais99 2010-10-08, 10:25
我要要學習，感謝分享
更改字高lsp寫法幫我看看有需要修改嗎？
(defun c:1txth(/ kk ent en enx oh nh)
(setq kk nil)
(setq ent (nentsel "\n選擇文字 "))
(setq en (car ent))
(setq enx (entget en))
(setq oh (assoc 40 enx))
(princ (strcat "<" (rtos (cdr oh) 2 2) ">:"))
(setq kk (getreal" 新字高 :"))
(if (/= kk nil)
(progn
(setq nh (cons 40 kk))
(setq enx (subst nh oh enx))
(entmod enx)
(if (caddr ent);if it is dim
(entupd (car (nth 3 ent)))
)
)
)
(princ)
)
更改字高lsp寫法幫我看看有需要修改嗎？
(defun c:1txth(/ kk ent en enx oh nh)
(setq kk nil)
(setq ent (nentsel "\n選擇文字 "))
(setq en (car ent))
(setq enx (entget en))
(setq oh (assoc 40 enx))
(princ (strcat "<" (rtos (cdr oh) 2 2) ">:"))
(setq kk (getreal" 新字高 :"))
(if (/= kk nil)
(progn
(setq nh (cons 40 kk))
(setq enx (subst nh oh enx))
(entmod enx)
(if (caddr ent);if it is dim
(entupd (car (nth 3 ent)))
)
)
)
(princ)
)
anais99- 初級會員
- 文章總數 : 107
年齡 : 46
來自 : 台北縣
職業 : 模具製圖
愛好 : 騎自行車
個性 : 開朗
使用年資 : 12
使用版本 : 2010
積分 : 4
經驗值 : 5684
威望值 : 12
注冊日期 : 2010-06-14
k172924- 一般會員
- 文章總數 : 43
年齡 : 45
來自 : 台灣 台北
職業 : 土地測量
愛好 : 電腦
個性 : 勇於嘗試 喜愛冒險
使用年資 : 7
使用版本 : R14 2010 2012 MAC 2014
經驗值 : 5628
威望值 : 18
注冊日期 : 2009-12-18
HEMOS- 榮譽顧問
- 文章總數 : 896
年齡 : 51
來自 : 台北
職業 : 土木結構
愛好 : 攝影×音樂×電影
個性 : 和善
使用年資 : 20 years ↑
使用版本 : 老手待忘!
積分 : 27
最佳解答 : 3
經驗值 : 10329
威望值 : 1664
回帖精華 : 1
注冊日期 : 2009-02-23
aodi- 初級會員
- 文章總數 : 107
年齡 : 50
來自 : Yilan
職業 : 建築及室內設計事務所
愛好 : 欣賞美好的事及物
個性 : 隨和但不隨便
使用年資 : 10~
使用版本 : 2023
積分 : 4
經驗值 : 5802
威望值 : 74
注冊日期 : 2010-03-24
qaz6605- 初級會員
- 文章總數 : 193
年齡 : 46
來自 : 台南市
職業 : 繪圖員
愛好 : 有關電腦的
個性 : 外向
使用年資 : 剛剛初道
使用版本 : 2006
積分 : 2
經驗值 : 6621
威望值 : 82
注冊日期 : 2008-12-31
回復： *[已解決]關於自寫工具列
由 A-NO 2015-03-09, 03:15
感謝分享又多學一招
____________________________________________________________________________________
A-NO- 贊助會員
- 文章總數 : 26
年齡 : 49
來自 : 台中
職業 : 待業
愛好 : 公益
個性 : 癡呆
使用年資 : 4
使用版本 : 2004
積分 : 2
經驗值 : 5775
威望值 : 37
注冊日期 : 2009-05-19
回復： *[已解決]關於自寫工具列
由 lcskc 2015-03-29, 15:55
最喜歡看這類文章,自己動手做
____________________________________________________________________________________
![*[已解決]關於自寫工具列 - 頁 2 Acad2010](https://i.servimg.com/u/f57/12/31/59/66/acad2010.png)
![*[已解決]關於自寫工具列 - 頁 2 Acad1810](https://i.servimg.com/u/f38/12/31/59/66/acad1810.png)
![*[已解決]關於自寫工具列 - 頁 2 Acad1211](https://i.servimg.com/u/f41/12/31/59/66/acad1211.png)
![*[已解決]關於自寫工具列 - 頁 2 Acad1311](https://i.servimg.com/u/f75/12/31/59/66/acad1311.png)
![*[已解決]關於自寫工具列 - 頁 2 Acad1511](https://i.servimg.com/u/f16/12/31/59/66/acad1511.png)
lcskc- 一般會員
- 文章總數 : 59
年齡 : 52
來自 : 高雄
職業 : 模具
愛好 : pc相關
個性 : 安靜
使用年資 : 10
使用版本 : R12
經驗值 : 4171
威望值 : 31
注冊日期 : 2014-05-02
anja- 一般會員
- 文章總數 : 6
年齡 : 42
來自 : 台北
職業 : CAD
愛好 : MOVIE
個性 : 內向
使用年資 : 1
使用版本 : 2008
經驗值 : 5023
威望值 : 0
注冊日期 : 2011-03-10
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論 :: 已解決主題精華區
第2頁(共2頁)
這個論壇的權限：
您 無法 在這個版面回復文章