二次开发深沟球autolisp编程
- 文件大小:357KB
- 浏览次数:
- 发布时间:2013-01-08
本资料包含doc文件1个,下载需要50积分
二次开发深沟球autolisp编程 ;外面的大长方形
(setq ptx2 (polar ptx1 0.0 (/ B 2)))
(setq px21 (polar ptx1 0.0 ( 2 (/ B 2))))
(setq px22 (polar ptx1 pi ( 2 (/ B 2))))
(setq ptx3 (polar ptx2 (/ pi 2) (/ D 2)))
(setq ptx4 (polar ptx3 pi B))
(setq ptx5 (polar ptx4 (-(/ pi 2)) D))
(setq ptx6 (polar ptx5 0.0 B))
;圆
(setq ptx7 (polar ptx1 (/ pi 2) (-(/ D 2)(/ A 2))))
(setq px23 (polar ptx7 0.0 ( 2 (/ A 4))))
(setq px24 (polar ptx7 pi ( 2 (/ A 4))))
(setq px25 (polar ptx7 (/ pi 2) ( 2 (/ A 4))))
(setq px26 (polar ptx7 (-(/ pi 2)) ( 2 (/ A 4))))
;两个横线
(setq ptx8 (polar ptx5 (/ pi 2) (- D A)))
(setq ptx9 (polar ptx6 (/ pi 2) (- D A)))
(setq px10 (polar ptx6 (/ pi 2) A))
(setq px11 (polar ptx5 (/ pi 2) A))
;与圆相连的四条线
(setq px12 (polar ptx7 (/ pi 6) (/ A 4))) ;右上
(setq px13 (polar ptx7 ( 5 (/ pi 6)) (/ A 4))) ;左上
(setq px14 (polar ptx7 (-(/ pi 6)) (/ A 4))) ;右下
(setq px15 (polar ptx7 (-( 5 (/ pi 6))) (/ A 4)));左下
(setq px16 ( 3 (/ A 8)))
(setq px17 (polar ptx3 (-(/ pi 2)) px16));右上
(setq px18 (polar ptx4 (-(/ pi 2)) px16));左上
(setq px19 (polar ptx9 (/ pi 2) px16)) ;右下
(setq px20 (polar ptx8 (/ pi 2) px16)) ;左下
(command "layer" "s" "csx" "")
(command "LINE" ptx8 ptx9 "") ;
- 1深圳市某水库进水渠整治工程技术标_secret
- 2矿用单轴振动筛 ZD1224-ZD2160外形图
- 3GB 50403-2007 炼钢机械设备工程安装验收规范
- 4平底锅手柄step/stp格式
- 5建筑给水铝塑复合管管道工程技术规程
- 6GB/T 19466.4-2016 塑料 差示扫描量热法(DSC) 第4部分:比热容的测定
- 7房地产项目成本静态测算模型
- 8作战飞机全参数模型三维模型Catia设计
- 9工程施工的质量控制系统过程图
- 10框剪结构大厦工程主体结构施工技术总结
- 11四川某高校六层框架结构教学楼工程施工组织设计
- 12GB T 5223-2002 预应力混凝土用钢丝
- 13图集:管线布置图
- 14DB13/T 1793-2013 休闲农业观光园区评定标准
- 15【工程图库】一套完整家装图含效果图