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

各位前輩好：
   我是新手,最近繪圖時,常遇到需要放大不同比例的圖面,例如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))

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


連結用法

我也正為這種多種標註型式困擾，希望版本以後能內建此功能～～

我也常常遇到此困擾吶，來看小豬大大好東西~

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

怎麼感覺越來越看不懂現在的ACAD~
希望有高手解答~

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


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

輸入:DDD 啟動程式

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

代碼:

指令: ddd

尺寸比例:2

圖面比例:1

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

謝謝各位前輩提供寶貴的建議，給了我另外一個想法。
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))

正有此需求，多謝各位前輩分享!

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

感謝大大無私的分享感恩

感謝分享
又學習到了新技巧