非凡程式（技术型，修仙小说）

004

厉害，等更新

yjpzc

第五章  七窍玲珑丹

袁宇墨意识回到了自己的本体，走到床前双腿盘坐、左手立掌于胸前右手掐着兰花指放于右大腿之上，修炼起师父所授的《坐禅决》凝气聚神于丹田。
“小子，醒醒！再不醒丹田就要爆了”
“师父，我停不下来，有股气自己在走而且化气于水聚于我的丹田”
“什么就结丹了，小子这次能不能活要看你的造化了，我不能在你意识空间待太久，为师先走了”
“喂，老头。。。老头。。。不待这样的”
鲁班一退出来一脸的贼笑，本来还以为要浪费一颗筑基丹，这小子才可结丹。没想到他直接就结丹，四阳之人果然是修仙的天才。
毕竟是自己徒弟，鲁班也不敢太过大意，又再一次想进入了袁宇墨的意识空间查看情况，可怎么也进不去破不开他的识海。只见他默念道：“小徒弟，不是为师不帮你，只是灵体不奈消耗。括成双，引成对，(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" "")

soly2006

先把人整晕了再学吗？呵呵

yjpzc

soly2006 发表于 2013-8-10 23:17
先把人整晕了再学吗？呵呵

写着完 ， 喜欢看类就看一下 不喜欢看就路过  反正也是搞着好玩的

吃饭饭长胖胖

持续关注中。。。。

狂刀lxx

支持一下，看了半天没有推倒的意思呢？

junkegg

都 是神人，顶！！！！！

yjpzc

第六章  好看是好看，像个娘们

“苍茫的天涯是我的爱，绵绵的青山脚下花正开。。。。。。。。。” 袁宇墨的手机突然响了，接过手机一看心就就点慌。
“喂，冀院长 您好！请问你找我有什么事吗？”
这一刻，看袁宇墨完全一付小人形态，谁叫人家是他衣食父母类。不过这个冀院长在他袁宇墨的嘴里念出冒似有点像妓院长，要是鲁老头在的话绝对感概这世界太没有节操了。
“找你什么事，很好你还知道我是院长，半小时后来办公收拾东西给我滚蛋。”
袁宇墨此时摸不着东南西北，尼妈没事对老子吼什么吼，要是老子当上了院长看我不玩死你。虽然心里想是这么想但是嘴上还是客客气气说:”冀院长,那个。。。。。。。” 对面没等他说完就已经挂掉了电话了。
袁宇墨是连爬带滚的回到的单位，一眼扫过去只有郝小蝶看起来很不高兴，其他人都在自干自家的事。
“小蝶，怎么啦！你看起不太高兴。”
他这叫把大家都吸引到他身体来了，郝小蝶本来一听这声音就想来火，抬头一看满脸的惊奇，大家伙特别是女孩子两眼放着金光。
“怎么，我脸上有金块吗”
经过一个多月的结丹改造，体内的污垢、拙气、毒素全排出体外，现在整一个出尘仙家气派，大家能不感冒吗？
“宇墨，你怎么变成这个样子了”
   “怎么我的样子有什么不好吗，不好看？”
也不知道谁来了一句：“好看是好看，像个娘们”
“你妈才娘们，你全家都娘们，有这么英名神武风流帅气无敌的娘们吗？”郝小蝶本身就有点喜欢袁宇墨，看到现在的袁宇墨更是喜欢的不得了，那里还容得别人说三道四的，袁宇墨对郝小蝶的这话还蛮受用的，对于那个惹来的不快完全视如不见。
“那个小蝶，我真的英名神武吗”
这郝小蝶一听，瞬脸是红到脖子，只是这一红显的更加的迷人，袁宇墨更是两眼放直盯着不放。
“喂，袁宇墨你看什么看，老娘49天打了你1314个电话，你死那去了，老娘差被那王不二 。。。”
袁宇墨一听这话，雷火烧上了五丈高，全身气劲都放了出来，郝小蝶和他的几个同事被这个气压的透不过气。这就是修仙者的威严类似于上位者的气场。

freeok

老板，该上菜了。。。

xxxyyyzzz

后续呢？期待