[分享]：【实用程序汇总】test000系列！

luxywd5

哈哈，楼主的东西很 不错

其他会员的回复也很精彩

学习学习～

kikigz88

自己编的才好

longxianhua

好东西,正在研究中呢~~

zwf9900

我发现好像要下载一个XYPLID.VLX，不知何故，不知其他朋友有没有相同问题！

ljh19991220

怎么不能下载了，能不能发给我一份ljh19991220@163.com。谢谢

yjhcelia

找了好久，谢谢楼主了。收下

liujie4

不能下载了啊，是不是服务器坏了

xyp1964

;; 鱼
(defun c:test817 ()
  (defun aaa ()
    (xyp-Dcl-Gettile '("p01"))
    (xyp-show-sld "k0" (strcat "xyp1964(" (nth (atoi p01) lst) ")"))
  )
  (xyp-initSet '(p01) '("0"))
  (setq        lst  '("JKFI-012"      "JKFI-013"      "JKFI-014"      "JKFI-015"      "JKFI-077"      "JKFI-078"      "JKFI-079"      "JKFI-080"
               "JKFI-081"      "JKFI-082"      "JKFI-083"      "JKFI-221"      "JKFI-222"      "JKFI-223"      "JKFI-247"      "JKFI-248"
               "JKFI-249"      "JKFI-250"      "JKFI-251"      "JKFI-252"      "JKFI-253"      "JKFI-254"
              )
        Ilst '(("k0" nil "imagebutton" "-2" "40" "" "(XYP-ABOUTME)")
               (nil nil "spacer;")
               ("p01" "列表" "list" "lst" "8" "10" "(aaa)")
               (nil nil "user" "(aaa)")
              )
  )
  (xyp-Dcl-Init Ilst "【CAD鱼】" t)
  (princ)
)

xyp1964

fish

xyp1964

;; 多段线等转向
(defun c:test821 ()
  (CMDLA0)
  (setq        ss (ssget '((0 . "LWPOLYLINE,SPLINE,LINE")))
        i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq et (xyp-get-dxf 0 s1))
    (cond ((= et "LWPOLYLINE") (xyp-Reverse-LwPolyline s1))
          ((= et "SPLINE") (command "_.splinedit" s1 "e" ""))
          ((= et "LINE")
           (setq p1 (xyp-get-dxf 10 s1)
                 p2 (xyp-get-dxf 11 s1)
           )
           (xyp-SubUpd s1 10 p2)
           (xyp-SubUpd s1 11 p1)
          )
    )
    (xyp-put-Mark (xyp-get-CurveStartPoint s1) 1 0) ;起点标记
  )
  (CMDLA1)
)

xyp1964

多段线等转向

zjqybg

下来看看

didahua

有才，太有才了

xyp1964

[php]
;; 蝴蝶曲线
(defun c:test829 (/ r dr a ptn x y)
  (xyp-MkLa "蝴蝶曲线" )
  (setq i 1)
  (repeat 10
    (setq r  0
          dr 0.02
    )
    (while (< r (* pi 2 i))
      (setq a        (- (exp (cos r)) (* 2 (cos (* 4 r))) (expt (sin (/ r 12.)) 5))
            x        (* (cos r) a)
            y        (* (sin r) a)
            r        (+ r dr)
            ptn        (cons (list y x) ptn)
      )
    )
    (setq s1 (xyp-Entmake-lwPolyline ptn t))
    (xyp-put "color" s1 i)
    (command"scale" s1 "" '(0 0) (+ 1(* 0.04 i)))
    (setq i(1+ i))
    (xyp-delay 50)
  )
  (princ)
)[/php]

yyyg5

好东西，等有币了再来下。这帖子要怎么收藏？