我想看一级黄色大片_久久亚洲国产精品一区二区_久久精品免视看国产明星_91久久青青青国产免费

您的位置:網站首頁 > CAD教程 > CAD教程文章

CAD程序語言 LISP 傻瓜拼湊編程法

時間:2008-07-27 11:44:35 來源:
Auto Lisp 是Auto CAD 軟件自帶的一種程序語言,其編程軟件已包含在Auto CAD 軟件中,用’VLIDE命令即可打開進行編程。
  
  這種程序語言最方便之處是與Auto CAD完美結合,特別是在編程錯誤時不會導致CAD系統崩潰。學習Auto Lisp不需具備編程基礎、不需會英語、不需記憶和背誦單詞之類的程序函數代碼,只需要會中文輸入和知道想編什么樣的程序,就可從現有的各類典型程序代碼庫中,用照葫蘆畫瓢的方式,加以替換和修改;用復制和粘貼的方法進行拼湊編程,這樣就湊成了一個新的程序,這和滾雪球是一樣,鋼構CAD中的程序都是這樣拼湊滾出來的。
  
  
  
  
  
以下文字是一個畫圓的示范程序源代碼,可將其選中復制粘貼到編程序界面中,點擊加載活動編輯窗口后,在CAD命令行輸入AAA即可運行該程序。
  
  
  
  ;|
  
  一個畫圓的示范程序:
  
  以下黑顏色的字母可任意設定,與程序本身無關,只起個臨時代號的作用
  
  以下藍顏色的文字為程序自身的標準函數,可復制粘貼調用,不能更改也無需記憶
  
  以下粉紅色的文字為中程序界面中顯示的中文內容,可根據需要書寫設置
  
  本個字體顏色的文字,是為便于以后理解程序而加在源代碼之后的注釋,其本身不參與程序運行,但有詳細的注釋,能為以后編寫類似程序提供快速上手的作用。
  
  |;
  
  (defun C:AAA(); AAA 為自定義的程序命令名稱 可隨意定
  
  (SETQ R1 678);SETQ 為賦值函數,此處為將數據 678 賦予 R1 此處 678 數值可隨意設定
  
  (SETQ ZR1 (rtos R1)); rtos 為將數據轉換為字符 ,再賦值給 ZR1
  
  (setq p1 (getpoint "n 請點取圓中心點:")) 用光標在屏幕上指定任意一個點 賦值給 P1
  
  (command "CIRCLE" P1 R1);用畫圓命令 CIRCLE 畫以 P1 為圓心, R1 為半徑的圓
  
  (SETQ VZ (STRCAT "你 設 置 的 圓 半 徑 為 " ZR1 STRCAT 將各種文字組合成一個新的文字,并賦值給 VZ
  
  
  
   "
  
  
  
  程 序 原 來 這 么 簡 單 呀 ! " ) )
  
  (alert VZ);在屏幕上顯示文字 VZ 的內容
  
  );全部程序完