autocad內(nèi)常用術(shù)語的自動標(biāo)注方法(文件)
【正文】 初始化程序, 把第1個分組項中的詞組讀入表txt_tb中(defun init( / fname fp txt1)(setq fname (findfile $))(if (not fname)(progn (princ \n文件 $ 不存在 !) (exit)) 。 判別哪個詞組項被點中(if (= (get_tile (strcat c (itoa i))) 1)(setq fname1 (strcat $txt (itoa i) .dat)i nn))(setq i (1+ i)))(if (setq fname (findfile fname1))。 progn(progn(alert (strcat 文件 fname1 不存在!))(set_tile (strcat c (itoa old_nn)) 1)；恢復(fù)原記錄號)) 。 詞組分類數(shù)(init) 。 字高是否為定值(/=(getvar TEXTSTYLE) HZ)。: radio_button {label = 常用術(shù)語。key = c2。key = c4。key = c6。key = c8。key = what。 // 可雙擊鼠標(biāo)選取}}spacer_1。// 增加間距ok_cancel。key = sel_ok。width = 26。key = c9。key = c7。key = c5。key = c3。value = 1。 設(shè)置HZ字型)(initget (+ 2 4))；下面的輸入值要求大于0(setq ht (getreal \n請輸入字高500:))(if (not ht) (setq ht 500))(setq pt (getpoint \n請點取文字起點:))(mand text pt ht 0 txt)))(setq *error* olderr)；恢復(fù)原設(shè)置(setvar cmdecho oldcmd)(princ))// // 供filetext : dial
公司管理相關(guān)推薦
鄂ICP備17016276號-1