【正文】 畫中心線　(mand pline pt2 pt4 )　(setq r1 (/ d )。代碼示例如下所示。修剪形成鍵槽 　　　(mand hatch U 45 2 n s1 s2 ))。計算軸鍵槽上點的坐標(biāo)　　　(setq pt2 (list (+ (car pt0) ((/ d ) t1)) (+ (cadr pt0) dy))　　　　pt3 (polar pt2 ( (/ pi )) b)　　　　pt4 (polar pt3 0 ( dx ( (/ d ) t1))))　　　)。(defun C:jct ()　(setq pt0 (getpoint \n 請輸入視圖的中心位置點:))　(initget 7)　(setq loop T)　(while loop　(setq d (getreal \n　請輸入鍵槽處的軸徑(12d130)(mm):))　(if(or ( d 12) ( d 130))　　　(alert 軸徑數(shù)據(jù)輸入錯誤!\n\n請重新輸入!) 　　　(setq loop nil)　　　)。word wide　　 (set (read (strcat f (itoa i))) jd)?！　?(defun c:zddq ( / i n txsize ent ent1 o1 o2 o3 o4 a aa oldsiaze newsize 　　 index bb cc p0 p1 p pp ent0 b ss a1 a2 a3 a4 a5 a6)　　 (setq i 1)　　 (princ \n)(princ 選擇對齊方式如下:)(princ)　　 (setq a (getstring \n L左/R右/C中心/M中點 L : ))　　 (if (= a )(setq a L))　　 (setq a (strcase a))　　 (cond ((= a L)(setq a1 0 a2 11 a4 10 a5 10))　　((= a M)(setq a1 1 a2 10 a4 11 a5 11))　　((= a R)(setq a1 2 a2 10 a4 11 a5 11))　　((= a C)(setq a1 4 a2 10 a4 11 a5 11)) 　　 )　　 (setq b (getint \(使Y座標(biāo)一樣) 2. 縱向?qū)R(使X座標(biāo)一樣) 2: ))　　 (setq txsize (getpoint \n點取對齊點點取參照實體: ))　　 (princ \n)(princ 選取文字(自動濾去非文字實體):)(princ) 　　 (while ( i 10000)　　 (setq ss (ssget))　　 (setq n (sslength ss))　　 (setq index 0)　　 (repeat n　　 (setq ent0 (entget (ssname ss index)))　　 (if (= (cdr (assoc 72 ent0)) 0)　　(progn 　　 (setq a4 10)　　 (if (/ = a1 0)(setq a5 11)(setq a5 10))　　) 　　 )　　 (setq index (+ 1 index))　　 (setq type (assoc 0 ent0))　　 (if (= TEXT (cdr type))　　(progn 　　 (setq p0 (assoc 72 ent0))　　 (setq p (cons (car p0) a1))　　 (setq pp (subst p p0 ent0))　　 (setq old (assoc 11 pp))　　 (if (= a L)　　 (setq a3 (list 0 0))　　 (setq a3 (cdr (assoc 11 pp)))　　 )　　 (setq new (cons (car old) a3))　　 (setq ent (subst new old pp))　　 (setq o1 (cadr (cdr (assoc a4 ent0))))　　 (setq o2 (car (cdr (assoc a4 ent0))))　　 (if (= txsize nil)　　 (p rogn　　(setq a6 (entget (ssname ss 0)))　　(setq a6 (cdr (assoc a4 a6)))　　(setq o3 (car a6) o4 (cadr a6)) 　　 )　　 (setq o3 (car txsize) o4 (cadr txsize))　　 )　　 (setq oldsize (assoc a5 ent0))　　 (if (and (/= b nil)(/= b 2))　　 (setq aa o2 bb o4 cc (car oldize))　　 (setq aa o3 bb o1 cc (cdr oldsize))　　 )　　 (setq newsize (cons (car oldsize) (list aa bb)))　　 (setq ent1 (subst newsize oldsize ent))　　 (entmod ent1)　　 )　　 )　　 )　　 )　　 (prin1)　　)　　。 　　 選“2”，則：* 輸入文字垂直間距值(或用鼠標(biāo)點取)：其它同①。 　2．命令調(diào) 用ZDDQ．LSP、ZDJT．LSP　　在COMMAND后面輸入(LOAD“ZDDQ”)或(LOAD“ZDJT”)，產(chǎn)生可用命令ZDDQ、ZD JT，擊入命令按提示操作。為此我編寫了一些小程序供大家使用。三、擴(kuò)充軟件，豐富專業(yè)知識(1)采用基于AutoCAD平臺的專業(yè)軟件?！铌P(guān)閉實體填充。(7)控制合適的顯示性能。關(guān)閉圖層時，方便操作，不需重新生成。也可以根據(jù)自己的網(wǎng)絡(luò)配置，把客戶端安裝和服務(wù)器上安裝結(jié)合起來。，應(yīng)刪除編組是已命名的對象選擇集，與未命名的選擇集不同，編組是隨圖形保存的。AutoCAD在運行時，需要在磁盤中創(chuàng)建一定的臨時文件，倘若分布于磁盤碎片之中，自然降低速度。通常在“打印區(qū)域”選用“界限”、“范圍”或“顯示”方式時都不能將圖框線完全顯示出來（因為每一種打印機(jī)均不能將滿幅內(nèi)容在同規(guī)格圖紙內(nèi)全部打印出來）。　 （3）改變尺寸整體比例，選“標(biāo)注”“樣式”“修改”“調(diào)整”“使用全局比例”改為5。表二：基本幅面及圖框尺寸幅面代號35A0A1A2A3A48411189594841420594297420297210A 25 c 10 5　 使用2層細(xì)實線按L、B畫圖紙邊界線，用1層粗實線畫圖框線?！案叨取焙汀皩挾缺壤笔褂萌笔≈?。對于一般繪制機(jī)械圖使用，建議按表一配置。適用于目前流行的純中文版及漢化版ACAD2000?！　∽詮奈覀儼言摮绦驊?yīng)用于批量修改圖形文件后，不但將設(shè)計人員從繁鎖的人工修改圖紙中解脫出來，而且大大提高了設(shè)計效率和圖紙質(zhì)量。：其功能是配制SCR文件格式的命令字符串并調(diào)入相關(guān)的繪圖參數(shù)(源程序用C語言編寫，清單附后)?！　otoCAD中文字修改功能較弱，但只能用鼠標(biāo)器手工修改，且一次只能改一個字符串不適用程序化操作?！　≡趯嵺`中我們用C語言編寫了CHSCR應(yīng)用程序，經(jīng)過CHSCREXE應(yīng)用程序轉(zhuǎn)換，形成一個可以處理FILETAB所列出的所有文件的CHGESCR命令文件。key = sel_ok。key = c9。key = c5。value = 1。 驅(qū)動對話框(if (and ok txt)(progn(if (or (= (setq sty (tblsearch STYLE HZ)) nil)。())(while (setq txt1 (read_line fp))；依次讀出各詞組(setq txt_tb (cons txt1 txt_tb)))(close fp)(setq txt_tb (reverse txt_tb))(start_list what)；在列表框內(nèi)顯示詞組內(nèi)容(mapcar 39。 顯示對話框(progn start_list what)；將詞組顯示到列表框內(nèi)(mapcar 39。需要說明的是，本程序中是將文字以HZ字型寫到圖中。三、程序使用方法 先用WPS、EDIT等編輯程序分類建立詞組庫（注意，需要存成純文本格式），每個詞組占一行。該程序已應(yīng)用于我院的實際生產(chǎn)中。}spacer_1。}}: list_box {label = 詞組內(nèi)容。}: radio_button {label = 器材儀表。 // 初始值為1, 表示選中}: radio_button {label = 圖紙名稱。 HZ字型是否存在(/= (cdr (assoc 40 sty)) 0) 。add_list txt_tb)(end_list)) 。add_list txt_tb)(end_list)(setq i 1)(repeat nn；點取詞組分類項后的操作(action_tile (strcat c (itoa i)) (wr_txt))(setq i (1+ i)))(action_tile what (setq i (atoi $value))；選中詞組(setq txt (nth i txt_tb))(set_tile \sel_ok\ txt))(action_tile sel_ok (setq txt $value))(action_tile accept (setq ok T)(done_dialog 1)(unload_dialog dcl_id))(action_tile cancel (unload_dialog dcl_id))(start_dialog))(prompt \n無法顯示對話框FILETEXT! 請檢查對話框內(nèi)容!)))(prompt \n無法加載對話框文件! 請檢查文件是否存在及路徑是否正確!)))。若您的軟件中無這兩種字體，可將其它字體改名為該兩種字體（要求一個為英文字體，一個為中文字體），或?qū)⒊绦蛐薷臑槟哂械淖煮w。程序要求將常用術(shù)語、圖紙名稱、房間名稱等各分類所對應(yīng)的詞組庫文件名分別為$、$、$。二、原理及方法 　　AutoCAD對話框結(jié)構(gòu)包含有多種構(gòu)件，如edit_box(編輯框)、list_box(列表框)、radio_button(多選一按鈕)等，利用這些工具，可以開發(fā)出界面友好的實用程序。AutoCAD內(nèi)常用術(shù)語的自動標(biāo)注方法　摘要 [HT5SS]本文提出了一種用對話框?qū)崿F(xiàn)AutoCAD內(nèi)常用術(shù)語自動標(biāo)注的方法?！　∽髨D就是用這種方法實現(xiàn)的。除第一個文件不能少外，其它文件可空缺，但當(dāng)點取該分類項時，系統(tǒng)會提示有關(guān)文件不存在的信息。但需要注意，也許您的字體在用于設(shè)置字型時會多一個選項，詢問是否垂直書寫文字，此時，可將字型設(shè)置一句改為：(mand STYLE HZ txt,hztxt 0 0 n n n)即可。 初始化程序, 把第1個分組項中的詞組讀入表txt_tb中(defun init( / fname fp txt1)(setq fname (findfile $))(if (not fname)(progn (princ \n文件 $ 不存在 !) (exit)) 。 progn(progn(alert (strcat 文件 fname1 不存在!))(set_tile (strcat c (itoa old_nn)) 1)；恢復(fù)原記錄號)) 。 字高是否為定值(/=(getvar TEXTSTYLE) HZ)。key = c2。key = c6。key = what。// 增加間距ok_cancel。二、原理及方法 　　AutoCAD對話框結(jié)構(gòu)包含有多種構(gòu)件，如edit_box(編輯框)、list_box(列表框)、radio_button(多選一按鈕)等，利用這些工具，可以開發(fā)出界面友好的實用程序。程序要求將常用術(shù)語、圖紙名稱、房間名稱等各分類所對應(yīng)的詞組庫文件名分別為$、$、$。若您的軟件中無這兩種字體，可將其它字體改名為該兩種字體（要求一個為英文字體，一個為中文字體），或?qū)⒊绦蛐薷臑槟哂械淖煮w。add_list txt_tb)(end_list)(setq i 1)(repeat nn；點取詞組分類項后的操作(action_tile (strcat c (itoa i)) (wr_txt))(setq i (1+ i)))(action_tile what (setq i (atoi $value))；選中詞組(setq txt (nth i txt_tb))(set_tile \sel_ok\ txt))(action_tile sel_ok (setq txt $value))(action_tile accept (setq ok T)(done_dialog 1)(unload_dialog dcl_id))(action_tile cancel