【正文】 (setq pt0 (list 0 0)) (setq pt0 (getpoint)))(setq bln (/ 1000 bl))(while (and (= i 0) (= i n)) (setq xx (READLINE FD))(setq xx1 (read (strcat ( xx ))))(setq a 2)(if (/= (nth 2 xx1) nil)(progn (setq dmh (nth 0 xx1) zh (nth 1 xx1) ydms (nth 2 xx1)。基本步驟如下：命令：spline指定第一個點或〔對象（O）〕：，指定下一點：，指定下一點或〔閉合（C）/擬合公差（F）〕起點切向：，指定下一點或〔閉合（C）/擬合公差（F）〕起點切向：，指定下一點或〔閉合（C）/擬合公差（F）〕起點切向：，指定下一點或〔閉合（C）/擬合公差（F）〕起點切向：指定起點切向：，指定端點切向：，在這里我們要注意起點切向和端點切向的選擇，它們分別是1點坐標和5點坐標。鐵路線路平面圖上要繪出圓曲線和緩和曲線。計算曲中點的坐標(setq yhx ( 0 hyx) yhy hyy)。O1向ZH點或HZ點的切線作垂線垂足的距離。在鐵路干線線路中都要加設緩和曲線。若表達式中有變量，而該變量在程序中已設定了值，則按該值進行計算。第三章LISP語言在CAD道路設計中的各種應用在各個工程設計領(lǐng)域中，經(jīng)常要繪制一些曲線，特別是平面曲線，如水工結(jié)構(gòu)的溢流曲線、機械設計的齒輪漸開曲線等。支持科學/工程計算器上的大多數(shù)標準函數(shù)，如三角函數(shù)、指數(shù)、對數(shù)等。圓曲線是具有一定曲率半徑的圓??；緩和曲線是連接直線與圓曲線的過渡曲線，其曲率半徑ρ由無窮大（直線的半徑）逐漸變化為圓曲線半徑R。則有圖3緩和曲線上任一點的坐標m——切垂距，即ZH（或HZ）至自圓心。計算緩和曲線常數(shù)E0的值(setq qzx 0 qzy E0)。圓曲線是具有一定曲率半徑的圓弧,緩和曲線是連接直線與圓曲線的過渡曲線,其曲率半徑由無窮大直線的半徑(逐漸變化為圓曲線半徑。使用真樣條曲線命令繪制含緩和曲線的平曲線。 程序設計與實現(xiàn)該程序的運行是以AutoCAD2005為平臺，利用Visual lisp語言進行的程序開發(fā)，讀取我院自行開發(fā)的斷面法土方量計算程序的斷面數(shù)據(jù)，實現(xiàn)斷面序號、斷面樁號、原現(xiàn)斷面圖的快速自動繪制。用Visual lisp 語言開發(fā)小程序在斷面圖輸出中的應用，通過對子程序調(diào)用能實現(xiàn)斷面樁號、斷面序號、原現(xiàn)斷面線的分層輸出，是一個很實用的程序。然而大量重復性工作又使得工程設計制圖人員為之頭疼。①繪制路線導線。R———曲線半徑；lo———緩和曲線長；α———曲線偏角；βo———緩和曲線的切線角，即HY（或YH）點的切線與ZH（或HZ）點切線的交角；δ o———緩和曲線的總偏角；m———切垂距，即ZH（或HZ）都圓心O向切線所做垂線垂足的距離；p———圓曲線內(nèi)移量，為垂線長與圓曲線半徑R之差。AutoLISP程序代碼如下：(defunc:hhqx(/RL0alphaqxm p TL E0 X0 y0 alpha1 L L2 L5 P0 hhqx1 hyx hyy yhx yhy qzx qzy p1) (setq R (getreal \n 輸入圓曲線的曲率半徑R:))(setqr L0 (getreal \n 輸入緩和曲線長度L0:))(setq alpha (getreal \n 輸入轉(zhuǎn)向角α :))(setq alpha1 (/ (* alpha pi) 180)) 。p——圓曲線移動量，即垂線長與圓曲線半徑R之差。可以參照本文的做法，繪制三維空間曲線或其他更復雜的曲線，或?qū)⒈磉_式計算功能應用到其他設計環(huán)境中。關(guān)鍵的問題是，如何計算出曲線上點的坐標。平面函數(shù)曲線即是有簡單函數(shù)表達式的曲線類型，可考慮經(jīng)常遇到的4類：（1）直角坐標下形如y=f(x)的曲線；（2）直角坐標下的參數(shù)方程曲線；（3）極坐標下形如r=f(θ)的曲線；（4）極坐標下的參數(shù)方程曲線。c:cal)；讓命令c:cal能夠使用(princ (1)直角坐標下曲線y=f(x).\n)(princ (2)直角坐標下參數(shù)曲線x=f(i),y=g(i).\n)(princ (3)極坐標下曲線r=f(theta).\n)(princ (4)極坐標下參數(shù)曲線theta=f(i),r=g(i).\n)(setq ichoice (getint 選擇繪制曲線類型：))；選擇曲線類型(if (= ichoice 1) (curve1))；調(diào)用曲線繪制類型1(if (= ichoice 2) (curve2))；調(diào)用曲線繪制類型2(if (= ichoice 3) (curve3))；調(diào)用曲線繪制類型3(if (= ichoice 4) (curve4))；調(diào)用曲線繪制類型4根據(jù)用戶選擇的曲線類型，轉(zhuǎn)到相應的曲線類型繪制函數(shù)中，依次為直角坐標下的普通函數(shù)、參數(shù)方程，極坐標下的普通函數(shù)和參數(shù)方程。筆者在實踐中，利用AutoLISP編程，實現(xiàn)了基于AutoCAD的緩和曲線加圓曲線的自動繪制。緩和曲線方程式的坐標系為直角坐標系，其坐標原點為直緩點(ZH)，x軸與直緩點（ZH）的切線方向一致。在鐵路工務部門的日常鐵