Windows LiveWindows Live™
 
 
S.K.'s profile我的白牙PhotosBlogNetwork Tools Help

Blog
    7/27/2006

    试镜

                                                                        三个女人一台戏 
                           
                                      
           
     
                                                       
                                                           这个母亲是和儿子来放生鱼的
     
                     
     
     
     

                                                 这个帅哥，才几岁啊，耳朵就穿了个环。 

                                     

             

     

                                                    鲜花需要绿叶衬，绿叶需要墙面衬 

                                      

     

     

                                                       今天才知道为什么小荷才露尖尖角

                                        

     

     

     

     

    10:50:48 PM | Add a comment | Read comments (4) | Permalink | Blog it
    7/24/2006

    昨天

                                                        
                                                       
                                                     骑车的小民工，绕自己肚皮
     
                      
     
     
     
                                                                        
                                                                         心系何处？
     
                                       
     
     
     
     
                                                                 
                                                                        大拇指的夜
     
     
                                     
     
                                                                          
                                                                          章法
      
                      
     
                                                                            
    11:15:16 PM | Add a comment | Read comments (8) | Permalink | Blog it
    7/20/2006

    神话

          自古以来，时光倒流一直是人类的伟大梦想，象《神话》这样的神话，的确反映了广大劳动人民和所有无产阶级的根本要求。
          不过，这终究是一个神话，还急待世界人民的认同。
     
          直到前天，时光倒流来到了我的身边...
          它轻轻地来，挥了挥衣袖，又轻轻地走...
          它象雷锋一样做事不留名....
          那个诗人就是因为自己的诗作给人删了，痛苦之余，写下千古名句“随风潜入夜，删物细无声”...
     
          天知道为什么，硬盘里好多文件夹一个一个变成了32kb的文件！
          这其中包括，最近画的图，拍的照片，好多课件，好多作业....
          突然之间坐在电脑前，好像回到了3年前，那时候我还年轻啊，cad都才出2000版，中国还没那么富强。
     
          现在我知道了，时光倒流不一定是什么好事，难怪古人不无感慨地说“福兮祸之所依”。
         
          所以，你只有一种选择，那就是KODAK DVD-R刻录盘，它质量保证，量又足，价钱便宜，只要2.8,谁用谁知道啊！
     
          它才是我的神话！只是，我知道得太晚了...      
        
    10:49:25 PM | Add a comment | Read comments (9) | Permalink | Blog it
    7/9/2006

    月光

                                                     拍下来才觉得云走得飞快。
                    
     
     
     
                                           厚厚的云层，iso不小心弄到1600，躁了点
                    
    8:12:45 PM | Add a comment | Read comments (3) | Permalink | Blog it
    7/5/2006

    黄健翔

          没有黑马,没有冷门,列强们程序般顺利进级,八荣八耻,泾渭分明.所以我一直没什么激情看这次比赛,即使是选美，也会审美疲劳嘛.
          直到意大利和澳大利亚的那场比赛,后来引起全国甚至全世界的关注的黄健翔的解说事件.
         
          世界杯之外，多少其实我还关注一点黄健翔的其他事
          1、那年的十强赛,由于解说时过度批评米卢的排兵布阵,因此争议过.
          2、2届世界杯和白岩松、刘建宏的三味聊斋。
          3、他最近的那本新书《象男人那样去战斗》。
     
          我不知道为什么解说员不能有偏向，即使是训练有素的平衡木运动员也不能保证100％在木头上永远平衡，那么对我们的言论为什么要如此苛刻？
          在中国人眼里，意大利和澳大利亚，我们到底更爱谁啊？ 
          不好说吧，
          我喜欢意大利的圣马可广场和澳大利亚晒太阳的那个海滩；
          我喜欢意大利的空心粉和澳大利亚的牛排 ；  
          ....
     
          还好，昨天那场比赛，我们还是听到了黄健翔的解说，意大利又是最后时刻进球....
          今天的《体坛周报》，黄健翔的专栏题目是“伟大左后卫灵魂附体”，最后他这样写：“这只是足球场上特有的一种激情的描述，或者一种宣泄吧！我想在第119分钟进球的时候，喊出什么来都可以理解的，它只限于足球。”
         
          感谢cctv，感谢titan，你们给了黄健翔自由的空间，而那些有着党员般坚定黑白观的人们，能不能放松点呢？
    9:11:52 PM | Add a comment | Read comments (1) | Permalink | Blog it
    7/3/2006

    LSP

          LSP,是原始的cad程序.
     
          记得有段时间流行过一个cad的病毒,它的明显特征就是把"explode"命令给废了,用专业中的专业的话说叫给"undefine"了,各位如果不信,在命令行里试试 (undefine "line") 看看有什么效果,那种感觉就像身边只能带最高票面为1元的人民币一样痛苦.
          那次,把人家的病毒稍微改了狠一些,把什么copy,move啊都给undefine了,然后把文件放的更隐蔽了一点,不过终于还是只在捉弄了下朋友,因为我知道"看图的人有多幸福,画图的人有多辛苦!".
         
          话说回来,其实这个病毒并不高深,就是一个LSP程序.LSP可以载舟,亦可以覆舟嘛      
          相信经常有人碰到这样的情况,有人问你要cad文件,给嘛,自己的成果就白白出去了,不给嘛,面子上似乎也过不去.所以面对这样的情况,我最近制作了一个小程序,可以把图纸里面的所有线,切断成你希望的长度,然后,当然人家拿了去也就只能看不能用啦,
          至于它算不算病毒嘛,就见仁见智了,也许有一天发现自己的文件给人家"碎"了,别怪我....
     
     
    附使用方法:
       1.在命令行"appload"
       2.选择该程序
       3.命令行  sx
     
     
    把下列文本,存成"1.lsp",然后加载...
    (defun dxf (code elist)
     (cdr (assoc code (entget elist)))
    )
     
     
    (DEFUN udist (BIT KWD MSG DEF bpt / INP DE LEN DEP DES)
      (IF DEF
        (PROGN (setq DE (RTOS (* 10 DEF)))
        (setq LEN (STRLEN DE))
        (setq DEP (SUBSTR DE 1 (1- LEN)))
        (setq DES (SUBSTR DE LEN))
        (setq DE (STRCAT DEP "." DES))
        (setq MSG (STRCAT "\n" msg "<" DE ">: ")
       bit (* 2 (fix (/ bit 2)))
        )    ;setq    
        )     ;PROGN
        (setq msg (strcat "\n" msg ": "))
      )     ;if
      (initget bit kwd)
      (setq inp
      (if bpt
        (getdist bpt msg)
        (getdist msg)
      )
      )     ;setq
      (if inp
        inp
        def
      )
    )     ;defun
    ;====================================================================
    (defun c:sx(/ i ss1 l1 p1 p2 wd wdth length1 angle1 oldsn j)
        (command"undo" "g")
        (setvar "cmdecho" 0)
        (setq oldsn(getvar "osmode"))
        (setvar "osmode"  0)
    ;----------------------------------------------------------
        (if (= brokeall nil)
            (progn
                  (alert "\n 把图炸碎成短线不能再修改(在命令行键入:sx)\n\n 使用说明(步骤) \n\n
               1.输入炸碎的宽度 \n
                                          \n           ")
                  (setq brokeall 1)
       )
        )
    ;----------------------------------------------------------------------
        (prompt"\n 请选择需要炸碎的线(只炸LINE)!")
        (setq ss1(ssget))
    ;-----------------------------------------------------------------------------
        (if (= wdth nil)
     (setq wdth 100)
        )
        (setq wd (udist 1 "" "请输入炸碎的宽度" wdth nil))
        (if (= wd "")
     (setq wd wdth)
        )
        (setq wdth wd)
    ;-----------------------------------------------------------------------------
        (setq i (- (sslength ss1) 1))
        (setq ss2 (ssadd))
        (while (>= i 0)
     (setq l1 (ssname ss1 i))
     (if (= "LINE" (dxf 0 l1))
         (progn
      (setq ss2 (ssadd l1 ss2))
      (command "layer" "s" (dxf 8 l1) "")
      (setq p1 (dxf 10 l1))
      (setq p2 (dxf 11 l1))
      (setq llength (distance p1 p2))
      (setq angle1 (angle p1 p2))
      (command "line" p1)
      (setq j (/ llength wd))
      (while (>= j 1)
          (setq p1 (list
         (+ (car p1) (* wd (cos angle1)))
         (+ (cadr p1) (* wd (sin angle1)))
            )
          )
          (command p1)
          (setq j (- j 1))
      )
      (if (/= j 0)
          (command p2 "")
          (command "")
      )
         )
     )
     (setq i (- i 1))
        )
        (if ss1
     (command "erase" ss2 "")
        )
       
    ;-----------------------------------------------------------------------------
        (setvar "cmdecho" 1)
        (setvar "osmode" oldsn)
        (command"undo" "e")
        (princ)
    )
    9:37:08 PM | Add a comment | Read comments (6) | Permalink | Blog it