今天运气不错

自贡黄明儒

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

ll_j

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

ymcui

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

ymcui

evayleung

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

434939575

骗子

自贡黄明儒

;;只是发牢骚可能是不允许的。下现贴上画道路，刚才帮网友修改的，让牢骚合法化
;;;;;;;画道路;;;;;;;;;
(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 输出方式:[Yes断续/No退出]<No>:"))
  )
  (princ)
)

yoyoho

感谢 黄老师分享程序!

迷不知途

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

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

chenbh2

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

谢谢黄工，新年快乐！