论坛首页 综合技术论坛

一個也許有用的 AutoLISP 程式

浏览 3879 次
精华帖 (0) :: 良好帖 (0) :: 新手帖 (0) :: 隐藏帖 (0)
作者 正文
   发表时间:2006-12-25  
cpp 代码
  1. ; file: s-arc.lsp   
  2.   
  3. ; create a useful lisp of small- arc   
  4. ; 模擬 人工畫圖的時候,使用圓規 或是 分規,   
  5. ; 取 等長線段 的動作   
  6. ; -----------------------------------------------   
  7.   
  8. (defun rtod(r1 / )   
  9.   ; d1= (r1/pi)*180.0   
  10.   (* (/ r1 pi) 180.0)   
  11.   ); end of rtod()   
  12. ; -----------------------------------------------   
  13.   
  14. (defun dtor(d1 / )   
  15.   ; r1= (d1/180.0)*pi   
  16.   (* (/ d1 180.0) pi)   
  17.   ); end of dtor()   
  18. ; -----------------------------------------------   
  19.   
  20. (defun c:s-arc( / )   
  21.   (setq p1 (getpoint "\n Get 1st point: "))   
  22.   (setq p2 (getpoint p1 "\n Get 2nd point: "))   
  23.   
  24.   (setq p3 (getpoint "\n Get 3rd point: "))   
  25.   (setq p4 (getpoint p3 "\n Get 4th point: "))   
  26.   ; -----------------------------------------------   
  27.   
  28.   (setq s1 (distance p1 p2))   
  29.   (setq a1 (angle p3 p4))   
  30.   
  31.   (setq a1 (rtod a1))   
  32.   (setq a2 (+ a1 8)   
  33.     a3 (- a1 8))   
  34.      
  35.   (setq p5 (polar p3 (dtor a2) s1)   
  36.     p6 (polar p3 (dtor a3) s1)   
  37.     p4 (polar p3 (dtor a1) s1))   
  38.   
  39.   (command "arc" p5 p4 p6)   
  40.   (princ)   
  41.   ); end of c:s-arc()   
  42. ; end of file   
   发表时间:2006-12-28  
好像不应该写在这里

繁体字虽然看得懂

但是确实看着费劲儿 多了很多勾勾划划

呵呵
0 请登录后投票
   发表时间:2006-12-29  
這是 中國 老祖宗的智慧,
丟掉可惜,五千年的歷史文化,
就靠他傳承。

禮失而求諸野,目前
全世界 大概只有台灣還在使用 正體字[繁體字]
的中文。

想想看,當您踏進故宮博物館,看不懂您 祖先的文字,
不是很可惜嗎?

中國的文字,其實是很有意思的,
造字的規矩有
象形,指事,形聲,會意,轉注,假借
詩中有畫,畫中有詩;所推崇的是 王維

加油吧,中國人

0 请登录后投票
   发表时间:2006-12-29  
http://zh.wikipedia.org/w/index.php?title=%E5%85%AD%E6%9B%B8&variant=zh-tw

六書,指漢字的六種構造條例,是後人根據漢字的形成所作的整理,而非先民的原始造字法則。然而,在六書出現後(時間最遲是東漢),人們造字時:

象形
指事
形聲
會意
轉注
假借
其中象形、指事是「造字法」,會意、形聲是「組字法」,轉注、假借是「用字法」。





0 请登录后投票
论坛首页 综合技术版

跳转论坛:
Global site tag (gtag.js) - Google Analytics