第二步轮到你了
下一次有一点时间,虽然将计费小时有很多人在这个网站上,提供服务的雇用做程序李mac?我可能也感兴趣。您需要的部分成本是用户友好的前端用户错误检查。我认为这是一个很好的开始,如果你想运行它。这只是一种礼貌,让其他人知道论坛上的职位是什么。
- : draw plain bench with legs
- ; by Alan H Oct 2012
- ;
- ;
- (setq pi2 (/ pi 2.0)) ; 90 degrees
- (setq Pt1 (getpoint "\npick lower left corner point"))
- (setq L (getreal "\nEnter length"))
- (setq W (getreal "\nEnter width"))
- (setq thick (- 0.0 (getreal "\nEnter bench thickness")))
- (setq pt2 (polar pt1 0.0 L))
- (setq pt3 (polar pt2 pi2 W))
- ; do stuff here like layers for now just draw
- (command "rectang" pt1 pt3)
- (command "extrude" "L" "" thick)
- (setq OF1 (getreal "\nEnter Offset from length for legs"))
- (setq OF2 (getreal "\nEnter offset from width for legs"))
- (setq leg1 (getreal "\nEnter Hor size of leg"))
- (setq leg2 (getreal "\nEnter Ver size of leg"))
- (setq thick (+ (- 0.0 (getreal "\nEnter height of legs"))thick))
- (setq pt4 (polar (polar pt1 0.0 OF1) pi2 OF2)) ;cnr of leg
- (setq pt5 (polar (polar pt4 0.0 leg1) pi2 leg2))
- (command "rectang" pt4 pt5)
- (command "extrude" "L" "" thick)
- (setq Cols (- L (+ (* 2.0 OF1) leg1)))
- (setq rows (- W (+ (* 2.0 OF2) leg2)))
- (command "array" "Last" "" "R" 2 2 rows cols)
- (princ) ; exit quitely
|