当前访客身份:游客 [ 登录 | 加入 OSCHINA ]

代码分享

当前位置:
代码分享 » 其他  » 其他
分享到: 
收藏 +0
1
利用AutoCAD的二次开发语言AutoLISP来绘制金刚石图案。
标签: <无>

代码片段(2) [全屏查看所有代码]

1. [代码]AutoLISP     跳至 [1] [全屏预览]

;主题-绘制金刚石图案
;作者-ggiiss@qq.com
;时间-2012-04-25

(setq a	500			;设置圆心的x坐标
      b	500			;设置圆心的y坐标
      r	100			;设置圆心的半径r
)					
(setq n	   19		;设置分割点的个数n和最小角度值angl
      angl (/ (* 2 pi) n)
)					
(setq i 0)			;初始化循环i
(while (< i n)
  (setq j (+ i 1))
  (while (< j n)
    (command "pline"
	     (list (+ a (* r (sin (* i angl))))
		   (- b (* r (cos (* i angl))))
	     )
	     (list (+ a (* r (sin (* j angl))))
		   (- b (* r (cos (* j angl))))
	     )
	     ""
    )
    (setq j (+ j 1))
  )
  (setq i (+ i 1))
)

2. [图片] stone.jpg    



开源中国-程序员在线工具:Git代码托管 API文档大全(120+) JS在线编辑演示 二维码 更多»

发表评论 回到顶部 网友评论(1)

开源从代码分享开始 分享代码