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

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
[討論]請教如何增加文字高度設定 Ioaoe110[討論]請教如何增加文字高度設定 2020-310[討論]請教如何增加文字高度設定 Oiu15010[討論]請教如何增加文字高度設定 2020-211[討論]請教如何增加文字高度設定 Ia15010[討論]請教如何增加文字高度設定 Aizyao10[討論]請教如何增加文字高度設定 Uos15010[討論]請教如何增加文字高度設定 BPl3tjj[討論]請教如何增加文字高度設定 Ziao1510
[討論]請教如何增加文字高度設定 Oo-2-110[討論]請教如何增加文字高度設定 Zuoiy_10[討論]請教如何增加文字高度設定 Aizyao11[討論]請教如何增加文字高度設定 Iyb_1510[討論]請教如何增加文字高度設定 Aoe1-111[討論]請教如何增加文字高度設定 Uos15011[討論]請教如何增加文字高度設定 Aoe2da10[討論]請教如何增加文字高度設定 Aoe2da11[討論]請教如何增加文字高度設定 Aoe10

[討論]請教如何增加文字高度設定

2 posters

向下

[討論]請教如何增加文字高度設定 Empty [討論]請教如何增加文字高度設定

發表 由 crihy 2017-06-16, 15:27

朋友給了個自動編號的LISP,擬增加文字高度設定,請各位大大協助看一下,要如何修改
代碼:
;* UINT User interface integer function
;* BIT (0 for none) and KWD key word ("" for none) are same as for INITGET.
;* MSG is the prompt string, to which a default integer is added as <DEF> (nil
;* for none), and a : is added.
;*
(defun uint (bit kwd msg def / inp)
  (if def ;test for a default
(setq msg (strcat "\n >> " msg "  " (itoa def) " >: ") ;string'em with default
bit (* 2 (fix (/ bit 2)))  ;a default and no null bit code conflict so
)  ;this reduces bit by 1 if odd, to allow null
(if (= " " (substr msg (strlen msg) 1))  ;no def, if last char is space
(setq msg (strcat "\n >> " (substr msg 1 (1- (strlen msg))) " : ")) ;then strip space
(setq msg (strcat "\n >> " msg " : "))  ;else msg OK
  ) );if,if
  (initget bit kwd)
  (setq inp (getint msg))  ;use the GETINT function
  (if inp inp def) ;compare the results, return appropriate value
);defun


(defun c:qno (/ text pt1)
  (setvar "osmode" 0)
  (setvar "blipmode" 0)
  ;;標記點開關
  (setq name (getstring "\n零件名稱:")
   Name (strcase name)
  )
  ;;輸入固定之零件代號
  (print)
  (setq text 0)
  
  (while (setq text (Uint 0 "" "輸入序號(或默認為): " (1+ text)))
(setq pt1 (getpoint "\n選擇標示位置: "))

;;寫出零件代號+排序號碼
(command "text"
             pt1
             ""
             ""
             (strcat Name (itoa text))
)
  )
  (princ)
)

____________________________________________________________________________________
[討論]請教如何增加文字高度設定 Ioaoe110 [討論]請教如何增加文字高度設定 Zuoiy_10 [討論]請教如何增加文字高度設定 2020-211 [討論]請教如何增加文字高度設定 Aizyao11 [討論]請教如何增加文字高度設定 Iyb_1510
[討論]請教如何增加文字高度設定 Aizyao10 [討論]請教如何增加文字高度設定 BPl3tjj.png [討論]請教如何增加文字高度設定 Ziao1510 [討論]請教如何增加文字高度設定 Oo-2-110 [討論]請教如何增加文字高度設定 Oooa_110
avatar
crihy
初級會員
初級會員

文章總數 : 178
年齡 : 47
來自 : earth worth
職業 : 建築、結構、土木、水利、水保
愛好 : 學習專業知識
個性 : 認真上進
使用年資 : 自80年起
使用版本 : 2014
積分 : 2
經驗值 : 6956
威望值 : 426
注冊日期 : 2008-05-13
藍鵲366號
男 處女座 龍

回頂端 向下

[討論]請教如何增加文字高度設定 Empty 回復: [討論]請教如何增加文字高度設定

發表 由 Tiger&蘋果爸 2017-06-19, 10:26

你可以先用 TEXTSIZE系統變數決定字高。
然後再使用程式~
認同

____________________________________________________________________________________
👉[好康]🎁加入專屬B取得大補帖及看2D+3D影片(點我)👈
[討論]請教如何增加文字高度設定 Sesa2011 [討論]請教如何增加文字高度設定 Youtub11 [討論]請教如何增加文字高度設定 Oiea2011 [討論]請教如何增加文字高度設定 Oe20011 [討論]請教如何增加文字高度設定 Fbi20011 [討論]請教如何增加文字高度設定 Line2011
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 21077
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 88422
威望值 : 16930
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[討論]請教如何增加文字高度設定 Ioaoe110[討論]請教如何增加文字高度設定 2020-310[討論]請教如何增加文字高度設定 Oiu15010[討論]請教如何增加文字高度設定 2020-211[討論]請教如何增加文字高度設定 Ia15010[討論]請教如何增加文字高度設定 Aizyao10[討論]請教如何增加文字高度設定 Uos15010[討論]請教如何增加文字高度設定 BPl3tjj[討論]請教如何增加文字高度設定 Ziao1510
[討論]請教如何增加文字高度設定 Oo-2-110[討論]請教如何增加文字高度設定 Zuoiy_10[討論]請教如何增加文字高度設定 Aizyao11[討論]請教如何增加文字高度設定 Iyb_1510[討論]請教如何增加文字高度設定 Aoe1-111[討論]請教如何增加文字高度設定 Uos15011[討論]請教如何增加文字高度設定 Aoe2da10[討論]請教如何增加文字高度設定 Aoe2da11[討論]請教如何增加文字高度設定 Aoe10