自贡黄明儒 发表于 2016-2-17 08:07:36

今天运气不错

今天一打开明经，腾讯就提示我中奖了，运气不错

ll_j 发表于 2016-2-17 09:09:39

我们早就中了，而且中了很多次了，每次12w。

ymcui 发表于 2016-2-17 09:14:53

早就中了，而且中了很多次了，每次12w。

ymcui 发表于 2016-2-17 09:15:37

evayleung 发表于 2016-2-17 10:27:56

恭喜你，，我怎么就没中。。。。

434939575 发表于 2016-2-17 11:16:29

骗子

自贡黄明儒 发表于 2016-2-17 11:23:23

本帖最后由 自贡黄明儒 于 2016-2-17 11:26 编辑

;;只是发牢骚可能是不允许的。下现贴上画道路，刚才帮网友修改的，让牢骚合法化
;;;;;;;画道路;;;;;;;;;
(defun c:t1 (/ AN W)
(defun tt1 (/ NEW OLD)
    (setq old (entlast))
    (vl-cmdf "_.spline")                                    ; "spline "曲线改成 "pline" 中心线可以是多段线
    (while (= 1 (getvar "cmdactive"))
      (vl-cmdf pause)
    )
    (setq New (entlast))
    (if      (not (equal New old))
      (progn
      (vla-Offset (vlax-ename->vla-object New) (/ w 2.0))
      (vla-Offset (vlax-ename->vla-object New) (/ w -2.0))
      ;;(command "chprop" pline """lt" "center" "s" 200 "");;;中心线比例200
      (command "erase" New "")
      )
    )
)

(vl-load-com)
(setq w (getreal "\n 道路宽度<8.0>: "))
(princ "\n")
(if (null w)
    (setq w 8)
)
(setq AN "Yes")
(while (equal AN "Yes")
    (princ "\n")
    (tt1)
    (initget "Yes No")
    (setq AN (getkword "\n 输出方式:<No>:"))
)
(princ)
)



yoyoho 发表于 2016-2-17 14:23:45

感谢 黄老师分享程序!

迷不知途 发表于 2016-2-17 14:35:54


感谢 黄老师！发牢骚还有源码奖励！！

送的层序，如果加个选项保留中线就更完美了！！

chenbh2 发表于 2016-2-18 09:33:49

自贡黄明儒 发表于 2016-2-17 11:23 static/image/common/back.gif
;;只是发牢骚可能是不允许的。下现贴上画道路，刚才帮网友修改的，让牢骚合法化
;;;;;;;画道路;;;;; ...

谢谢黄工，新年快乐！
页: [1] 2
查看完整版本: 今天运气不错