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

xyp1964 · 发表于 2009-8-28 22:44:07

多段线等转向

zjqybg · 发表于 2009-8-31 20:51:53

下来看看

didahua · 发表于 2009-9-1 20:49:26

有才，太有才了

xyp1964 · 发表于 2009-9-13 23:04:53

[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 · 发表于 2009-9-25 14:19:31

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

hnxyj1 · 发表于 2009-10-10 08:38:45

ddddddddddddddddd

namecool · 发表于 2009-10-12 18:06:07

程序太好了谢谢楼主了不知道能不能用在2008啊

xiaxiang · 发表于 2009-10-18 15:05:24

各函数需要的参数没有说明

stillsingle · 发表于 2009-12-15 16:50:54

好东西，怎么不能下载

听鱼 · 发表于 2009-12-18 13:08:48

这个内容不错,比较丰富

xyp1964 · 发表于 2009-12-27 10:13:42

[php];;; 实体面积反应器
(Defun C:test579 ()
  (Defun Rtest (obj1 obj2 lst)
(xyp-SUBUPD (HandEnt (VLR-Data obj2))
1
(RtoS (VLA-Get-Area obj1) 2 2)
)
  )
  (cmdla0)
  (SetQ s1  (Car (EntSel "\n请选择封闭实体: "))
obj (vlax-ename->vla-object s1)
  )
  (xyp-Text 5
      (xyp-get-MinMaxPoint s1 5)
      (RtoS (VLA-Get-Area obj) 2 2)
  )
  (VLR-Object-Reactor
(List obj)
(xyp-get-dxf 5 (EntLast))
'((:vlr-modified . Rtest))
  )
  (cmdla1)
)[/php]

wzh1234 · 发表于 2010-1-2 10:21:13

谢谢LZ 无私奉献

homoyo · 发表于 2010-1-26 12:32:39

下不起

gwpgc · 发表于 2010-1-27 13:50:00

无私奉献和为大家服务的精神值得表扬和学习。

seekerlu · 发表于 2010-2-18 22:55:08

顶楼主，现在还不够爱心币

账号		自动登录	找回密码
密码			立即注册

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