非凡程式 (小说)

zynyjp

         非凡程式，看屌丝主人公曲折离奇的程式修仙，推倒工程界各类绝色美女，是命运的等待还是宿命的纠结。
     主人公，共经历动念、静意、阀心、开窍、脱体、分心、灵劫、修神、归灵、大乘九个阶段最后飞升工程仙界。
     宇墨，我的腿白吗？帮人家揉揉，上一点、上一点、再上一点。。。。。。。。。。。。。。。。。。。。。。
     宇墨，你看一下人家的事业线越来越深了。。。。。。。。。
     

zynyjp

第一章 表白惨遭”二货”追打 屌丝主人公误入“幸”福花园

“袁宇墨，你个傻冒，他妈的给老子站住，是不是男人呀！”
下班时间，北川市芙蓉南路飞快的跑出一个男人，在他身后紧追的有四个手持铁棍的肌肉型男。
袁宇墨回头看了看，一边跑，一边大声的喊，“王不二，你个王八蛋，有种你他妈的给老子站住，看小爷我不整死你。”
领头的那个叫王不二，紧随其后啐道：“傻逼，站你妈个头，有种你别跑，老子弄死你！”
袁宇墨反脸骂道:“有种你他妈的别追”
5个男的一路不停的骂，不停的狂奔。袁宇墨是跑的上气不接下气，心里是一阵阵委曲，荒不择路的跑进了一家女子休闲会所。
王不二追到了这家女子休闲会所门口，看见门口坚着一块牌“谢绝男士入内”，就停了下来。
王不二没有追进去，并不是因为王不二情操有多么高尚，而是这个凯逸蓝天女人休闲会所的主人是欧阳雅情，想起欧阳雅情这个女人，王不二心中就有说不出的发冷，她可是独闯黑龙会唯一一个能全身而退的金色妖姬，捌开不说这个，来这个会所的女人那个不是即富又贵的，都不是他王不二能得罪。
此时站在王不二身后的那个高大男看着王不二一动不动也不知道他在想什么，于是站出来说道:“二哥，我们要不要进去把他弄出来。”
王不二听了这话一顿冒火，一脚就蹿了过去。
“莫阳伟，你小子想死呀，也不看看这是什么地方，算了，这笔账我们回头再收拾他。”
袁宇墨往后看了看，没看后面有人追来，一颗心顿时放了下来。想起今天那纯属“意外”的表白就感觉到百般委屈，自己不就喜欢郝小蝶吗，追求喜欢的人难道有错。
在这样一个苍进空早已不是处女，冠希买了照相机，李刚有了儿子，菊花不在是一种花，企鹅也不只是QQ，2b不单是铅笔，杯具也不只是用来刷牙滴，楼房不是用来住的，黄瓜，香蕉也不只是用来吃的，教授是叫兽，太阳叫日，领导经常写日记，鸭梨山大，肚子大了不知是谁的，每天路边都有车震的年代，像哥这样在勘察设计圈内摸爬滚打了三年还保持纯洁的男人，小蝶为什么你就不能多看几眼呢！
都怪鲁班那死老头子，说他是什么神仙，还说什么在工程设计界内混就要保持我们工程技术人员追求女孩子的独特性，半夜叫醒他背了一夜稀奇古怪的咒语，什么defun        、setq、command之类的，只要按他说的咒语在小蝶的电脑上施展一下，就会在小蝶开启CAD弹出999朵玫瑰和我爱你之类的浪费表白。结果王不二那小子，不知道今天发什么神经用一下小蝶的专用电脑，自己就这样一路杯具到现在。
袁宇墨想了想这些，就觉得太委屈，闭着眼晴摸了摸头，鲁班老头呀，被你害惨了呀。张爱玲都说了，“要进入一个女人的心，首先要进入她的身体。”
他还要自己搞这些乱七八糟的，折磨了自己一夜。想了想，这一刻袁宇墨嘴角微微的翘了起来，盘算着怎么收拾鲁班那怪老头。完全没觉悟到更杯具的事，下一刻正等待着他。

429014673

猫的马甲   

zhangq_cai1

猫的粉丝~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~·

newer

期待楼主续完，呵呵。顶一个。

Free-Lancer

期待连载！来自: Android客户端

zynyjp

第二章   你猜我的是黑屁股，还是白屁股

云想衣裳花想容，春风拂槛露华浓。
若非群玉山头见，会向瑶台月下逢。

“先生，请问一下你找谁，我们会所营业时间谢绝男士入内”
一个长相清秀声音清甜的白衣女生，带跑过来对着袁雨墨说道。
“啊！男士在那，我看你长的蛮漂亮的，你是不是在找男朋友呀”
白衣女生完全没意识到自己已经被这个家伙给算计到了，嘟了嘟小嘴说道，“哼，你不是男的，难道你是女的呀。”
袁宇墨默默念道什么鬼地方还性别歧视，顺着这女孩的发隙，斜着头往里面看去。
“啊！你们这怎么全是白屁股，木有黑屁股吗？”
听他的这声大叫，里面十几双杀人眼晴全对着他扫了个人。如果眼神可以杀人的话，袁宇墨可能已经死上千百次了。
白衣女生也是从脸上一直红到了脖子，嘴里小的不能再小的声音碎道“该死的大色狼，看什么看”。
“想看黑屁股呀，来跟姐姐去后院那不只有黑屁股，就连黑木耳、粉木耳都有。”
随后，一个穿着火辣女人慢步盈盈走了过来，靠在门口，抱着胳膊，两眼动情的看着袁宇墨，像是看着自己久别的小情人似的。
只见她上身套着一件齐腰的红色小背衫，下身一件齐B短裤，一张精致漂亮脸蛋，胸前的两座大山更是呼之欲出，极其诱人。
袁宇墨顿时被吸引住了，此刻多么希望自己就是那扇门，一个邪恶的声音合适宜的响起“推倒她，推倒她。。。。。。” 小宇墨更是蠢蠢欲动，有一种冲动，把这个女孩子紧紧搂在怀中，霸占她的一切，完全忽略了四周同情的目光。
这名女子看了看袁宇墨，似乎对他反应很满意，扭了扭屁股。对着袁雨墨买萌的说道：
“喂，你看够了没，你猜我的是黑屁股，还是白屁股”
妖精呀，绝对的妖精，任何接近她的男人都会死的很惨！
袁宇墨被他的这种直觉吓了一跳，冷醒了过来。
“那个，我朋友约了我一起去吃饭，我先走了” 袁宇墨一说完转身拔腿就跑了出去，一个声音在内心深处呐喊，不快点跑就死定了。
“帅哥，你怎么这么快就走了，那个黑木耳、粉木耳你不看了”
听了这话，袁宇墨两脚一软，摔了狗啃屎。
“我朋友真的约我吃饭，一会就迟到了。”袁宇墨艰难的爬了起来，拍了拍身上的灰尘，一瘸一拐了向着芙蓉南路走去。
等袁宇墨走远后，女子完全一付高贵的形象，一脸严肃的对白衣女生说：“小月，我需要刚才那个男的所有资料，这事你按排冷雨去做”

zynyjp

第三章     龙凤梦吟决
     袁宇墨灰头灰脸的回到了家，直接冲进自己的房间，对着自己书桌前手掐兰花，对着木质斧头念道:
     “四方神灵，开江劈浪，八方鬼谷，助显天威，借我之名，雪色桃花，开。。。。。。”
      雪色桃花涧是鲁班斧的小世界，当年鲁班羽化升仙之际被同门奸人所害，肉身尽毁，阳神重伤，逆留之际将所剩功力注入他的随身铁斧塑造了一个小世界，鲁班阳神也飞入其中重新修炼肉身。后又经师傅托梦需找一个阳年阳月阳日阳时生属龙的小子和一个属阴年阴月阴日阴时生属鸡的女孩双修龙凤梦吟决，方可重塑肉身。袁宇墨当时被北川市勘察设计研究院派去鲁班山采集地形。一天袁宇墨和组员带着RTK开工时，被草刺划破了手，血液偶然的滴落到了这把鲁班斧上，当时突然天空中电闪雷名，吓得袁宇墨大吼，“黑子，关机，你不想死的话就快点关机。”这个可是天宝进口货，一台得30多W华夏币，坏了回去院长还不扒了咱的皮。”
第一反应没想自己是否安全而是想到了关掉了RTK，真不知道是该夸他们敬业精神还是骂他们SB。
         “黑子，你有没有听见什么声音。”
“什么声音，墨哥你可别吓我，今天我是够怕的了，这电比水桶还粗。”
看黑子没听见什么声音，于是一个心就放了下来，可能是刚被吓蒙了产生了幻觉，自我小小的安慰了一下。
“是啊，此次不死，我俩必有后福”
“1500年了。。。。。。足足1500年了。。。。。。我终于等到了你”
“黑子，你说什么类1500年还终于等到了,你等那个妹子呀”
“墨哥，我没说话呀，你把刚才的话再复一次”
“1500年了。。。。。。。。。。。。。。”
“啊。。。妈呀。。。。。。。。”
  两人是脸色铁表，手脚发抖，连滚带爬的往山下跑。
“嘿嘿。。。想跑，没那么容易，括成双、引成对，(command "delay" "900000") ;延时一刻”
“黑子，等一下我”
“墨哥，你怎么跑那么慢，你玩老子呀”
      尽管黑子以为袁宇墨玩他，但是看着他那放慢的刘翔式动作，心里还是没底，继续加快的往前奔去。
      “小子，还挣扎，看我的，括成双，引成对，(command "pline" pt1 pt2 pt3 pt4) ;各归各位，结界 ”
      袁宇墨听着这些七里八里的东西，心里一阵阵发毛，挺十二分了的精神。
     “神仙大哥，我从小听话，从不逃课，以前看到路边乞讨我也是第一个给钱，昨天张阿姨家女儿病了，我还背她上医院。”
      鲁班掐指一算，微笑的慢慢的道
      “小子，你同桌是个漂亮女人，以前你经常拿破碗蹲路边，你张阿姨女儿也是个绝色美女对吧”
           “。。。。你怎么知道”
      “小子，你和我有师徒缘份，快点跪下拜师吧”
       袁宇墨心底一阵翻云覆雨，既然要收我为徒，肯定不会对我不利，刚还吓的我要死，嘿嘿。。。那有那么简单，眼珠子转了一转主意打定。
      “凭什么，你刚才还吓的我要死”
      “为师那是刚出来高兴，一时兴致，忘记提前打招呼”
       我还没拜师，你就为师。。。为师的，还没提前打招呼，你要提前打招呼我还不得吓死呀。
      “不干。。。。。。”
      鲁班这老头可急了，这小子是阳年阳月阳日阳时之人可是十世修善，四柱全阳的人聪明异常，世间少之又少，更是修仙的真命人。即然四阳人出现那四阴人也应出现，只要他冲破阀心期到了开窍期就能感应到四阴人的存在，怎么可能放过。
“听说那个同桌不理你，那王阿姨家的美女也不看好你”
“关你什么事”
“你想都推倒吗”
“师傅在上，请受徒儿一拜”

zynyjp

第四章    爱疯5看空空姐不错

   “鲁老头，鲁老头。。。。。。 师父你都当了二个月了，结果不要说推倒，我是连手一个都还没拉过。小爷今天还差点被人给宰了。”
袁宇墨一边往桃花涧的小木屋里冲一边吼道。
鲁班一听这老头，老头心底顿时不快，二个月了就拜师的时候这小子叫了声师父，本不打算理会这小子了，可后面听见了有人要宰了这便宜徒弟，火气就冒了上来，怎么说自己也是堂堂藏剑门掌门，虽然落难，但还是保持着修仙人“肉弱强食”又极爱护短的真性情。
“小子，叫声师父你会尿床吗，一点都不懂得尊师重道。”
听了这话，可袁宇墨这小子硬是没一点点觉悟，依然喊道：“老头，小爷都拜师这么久了，现在一切都没一点点变化。”
是该让这小子学点真本事了，要不那天自己不在他身边，被宰了就后悔都来不及了，老头就老头吧！总比封在这斧头里面强。
“小子，为师从今日起授你LISP入门口决《净心修气决》，你要好生牢记。”
程序开发有三步  输入计算和输出
结构一共分三种  顺序循环与分支

函数大将任你挑  变量参数随将行
左右括号配成双  雾里看花结鸳鸯
单引挂帅结成表  分号开路写篇章
书写文字添双引  查询变量请感叹
加减乘除表计算  大小等于来判断
整数实数字符串  对应函数不可乱
自定函数设参数  类型个数要对应
图形关联反应器  图元不变是句柄
计算绘图步骤多  要是烦了请循环
“本门功法是以符咒为主修，本应执笔净身以珠砂、黄纸一气绘制而成，现经本仙改进可凝气为纸招唤而成。”
鲁班二月前见袁宇墨拿神器绘制建筑图，突发其想觉得藏剑门这方面应与时俱进，于是将自己的意念种与该神器中，其间拜山明经社区和晓东家园，在与社长和园长会同不死猫、高飞鸟、飞诗、牢固、GU_XL等八大长老交流下，结合本门功法的特性，选择了LISP语言作为本门功法改进的基础。
“徒儿，过来到为师这来。”
袁宇墨，缓缓的走了过来去，只见鲁老头手指轻轻在袁宇墨额头正中轻轻一点，宇墨顿感一阵头痛，《明经ActiveX 和 VBA 参考》、《明经AutoLISP 函数参考》、《明经DXF参考》、《VLISP开发小助手16》等瞬间在大脑中闪过。
“这些是明经社区明总、不死猫、飞诗等忘年好友赠与为师的礼物，你要好生收藏消化，此乃助本门画图咒之神器。好了为师累了，你先回归本体吧！”
“师父，那个推倒。。。。。。”
“没出息的家伙，你随为师修仙那个根本就不是问题，好生练习口决，噢，对了上次为师用大意念术拜山门的时候有人说用那个爱疯5看空空姐不错，下次你给为师带过来。”
额，袁宇墨心里一阵上鼓打不着下鼓，中国的互联网不只祸害了青少年，就连这1500多年前的老怪物都给祸害了。
“老怪。。。师父，那个没什么好看的，我先走了。”
“乖徒儿，下次给。。。。。。。”
话还没说完，袁宇墨早跑没影了，疯了还不跑空空姐没什么，那个爱疯5可就能要的他的命呀！什么推倒早忘没影了。

zynyjp

第五章  七窍玲珑丹

袁宇墨意识回到了自己的本体，走到床前双腿盘坐、左手立掌于胸前右手掐着兰花指放于右大腿之上，修炼起师父所授的《坐禅决》凝气聚神于丹田。
“小子，醒醒！再不醒丹田就要爆了”
“师父，我停不下来，有股气自己在走而且化气于水聚于我的丹田”
“什么就结丹了，小子这次能不能活要看你的造化了，我不能在你意识空间待太久，为师先走了”
“喂，老头。。。老头。。。不待这样的”
鲁班一退出来一脸的贼笑，本来还以为要浪费一颗筑基丹，这小子才可结丹。没想到他直接就结丹，四阳之人果然是修仙的天才。
毕竟是自己徒弟，鲁班也不敢太过大意，又再一次想进入了袁宇墨的意识空间查看情况，可怎么也进不去破不开他的识海。只见他默念道：“小徒弟，不是为师不帮你，只是灵体不奈消耗。括成双，引成对，(command "pline" 白虎 朱雀 玄武 青龙 “c”) ;各归各位，四象结界 。也只能为你做这么多了，你自求多福吧”
一天、二天、三天，很快就一个月过去，袁宇墨除身上污垢一天比一天多外，其他根本没什么变化，老头子也不敢再进去，看不到情况，只能干等着。
“小徒弟，你是什么奇帕男呀，再不醒就九九归一”
鲁班是一个心两个弦呀，自古只有玉帝张百忍结丹的时候才九九归一七彩之霞直冲云霄，称之七彩霞云丹。修仙本是违反天道，所以境界每上一个台阶都将受雷火之刑，这小子要是再不醒，那位能放过他吗？
正在鲁班思索的时候，袁宇墨身上突闪一阵阵金光，随之他的缓缓睁开了眼晴。
“喂，老头你搞什么怎么这么臭”
“你自己看”鲁班递给了袁宇墨一面镜子。
“这谁呀 MY GOD”
袁宇墨赶紧冲到浴室，足足先了一个小时换了个短裤才出来，鲁班是两眼圆大的盯着他。
袁宇墨两手快速护胸可怜惜惜说“师父，我不搞基”
“你他娘的才搞基，你小子不知道走了那们子狗屎运，不只结了金丹，还是金丹中的极品七窍玲珑丹，这是符咒基本图形调用之法，好生练习”
鲁班双手一挥撤掉了结界，飞回了雪色桃花涧。


《基本图形调用之法》
;直线
;方法 (command "LINE" 坐标 坐标 ...... "")
;|实例|;(command "LINE" getpoint getpoint "")
;多义线两种方式
;方法
;1、不闭合(command "Pline"  坐标 坐标 ....... "")
;2、闭合(command "Pline"  坐标 坐标 ....... "C")
;|实例|;(command "Pline" getpoint getpoint getpoint "C")
;射线
;方法 (command "xline"  坐标 坐标 ....... "")
;|实例|;(command "xline" getpoint getpoint getpoint "")
;多边形
;方法
;1、内接圆(command "polygon"  边数目  中心点 "i" 半径)
;2、外切圆(command "polygon"  边数目  中心点 ....... "")
;3、边长 (command "polygon"  边数目  "e" ;|[边长]|; 端点1 端点2)
;|实例|;(command "polygon" "5" getpoint "i" "5")
;矩形
;方法(command "rectang" 第一个角点  第二个角点)
;|实例|;(command "rectang" getpoint getpoint)
;圆弧
;方法
;1、(command "ARC" 圆弧起点  圆弧的第二个点  圆弧端点)
;2、(command "ARC" "C" 圆心点  圆弧起点  圆弧端点)
;3、(command "ARC" "C" 圆心点  圆弧起点 "A" 角度)
;4、(command "ARC" "C" 圆心点  圆弧起点 "L" 弦长)
;|实例|;(command "ARC" getpoint getpoint getpoint)
;圆
;方法
;1、(command "circle" "3P" "tan" 坐标 "tan" 坐标 "tan" 坐标)
;2、(command "circle" "2P"  坐标  坐标 )
;3、(command "circle" 圆心坐标 半径 )
;4、(command "circle" 圆心坐标 "D" 直径 )
;5、(command "circle" "T" 切点  切点 半径)
;|实例|;(command "circle" "3P" "tan" getpoint "tan" getpoint "tan" getpoint)
;样条曲线
;方法
;1、(command "spline" 坐标  坐标 ...............)
;2、(command "spline" "M"  "F"  坐标 坐标 ..... )
;3、(command "spline" "M"  "CV"  坐标 坐标 ..... )
;4、(command "spline" "D"  "4"  坐标 坐标 ..... )
;5、(command "spline" "O" 对象)  多段线转样条曲线
;|实例1|;(command "spline"  getpoint  getpoint ... getpoint "C")
;|实例2|;(command "Pline" getpoint getpoint ... getpoint "C")

;椭圆及椭圆弧
;方法
;1、(command "ellipse" 坐标  坐标 长度)
;2、(command "ellipse" 坐标  坐标 “r” 角度)
;3、(command "ellipse" "A"  坐标  坐标  长度  起点角度  终点角度)
;4、(command "ellipse" "A"  坐标  坐标  "r" 角度 起点角度  终点角度)
;5、(command "ellipse" "c" 坐标  坐标 长度)  多段线转样条曲线

;|实例1|;(command "ellipse"  getpoint  getpoint "45")
;|实例2|;(command "ellipse" "A" getpoint getpoint "45" "45" "135")

;块插入
;方法
;1、(command " _insert" "块名"  插入点 X比例 Y比例 旋转角度)  
;2、(command " _insert" "d:\\块名"  插入点 X比例 Y比例 旋转角度)
;|实例1|;  (command " _insert" "d:\\ABC.dwg" (list 2 2 0) "1" "1" "0")  先在路径目录下建立ABC.dwg 的图块

;块写入
;方法
;1、(command "wblock"  "C:\\中文Lisp\\新块.dwg"  "" 坐标  对象 "")
;|实例1|;  (command " wblock" "C:\\中文Lisp\\新块.dwg" (list 2 2 0) "1" "1" "0")  
;填充
;方法
;1、(command "hatch" ""    "" "n" 坐标1 坐标 坐标 ..... 坐标1  "" "")
;2、(command "hatch" "s" "angle" "1" "90" 对象 "" )
;|实例1|;  (command "hatch" "s" "angle" "1" "90" (car(entsel)) "" )

;面域
;方法
;1、(command "region" 对象 ) 需要选择封闭区域      
;|实例1|;  (setq 点1 = (getpoint "请选择一点:"))
            (setq 点2 = (getpoint 点1 "请选择一点:"))
                           (setq 点3 = (getpoint 点2 "请选择一点:"))
                           (setq 点4 = (getpoint 点3 "请选择一点:"))
            (command "pline" 点1 点2 点3 点4 "C")
            (setq 图元 = (entlast))
            (command "region" 图元 "")

;文字
;方法
;1、(command "text" 坐标 文字高度 文字角度 文字内容 "" "" "")
;2、(command "text" "对正" "对正模式" 坐标 文字高度 文字角度 文字内容 "" "" )
;3、(command "text" "样式" "字体" "对正" "对正模式" 坐标 文字高度 文字角度 文字内容 "" "" )  
;|实例1|;  (command "text" (getpoint) 2.5 0 "1111" "" "" "")

;删除
;方法
;1、(command "erase" 对象 "")
;|实例1|;  (command "erase" (car(entsel)) "")

;复制
;方法
;1、(command "copy" 对象 "" 坐标 坐标 "" "")
;|实例1|; (setq 对象 =  (car(entsel)))
           (setq 点1 = (getpoint "请选择一点:"))
           (setq 点2 = (getpoint 点1 "请选择一点:"))
           (command "copy"  对象 "" 点1 点2 "" "")

;复制
;方法
;1、(command "mirror" 对象 ....  "" 坐标 坐标 "Y") 删除源对象
;2、(command "mirror" 对象 ....  "" 坐标 坐标 "N") 不删除源对象
;|实例1|; (setq 对象 =  (car(entsel)))
           (setq 点1 = (getpoint "请选择一点:"))
           (setq 点2 = (getpoint 点1 "请选择一点:"))
           (command "mirror"  对象 "" 点1 点2 "n")

;偏移
;方法
;1、(command "offset" 偏距 对象 坐标 "") 不删除源对象
;2、(command "offset" "E" "Y" 偏距 对象 坐标 "") 删除源对象
;|实例1|; (setq 对象 =  (car(entsel)))
           (setq 点1 = (getpoint "请选择一点:"))
           (command "offset" 5.5 对象  点1 "")

;阵列
;方法
;1、(command "array" 对象 "" "p" 坐标 数量 "" "") 环形阵列
;2、(command "array" 对象 "" "r" 行数 列数 行偏距 列偏距 角度) 矩形阵列
;|实例1|; (setq 对象 =  (car(entsel)))
           (command "array" 对象 "" "r" 5 5 10 10 0)

;移动
;方法
;1、(command "move" 对象 "" 坐标  坐标) 移动
;|实例1|; (setq 对象 =  (car(entsel)))
           (setq 点1 = (getpoint "请指定基准点:"))
                          (setq 点2 = (getpoint   点1 "请指定移动位置:"))
           (command "move" 对象 "" (getpoint ""))
;旋转
;方法
;1、(command "rotate" 对象 "" 坐标  45)
;2、(command "rotate" 对象 "" 坐标  "c" 45)
;3、(command "rotate" 对象 "" 坐标  "r" 45)  
;|实例1|; (setq 对象 =  (car(entsel)))
           (setq 点1 = (getpoint "请指定基准点:"))
           (command "rotate" 对象 "" 点1 45)

;缩放
;方法
;1、(command "_scale" 对象 "" 坐标  2)
;2、(command  "_scale" 对象 "" 坐标  "r" 参照长度 新长度)  
;3、(command "_scale" 对象 "" 坐标  "r" 坐标 坐标 坐标)
;|实例1|; (setq 对象 =  (car(entsel)))
           (setq 点1 = (getpoint "请指定基准点:"))
           (command "_scale" 对象 "" 点1 0.5)

;修剪
;方法
;1、(command "trim" 边界对象 边界对象 ....... "" (表 被修剪对象 修剪方向点) ....  "")
;|实例1|; (setq 对象1 =  (car(entsel)))
           (setq 对象2 =  (car(entsel)))
           (setq 点1 = (getpoint "请指定基准点:"))
           (command "trim" 对象1 "" (表 对象2 点1)  "")

;延伸
;方法
;1、(command "_extend" 对象1 "" （表 对象1 延伸方向点) .... "")
;|实例1|; (setq 对象1 =  (car(entsel) "边界对象"))
                          (setq 点1 = (getpoint ""))
           (setq 对象2 =  (car(entsel) "延伸对象"))
           (command "_extend" 对象1 "" (表 对象2 点1 ) "")

;打断于点
;方法
;1、(command "_break" 对象1 对象上坐标 "")
;|实例1|; (setq 对象1 =  (car(entsel) "对象"))
                          (setq 点1 = (getpoint ""))
           (command "_break" 对象1 点1 "")

;打断
;方法
;1、(command "_break" 对象1 对象上坐标 对象上坐标 "")
;|实例1|; (setq 对象1 =  (car(entsel) "对象"))
                          (setq 点1 = (getpoint ""))
                          (setq 点2 = (getpoint ""))
           (command "_break" "f" 对象1 点1 点2)

;倒直角
;方法
;1、(command "_chamfer" "d" 对象1修剪长度 对象2修剪长度) 设置参数
;   (command "_chamfer" 对象1 对象2)                     执行倒直角
;2、(command "_chamfer" "a" 对象1修剪角度 对象2修剪角度)
;   (command "_chamfer" 对象1 对象2)
;|实例1|; (setq 对象1 =  (car(entsel) "对象"))
           (setq 对象2 =  (car(entsel) "对象"))
                          (command "_chamfer" "d" "45" "45")
                          (command "_chamfer" 对象1 对象2 )

;倒圆角
;方法
;1、(command "fillet" "R" 4.5 ) 设置参数
;   (command "_chamfer" 对象1 对象2)  执行倒圆角
;|实例1|; (setq 对象1 =  (car(entsel) "对象"))
           (setq 对象2 =  (car(entsel) "对象"))
                          (command "fillet" "r" "45")
                          (command "fillet" 对象1 对象2 )

;分解
;方法
;1、(command "_explode" 对象 .....) 设置参数         
;|实例1|;(setq 对象1 =  (car(entsel) "对象"))
          (command "_explode" 对象1 )

;交换
;方法
;模式 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/透明度(TR)/材质(M)/注释性(A)]
;1、(command "change" 对象 ""  "P" "C" "1"  "") 修改对象颜色
;2、(command "change" 对象 ""  坐标) 修改对象
;3、(command "change"  pause  "" "" "" "" "" "" "修改文字内容" )) 选择的文字需要为单行文字
;|实例1|;(setq 对象1 =  (car(entsel) "对象"))
          (command "change" 对象1 "" "p" "c" "2" "")
;|实例2|;(setq 对象1 =  (car(entsel) "选择文字:"))
          (command "change" 对象1 "" "" "" "" "" "" "修改文字内容")
;同样也可以调用CAD内部commandchprop来修改图元对象的属性

;对象匹配
;方法
;1、(command "MATCHPROP" 源对象 修改对象)
;|实例1|;(setq 对象1 =  (car(entsel) "源对象"))
          (setq 对象2 =  (car(entsel) "修改对象"))
          (command "MATCHPROP" 对象1 对象2 "")

;文字样式
;方法
;1、(command "STYLE" "文字样式名称" "字体名或字体文件名")
;|实例1|;(command "STYLE" "FF" "TTF")

;图层管理
;模式
;[?/生成(M)/设置(S)/新建(N)/重命名(R)/开(ON)/关(OFF)/颜色(C)/线型(L)/线宽(LW)/透明度(TR)/材质(MAT)/打印(P)/冻结(F)/解冻(T)/锁定(LO)/解锁(U)/状态(A)/说明(D)/协调(E)]
;方法
;1、(command "layer" "m" "lastr" "")
;|实例1|;(command "layer" "m" "LISP" "S" "LISP" "")

st788796

把这看完还学啥alisp,改写小说了:)来自: Android客户端

zynyjp

都不喜欢？ 那怎么更新下去  :L

xtdwynij

不知楼主是否玩过DNF！或者说网游！我就觉得〈全职高手〉这本书就是单纯写网游的（在起点可以找到）！蛮好看。楼主可以参照一下！用技术来PK，通过技术的PK把课程精华都展示出来（加上适度的生活YY），当然只是小菜的一个点点的建议！有过份的地方楼主可别骂偶哦！支持楼主！

st788796

zynyjp 发表于 半小时前

                               
登录/注册后可看大图

本帖最后由 zynyjp 于 2013-8-4 23:02 编辑

都不喜欢？ 那怎么更新下去  

还要一起练功啊，既要看还要练:)来自: Android客户端