// きり 貫通タイプ(改) // // ============================================= // (C)Copyright 2008 AFsoft All Rights Reserved. // ============================================= #LIST  // D = 3, 4, 5, 6, 8, 10  // 利用するものをLIST定義しておくと良いかもしれません #VAR  D = 10  ;*きりの径  L = 20  ;*深さ  i  w1  w2 #DRAW  #IF ((D < 0)||(D > 1000))   BEEP   MESSAGE "入力エラー","きりの径の値が異常です。","きりの径の値を再入力して下さい。",0,0   #EXIT  #END  #IF ((L < 0)||(L > 10000))   BEEP   MESSAGE "入力エラー","きりの深さの値が異常です。","きりの深さの値を再入力して下さい。",0,0   #EXIT  #END  LAYER SetLineLay1  // 外径線  PEN SetLineCol1  // 原点を上面中心点にしたいので  // 深さの分、変換マトリックスを下へ下げます  // ここでは円筒の作図に円柱を利用します  // 円柱の原点は変換マトリックスとなります  CAL w1 = -L  MATRIXL 0,0,w1  CAL w1 = D/2.0  CYLIND i,SetArcSep,w1,L,1,1,1 // きりの径  // 穴なので、内側を表面にしたい為  // 最後の表裏逆フラグを「1」にしています