搬家启示
http://blog.sina.com.cn/sklxk

很多人说msn不能留言，这是我搬家的原因 

      有句古话叫“民以食为天”，人出生下来，本来第一件事就是要吃，没人知道才哭的；人死之前，往往也要吃，要做个饱死鬼。所以，电视里大款总是一副满嘴流油，咬根牙签的形象，而穷鬼总是一副不断咽口水的德性，有的时候我也会把饭吃得狼吞虎咽以表达中国GDP的飞速增长在我身上也得到了一定的体现。      

      早些年的时候，我们要吃饱。据说自然灾害的那段历史时期，人都吃不饱，那时候，我们都坐在高高的谷堆旁边，听妈妈讲那过去的事情，这种情况很好地反映了大家对粮食的渴望，如果是今天，我们一定是坐在沙发上听妈妈讲故事。

      又过了些年，我们开始要吃好了。大闸蟹要阳澄湖的，龙虾要澳洲的，路易要十三的......

      再过了些年，我们又开始不要吃饱了。说吃饭要七分饱，养生之道，这种欲言又止，意犹未尽的姿态，似乎才显得足够的富贵。这个阶段的杰出女性的形象是这样的：夹起2片芦笋，轻轻咽下，喝一口白开水，然后用轻的不能再轻的声音说“我饱了”。

     后来，又过了些年，我们又开始不要吃好了。要吃粗粮，要吃素，肠胃健康要喝盐水瓶，经常回响耳边关于饮食探讨的名言是“吃粥真的很舒服”。

     再后来，又有人提出，营养要均衡.......

     我知道，这样的循环是注定要继续下去的，人体这个机器我们始终也不知道它是怎么运行的，但它的调节能力却是不可低估的，在各种恶劣或者奢华的饮食条件下，我们的胃肠总是不断地再进化，所以要相信自己的身体。

     吃？那就套用那句广告吧：up to you！

      那天好友HT问起可否弄个批量打印的lsp，其实这算个难题，早在2004以前的版本，有个batchplt的批量打印命令，但操作及其复杂，而plot命令偏偏又不是内部命令，所以要在lsp里面解决连续plot命令真是一件痛苦、困难和糟糕的事情，但是2007的出现终于象遵义会议一样，在关键的时刻挽救好友的渴望。

      再打印了无数张纸后，终于搞定了这个程序，喜欢的朋友下载吧...不要忘记回帖哦...

      使用前，请根据你打图的比例等等设置好，并点击“应用到布局”，退出打印窗口。

      每次保证打印的图纸的比例都一样，如果不同请分次使用本命令。

      第一步  "请选择标准图框的块!" 即随便一个图框的块

      第二步 "图框打印第一点" 按刚才选的那个图框打印的第一点
      第三步 "图框打印第二点"  按刚才选的那个图框打印的第二点

      第四步 "请选择需要打印的图框!" 选择需要答应的图框（可混选，程序可以过滤）

附使用方法:

     1.在命令行"appload"

     2.选择该程序

      3.命令行  pt

     把下列文本,存成"1.lsp",然后加载...

(defun dxf (code elist)
 (cdr (assoc code (entget elist)))
)

(defun addss (ss1 ss2 / i l1)
(if ss1
(progn
(setq i (- (sslength ss1) 1))
(while (>= i 0)
(setq l1 (ssname ss1 i))
(ssadd l1 ss2)
(setq i (- i 1))
)
)
)
ss2
)

 ;要是有我原来lsp的话，就从下面开始就可以了

(defun c:pt( / i  l l1 p0 p1 p2 p3 p4 ss1 ss2  bname )
(command"undo" "g")
(setvar "cmdecho" 0)
(setvar "osmode" 163)
(command "ucs" "w")
(setq i nil)
(while (/= i "INSERT")
(prompt"请选择标准图框的块!")
(setq l1 (car (entsel)))
(setq i (dxf 0 l1))
)
(setq p1 (getpoint "图框打印第一点"))
(setq p2 (getcorner p1 "图框打印第二点"))
(setq p0 (dxf 10 l1))
(setq bname (dxf 2 l1))
(prompt"请选择需要打印的图框!")
(setq ss1 (filss (ssget) "INSERT"))
(setq i (- (sslength ss1) 1))
(setq ss2 (ssadd))
(while (>= i 0)
(setq l (ssname ss1 i))
(if (= (dxf 2 l) bname)
(setq ss2 (ssadd l ss1))
)
(setq i (- i 1))
)
(command"ucs" "o" p0)
(setq p1 (trans p1 0 1 ))
(setq p2 (trans p2 0 1 ))
(command"ucs" "p")
(setq i (- (sslength ss2) 1))
(while (>= i 0)
(setq l (ssname ss2 i))
(setq p4 (dxf 10 l))
(command "ucs" "o" p4)
(command "plot" "y" "" "" "" "" "" "" "" p1 p2 "" "" "" "" "" "" "n" "" "")
(setq i (- i 1))
(command "ucs" "p")
)
(command "ucs" "p")
(setvar "osmode" 163)
(setvar "cmdecho" 1)
(command"undo" "e")
);defun

                                                    越来越喜欢逆光的感觉，其实那时候天还很亮很亮。

                                                 码头的感觉，所有东西都排着队：路灯、人、栏杆

                                                          这种风景一定不能少了孤独的美女啊！

                                                                            美丽的光斑       

                                                       老外居然把鞋脱了泡脚，我觉得他们生活好放松                  

                                  

                 

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

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

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

      服务这个话题，终于还是要写到第三集了....

      源于最近的2件小事。

      1、前天去买个淋浴龙头，无商不奸，一套龙头被一样一样拆开来卖，谈好价格才发现其实还少东西，所以买个这么简单的东西都要折腾半天。过了三天，要装了，才发现少了东西没取，赶忙赶过去，还好，人家阿姨一听我说，就把东西给我了，

      "那天我下班理货的时候就发现出问题，一直等你来拿呢,"

      "我不是给你留过电话的嘛?怎么不给我打个电话?"

      "....."(惊讶ing)

      2、前天，我香港的朋友把我们一起看中的壁炉传给我看看，说是给他业主看了，定下来了。我一看，他居然把旁边稍微遮住壁炉的东西用ps处理了一下，我马上明白了，给业主看到东西一定要是最清楚的,我顺手把那天我自己拍的照片打开来，一看其实旁边就是一个白色女神雕塑.

      我那个香港的朋友和我说过，上海的发展已经是世界一流了，在城市的硬件上和香港比是有过之而无不及，但是，上海的服务意识还差香港20年.....

      最近的天真好玩，热个半死，然后黄昏的时候下场大雨

      这样的日子很象在西递的那段日子....

                                             乌云稍微美化一下，就漂亮多了 

                                         曝光30妙，光圈22，再黑也不怕，哈哈   

                                  左边都是黄色的，右边都是红色,可惜没堵车啊.....