本帖最后由 zhengxiansz 于 2014-4-27 11:27 編輯

GU_xl你好！

請幫我看一下這個創建文本/標注樣式源碼。第一次輸入IT1命令時沒有報錯的提示。如果重復輸入IT1命令時就會提示該名稱已被使用，是否重新定義？請問有什么方法可以解決嗎？

還有這個程序我增加控制保存為2004版本的環境變量值，研究了好久也沒有找到是哪個變量值。

(defun c:IT1()

(prinC "標注樣式")

(setq cmd (getvar "cmdecho"))

(setvar "cmdecho" 0)

(setvar "OSMODE" 183)

(command "LTSCALE" "6")

(command "-style" "TP_Standard" "isocp.shx,gbcbig.shx" "" "1.0" "" "" "")

(command "-style" "TsaiPress" "isocp.shx,gbcbig.shx" "" "0.9" "" "" "")

(command "dimtxt"? ?"0.18"? ?? ?"dimasz"? ???"0.1"? ? ;文字高度? ?? ?? ?? ?? ?? ?? ?? ?;箭頭大小

"dimexe"? ?"0.05"? ?? ?"dimexo"? ???"0.05"? ?;尺寸界限超出長度? ?? ?? ?? ?? ? ;尺寸界限起點距離：0.5

"dimgap"? ?"0.05"? ?? ?"dimtoh"? ???"off"? ? ;標注文字周圍的距離? ?? ?? ?? ???;文字在尺寸界線外的位置：關

"dimtih"? ?"OFF"? ?? ? "blipmode"? ?"0"? ?? ?;標注文字在尺寸界線內的位置：? ? ;關，點標記模式：關

"DIMDLI"? ?"0.05"? ?? ?"DIMATFIT"? ?"3"? ?? ?;控制基線標注中尺寸線的間距：? ? ;當尺寸界線不足放下標注文字和箭頭時，函數DIMATFIT確定位置

"DIMTAD"? ?"0"? ?? ?? ?"DIMDEC"? ???"2"? ?? ?;控制文字相對尺寸線的垂直位置，??;小數位數：2

"DIMJUST"??"0"? ?? ?? ?"DIMDSEP"? ? "."? ?? ?;控制標注文字的水平位置：0，? ???;小數分隔符為 .

"DIMTOFL"??"0"? ?? ?? ?"dimtmove"? ?"0"? ?? ?;控制標注文字在尺寸界線外的位置：;關對齊，設置標注文字的移動規則：0 水平

"dimcen"? ?"0"? ?? ?? ?"dimclrd"? ? "0"? ?? ?;標注圓心：不標，? ?? ?? ?? ?? ? ;為尺寸線、箭頭和標注引線指定顏色：3

"dimclre"??"0"? ?? ?? ?"DIMCLRT"? ? "11"? ???;為尺寸界線指定顏色? ?? ?? ?? ???;為標注文字指定顏色

"DIMBLK"? ?"_open30"? ?"DIMLDRBLK"??"_open30" ;箭頭打開30? ?? ?? ?? ?? ?? ?? ? ;箭頭引線打開30

"DIMSCALE"??"10"? ?? ? "DIMTXSTY"??"TP_Standard"? ? ;全局比例? ?? ?? ?? ?? ???;文字樣式

"DIMSTYLE" "S" "TP_STANDARDx10"

)

(command "dimtxt"? ?"0.18"? ?? ?"dimasz"? ???"0.1"? ? ;文字高度? ?? ?? ?? ?? ?? ?? ?? ?;箭頭大小

"dimexe"? ?"0.05"? ?? ?"dimexo"? ???"0.05"? ?;尺寸界限超出長度? ?? ?? ?? ?? ? ;尺寸界限起點距離：0.5

"dimgap"? ?"0.05"? ?? ?"dimtoh"? ???"off"? ? ;標注文字周圍的距離? ?? ?? ?? ???;文字在尺寸界線外的位置：關

"dimtih"? ?"OFF"? ?? ? "blipmode"? ?"0"? ?? ?;標注文字在尺寸界線內的位置：? ? ;關，點標記模式：關

"DIMDLI"? ?"0.05"? ?? ?"DIMATFIT"? ?"3"? ?? ?;控制基線標注中尺寸線的間距：? ? ;當尺寸界線不足放下標注文字和箭頭時，函數DIMATFIT確定位置

"DIMTAD"? ?"0"? ?? ?? ?"DIMDEC"? ???"2"? ?? ?;控制文字相對尺寸線的垂直位置，??;小數位數：2

"DIMJUST"??"0"? ?? ?? ?"DIMDSEP"? ? "."? ?? ?;控制標注文字的水平位置：0，? ???;小數分隔符為 .

"DIMTOFL"??"0"? ?? ?? ?"dimtmove"? ?"0"? ?? ?;控制標注文字在尺寸界線外的位置：;關對齊，設置標注文字的移動規則：0 水平

"dimcen"? ?"0"? ?? ?? ?"dimclrd"? ? "0"? ?? ?;標注圓心：不標，? ?? ?? ?? ?? ? ;為尺寸線、箭頭和標注引線指定顏色：3

"dimclre"??"0"? ?? ?? ?"DIMCLRT"? ? "11"? ???;為尺寸界線指定顏色? ?? ?? ?? ???;為標注文字指定顏色

"DIMBLK"? ?"_open30"? ?"DIMLDRBLK"??"_open30" ;箭頭打開30? ?? ?? ?? ?? ?? ?? ? ;箭頭引線打開30

"DIMSCALE"??"15"? ?? ? "DIMTXSTY"??"TP_Standard"? ? ;全局比例? ?? ?? ?? ?? ???;文字樣式

"DIMSTYLE" "S" "TP_STANDARDx15"

)

(command "dimtxt"? ?"0.18"? ?? ?"dimasz"? ???"0.1"? ? ;文字高度? ?? ?? ?? ?? ?? ?? ?? ?;箭頭大小

"dimexe"? ?"0.05"? ?? ?"dimexo"? ???"0.05"? ?;尺寸界限超出長度? ?? ?? ?? ?? ? ;尺寸界限起點距離：0.5

"dimgap"? ?"0.05"? ?? ?"dimtoh"? ???"off"? ? ;標注文字周圍的距離? ?? ?? ?? ???;文字在尺寸界線外的位置：關

"dimtih"? ?"OFF"? ?? ? "blipmode"? ?"0"? ?? ?;標注文字在尺寸界線內的位置：? ? ;關，點標記模式：關

"DIMDLI"? ?"0.05"? ?? ?"DIMATFIT"? ?"3"? ?? ?;控制基線標注中尺寸線的間距：? ? ;當尺寸界線不足放下標注文字和箭頭時，函數DIMATFIT確定位置

"DIMTAD"? ?"0"? ?? ?? ?"DIMDEC"? ???"2"? ?? ?;控制文字相對尺寸線的垂直位置，??;小數位數：2

"DIMJUST"??"0"? ?? ?? ?"DIMDSEP"? ? "."? ?? ?;控制標注文字的水平位置：0，? ???;小數分隔符為 .

"DIMTOFL"??"0"? ?? ?? ?"dimtmove"? ?"0"? ?? ?;控制標注文字在尺寸界線外的位置：;關對齊，設置標注文字的移動規則：0 水平

"dimcen"? ?"0"? ?? ?? ?"dimclrd"? ? "0"? ?? ?;標注圓心：不標，? ?? ?? ?? ?? ? ;為尺寸線、箭頭和標注引線指定顏色：3

"dimclre"??"0"? ?? ?? ?"DIMCLRT"? ? "11"? ???;為尺寸界線指定顏色? ?? ?? ?? ???;為標注文字指定顏色

"DIMBLK"? ?"_open30"? ?"DIMLDRBLK"??"_open30" ;箭頭打開30? ?? ?? ?? ?? ?? ?? ? ;箭頭引線打開30

"DIMSCALE"??"20"? ?? ? "DIMTXSTY"??"TP_Standard"? ? ;全局比例? ?? ?? ?? ?? ???;文字樣式

"DIMSTYLE" "S" "TP_STANDARDx20"

)

(command "dimtxt"? ?"0.18"? ?? ?"dimasz"? ???"0.1"? ? ;文字高度? ?? ?? ?? ?? ?? ?? ?? ?;箭頭大小

"dimexe"? ?"0.05"? ?? ?"dimexo"? ???"0.05"? ?;尺寸界限超出長度? ?? ?? ?? ?? ? ;尺寸界限起點距離：0.5

"dimgap"? ?"0.05"? ?? ?"dimtoh"? ???"off"? ? ;標注文字周圍的距離? ?? ?? ?? ???;文字在尺寸界線外的位置：關

"dimtih"? ?"OFF"? ?? ? "blipmode"? ?"0"? ?? ?;標注文字在尺寸界線內的位置：? ? ;關，點標記模式：關

"DIMDLI"? ?"0.05"? ?? ?"DIMATFIT"? ?"3"? ?? ?;控制基線標注中尺寸線的間距：? ? ;當尺寸界線不足放下標注文字和箭頭時，函數DIMATFIT確定位置

"DIMTAD"? ?"0"? ?? ?? ?"DIMDEC"? ???"2"? ?? ?;控制文字相對尺寸線的垂直位置，??;小數位數：2

"DIMJUST"??"0"? ?? ?? ?"DIMDSEP"? ? "."? ?? ?;控制標注文字的水平位置：0，? ???;小數分隔符為 .

"DIMTOFL"??"0"? ?? ?? ?"dimtmove"? ?"0"? ?? ?;控制標注文字在尺寸界線外的位置：;關對齊，設置標注文字的移動規則：0 水平

"dimcen"? ?"0"? ?? ?? ?"dimclrd"? ? "0"? ?? ?;標注圓心：不標，? ?? ?? ?? ?? ? ;為尺寸線、箭頭和標注引線指定顏色：3

"dimclre"??"0"? ?? ?? ?"DIMCLRT"? ? "11"? ???;為尺寸界線指定顏色? ?? ?? ?? ???;為標注文字指定顏色

"DIMBLK"? ?"_open30"? ?"DIMLDRBLK"??"_open30" ;箭頭打開30? ?? ?? ?? ?? ?? ?? ? ;箭頭引線打開30

"DIMSCALE"??"25"? ?? ? "DIMTXSTY"??"TP_Standard"? ? ;全局比例? ?? ?? ?? ?? ???;文字樣式

"DIMSTYLE" "S" "TP_STANDARDx25"

)

(setvar "CURSORSIZE" 100)? ?? ?? ?? ? ;將屏幕十字光標的大小設為100%

(setvar "ACADLSPASDOC" 1)? ?? ?? ?? ? ;將 acad.lsp 載入到每一個打開的圖形中

(setvar "ANGDIR" 1)? ?? ?? ?? ?? ?? ? ;設置正角度的方向為順時針

(setvar "AUNITS" 0)? ?? ?? ?? ?? ?? ? ;設置角度單位為十進位度數

(setvar "CMLSCALE" 20.0000)? ?? ?? ???;設線寬為公制

(COMMAND "dimdec" "2" )? ?? ?? ?? ?? ?;設尺寸小數為二位

(setvar "DIMADEC" 2)? ?? ?? ?? ?? ?? ?;設角度標注的精度為2位小數

(setvar "GRIDMODE" 0)? ?? ?? ?? ?? ???;關閉柵格

(setvar "LTSCALE" 1.0000)? ?? ?? ?? ? ;設置全局線型比例為1.0000

(setvar "LUNITS" 2)? ?? ?? ?? ?? ?? ? ;設置線性單位為小數

(setvar "LWDISPLAY" 1)? ?? ?? ?? ?? ? ;顯示線寬

(setvar "LWDEFAULT" 25)? ?? ?? ?? ?? ?;設置默認線寬的值為25

(setvar "LWUNITS" 1)? ?? ?? ?? ?? ?? ?;設線寬單位以毫米顯示

(setvar "MEASUREINIT" 1)? ?? ?? ?? ???;設置初始圖形單位為公制

(setvar "PSLTSCALE" 1)? ?? ?? ?? ?? ? ;設圖紙空間的線型比例為1：1

(setvar "SNAPMODE" 0)? ?? ?? ?? ?? ???;關閉"捕捉"方式

(setvar "TOOLTIPS" 1)? ?? ?? ?? ?? ???;顯示工具欄提示

(setvar "TRACEWID" 0.3)? ?? ?? ?? ?? ?;設置寬線的默認寬度為0.3MM

(setvar "TRAYICONS" 1)? ?? ?? ?? ?? ? ;控制是否在狀態欄上顯示系統托盤

(setvar "TRAYNOTIFY" 1)? ?? ?? ?? ?? ?;控制是否在狀態欄系統托盤上顯示服務通知

(setvar "ISAVEBAK" 0)? ?? ?? ?? ?? ???;控制備份文件 (BAK) 的創建。? ? 1，創建? ? 0，不創建

(setvar "APERTURE" 25)? ?? ?? ?? ?? ? ;以像素為單位設置靶框顯示尺寸。靶框是繪圖命令中使用的選擇工具。初始值：10

(setvar "PICKBOX" 15)? ?? ?? ?? ?? ???;控制拾取框大小

(setvar "savetime" 0)? ?? ?? ?? ?? ???;控制自動保存。

(setvar "ACISOUT" 16)? ?? ?? ?? ?? ???;控制保存的版本

(setvar "qaflags" 0)? ?? ?? ?? ?? ?? ?;取消選擇先后順序

(COMMAND??"OSMODE"??"439" )? ?? ?? ???;常用捕捉打開

(COMMAND "dimtol" "0")? ?? ?? ?? ?? ? ;去掉“±0.00”符號

(princ))

創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的lisp文字上标源码_创建文本/标注样式源码 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。