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

[討論]如何用LISP在CAD圖上建立多種標註型式

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

[討論]如何用LISP在CAD圖上建立多種標註型式

發表 由 john351486 于 2014-12-23, 12:41

各位前輩好:
   我是新手,最近繪圖時,常遇到需要放大不同比例的圖面,例如2倍、4倍、5倍、10倍等,而須要變更標註比例。
因此想用輸入指令的方式,就能改變不同的標註比例。尋找了一些標註變數,key了以下程式。有一些問題懇請
高手、前輩不吝指正。謝謝
1.此程式可以在縮短嗎?因為要建立2倍、4倍、5倍、10倍程式會很長。
2.重複執行指令時,如何讓程式知道已建立的標註型式已經存在,而直接切換到該標註型式。

(defun C:5X()
(command "-dimstyle" "s" "5x");;儲存標註型式
(command "DIMAUNIT" "0");;角度單位格式
(command "DIMAZIN" "2");;角度零抑制
(command "DIMLUNIT" "2");;線性單位格式
(command "DIMASZ" "1.8");;箭頭大小
(command "DIMDLI" "0.5000");;標註線間距
(command "DIMEXE" "0.5000");;標註線上方延伸
(command "DIMEXO" "0.5000");;延伸線原點偏移
(command "DIMTXSTY" "AEH");;文字型式
(command "DIMTXT" "2");;文字高度
(command "dimlfac" "0.2");;比例
(command "DIMDEC" "8");;小數點位數
(command "DIMZIN" "8");;零抑制
(command "-dimstyle" "s" "5x" "y");;儲存標註型式
(alert (strcat "目前標註比例5.00"))(princ))
avatar
john351486
一般會員
一般會員

文章總數 : 19
年齡 : 36
來自 : 中部
職業 : 五金加工
愛好 : 看書
個性 : 隨和
使用年資 : 新手
使用版本 : 2014
經驗值 : 1187
威望值 : 6
注冊日期 : 2014-12-13
男 摩羯座 猴

回頂端 向下

回復: [討論]如何用LISP在CAD圖上建立多種標註型式

發表 由 小豬 于 2014-12-24, 13:23


想研究程式
有此進入
試試看吧(回覆可見)


連結用法


小豬 在 2014-12-27, 17:03 作了第 1 次修改
avatar
小豬
初級會員
初級會員

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

回頂端 向下

回復: [討論]如何用LISP在CAD圖上建立多種標註型式

發表 由 junbafa74 于 2014-12-25, 00:45

我也正為這種多種標註型式困擾,希望版本以後能內建此功能~~
avatar
junbafa74
初級會員
初級會員

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

回頂端 向下

回復: [討論]如何用LISP在CAD圖上建立多種標註型式

發表 由 蔣秉澔 于 2014-12-25, 00:56

我也常常遇到此困擾吶,來看小豬大大好東西~
avatar
蔣秉澔
初級會員
初級會員

文章總數 : 210
年齡 : 40
來自 : 嘉義市
職業 : 大電力系統設計、製程、檢測
愛好 : 電腦相關,出遊踏青
個性 : 待人隨和,對事執著
使用年資 : 8年
使用版本 : 2011 Electrical,2014
積分 : 4
經驗值 : 2829
威望值 : 168
注冊日期 : 2013-08-31
顧問外掛程式 藍鵲661號
男 金牛座 蛇

回頂端 向下

回復: [討論]如何用LISP在CAD圖上建立多種標註型式

發表 由 anna6477 于 2014-12-25, 01:16

感謝分享
來看小豬大大@好東西~
不知小豬大大可否分享一下如何使用呢??
avatar
anna6477
初級會員
初級會員

文章總數 : 37
年齡 : 42
來自 : 新北市板橋
職業 : 水電繪圖
愛好 : 旅遊
個性 : 樂觀善良
使用年資 : 10
使用版本 : 2012
積分 : 1
最佳解答 : 1
經驗值 : 2533
威望值 : 12
注冊日期 : 2011-06-29
女 巨蟹座 兔

回頂端 向下

回復: [討論]如何用LISP在CAD圖上建立多種標註型式

發表 由 li60830 于 2014-12-25, 01:58

怎麼感覺越來越看不懂現在的ACAD~
希望有高手解答~
avatar
li60830
初級會員
初級會員

文章總數 : 312
年齡 : 46
來自 : 亞洲
職業 : 待業
愛好 : 電動~游泳~看書~看影集
個性 : 固執
使用年資 : 18年
使用版本 : 2008 - 2014
積分 : 2
經驗值 : 3334
威望值 : 310
注冊日期 : 2013-04-17
藍鵲697號
男 處女座 豬

回頂端 向下

回復: [討論]如何用LISP在CAD圖上建立多種標註型式

發表 由 judyyai 于 2014-12-25, 02:20

感謝"小豬"分享~補充用法


下載 程式 (標註型式.fas)
打開AUTOCAD
指令:appload 載入剛剛下載的程式

輸入:DDD 啟動程式

如下演示~
要標註一個 放大2倍的尺寸

代碼:
指令: ddd

尺寸比例:2

圖面比例:1

____________________________________________________________________________________
avatar
judyyai
管理顧問
管理顧問

文章總數 : 7649
年齡 : 40
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2014(開始於2015九月底)
AutoCAD基礎篇等級 : 10星級
積分 : 392
最佳解答 : 1
經驗值 : 27268
威望值 : 3466
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
2D基礎函授 3D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲2號
2009聚會勳章 串連貼紙成功 女 巨蟹座 蛇

回頂端 向下

回復: [討論]如何用LISP在CAD圖上建立多種標註型式

發表 由 shenhung 于 2014-12-25, 02:43

我是都改dimscale 整體比例變數.~!! 一個變數就解決了.以DIMSCALE 控制字高.其餘相關比例也都會跟著變.~
標註型式也都永遠只有一個.!!
avatar
shenhung
高級會員
高級會員

文章總數 : 238
年齡 : 50
來自 : 新北市
職業 : 塑膠模具設計.AUTOLISP
愛好 : 音樂
個性 : 隨和
使用年資 : 18年
使用版本 : 2010
積分 : 15
經驗值 : 5060
威望值 : 913
注冊日期 : 2009-06-03
男 摩羯座 馬

回頂端 向下

回復: [討論]如何用LISP在CAD圖上建立多種標註型式

發表 由 john351486 于 2014-12-25, 14:33

謝謝各位前輩提供寶貴的建議,給了我另外一個想法。
1.在樣版檔裡,先建立一個基本的標註型式。
2.在將以下的程序儲存成lisp檔載入應用。

代碼:
(defun C:1x()
(command "dimlfac" "1")
(alert (strcat "目前標註比例1x"))(princ))

(defun C:2x()
(command "dimlfac" "0.5")
(alert (strcat "目前標註比例2x"))(princ))

(defun C:4x()
(command "dimlfac" "0.25")
(alert (strcat "目前標註比例4x"))(princ))

(defun C:5x()
(command "dimlfac" "0.2")
(alert (strcat "目前標註比例5x"))(princ))

(defun C:10x()
(command "dimlfac" "0.1")
(alert (strcat "目前標註比例10x"))(princ))
avatar
john351486
一般會員
一般會員

文章總數 : 19
年齡 : 36
來自 : 中部
職業 : 五金加工
愛好 : 看書
個性 : 隨和
使用年資 : 新手
使用版本 : 2014
經驗值 : 1187
威望值 : 6
注冊日期 : 2014-12-13
男 摩羯座 猴

回頂端 向下

回復: [討論]如何用LISP在CAD圖上建立多種標註型式

發表 由 櫻子 于 2014-12-26, 04:30

正有此需求,多謝各位前輩分享!
avatar
櫻子
一般會員
一般會員

文章總數 : 82
年齡 : 35
來自 : l彰化
職業 : 繪圖員
愛好 : 繪圖
個性 : 內向+外向
使用年資 : 愛安靜
使用版本 : 2004
經驗值 : 1692
威望值 : 54
注冊日期 : 2014-05-27
藍鵲660號
女 射手座 狗

回頂端 向下

回復: [討論]如何用LISP在CAD圖上建立多種標註型式

發表 由 andylin1124 于 2014-12-27, 07:00

同時在一張圖面上可以標註很多種形式的標註這真的是太厲害了
avatar
andylin1124
一般會員
一般會員

文章總數 : 15
年齡 : 42
來自 : 新北市
職業 : 觸控面板設計師
愛好 : 打籃球
個性 : 木訥
使用年資 : 10年
使用版本 : 2008及2012
經驗值 : 1676
威望值 : 0
注冊日期 : 2013-07-15
男 射手座 兔

回頂端 向下

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


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