一個也許有用的 AutoLISP 程式

cpp 代码

; file: s-arc.lsp

; create a useful lisp of small- arc
; 模擬 人工畫圖的時候，使用圓規 或是 分規，
; 取 等長線段 的動作
; -----------------------------------------------

(defun rtod(r1 / )
  ; d1= (r1/pi)*180.0
  (* (/ r1 pi) 180.0)
  ); end of rtod()
; -----------------------------------------------

(defun dtor(d1 / )
  ; r1= (d1/180.0)*pi
  (* (/ d1 180.0) pi)
  ); end of dtor()
; -----------------------------------------------

(defun c:s-arc( / )
  (setq p1 (getpoint "\n Get 1st point: "))
  (setq p2 (getpoint p1 "\n Get 2nd point: "))

  (setq p3 (getpoint "\n Get 3rd point: "))
  (setq p4 (getpoint p3 "\n Get 4th point: "))
  ; -----------------------------------------------

  (setq s1 (distance p1 p2))
  (setq a1 (angle p3 p4))

  (setq a1 (rtod a1))
  (setq a2 (+ a1 8)
    a3 (- a1 8))

  (setq p5 (polar p3 (dtor a2) s1)
    p6 (polar p3 (dtor a3) s1)
    p4 (polar p3 (dtor a1) s1))

  (command "arc" p5 p4 p6)
  (princ)
  ); end of c:s-arc()
; end of file

评论

3 楼 sjgau 2006-12-29  

http://zh.wikipedia.org/w/index.php?title=%E5%85%AD%E6%9B%B8&variant=zh-tw

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

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

2 楼 sjgau 2006-12-29  

這是 中國 老祖宗的智慧，
丟掉可惜，五千年的歷史文化，
就靠他傳承。

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

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

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

加油吧，中國人

1 楼 redfeather 2006-12-28  

好像不应该写在这里

繁体字虽然看得懂

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

呵呵