作图03，求a=2b

mice · 发表于 2010-6-24 14:37

直线分段方式，a=a=2b

wangjial · 发表于 2010-6-24 14:41

呵呵，小学生的计算题也来了。

hutb2008 · 发表于 2010-6-26 09:00

眼睛数花了。。。

晨怊 · 发表于 2010-6-26 17:58

不是很明白楼主的意思，如果是要画出那个图的话，先画出一个其它的用阵列就可以啦。

xyzyshl · 发表于 2010-6-27 17:14

按要求做出，然后缩放到3500即可吧，那个花纹倒是个难题。

mice · 发表于 2010-6-27 17:32

主要是求画栏杆的间距，间距是A、B两种，A＝2B，由14*14的方钢分隔，A+A+B相接，A一般不超过130,长度不一定是3500,可以是任何长度，到最后能尽分（即是没有余数），这是在设计围栏工作中经常遇到的,花形不用理会

mice · 发表于 2010-6-27 17:36

不论总长度如何，分出多小间隔，A的距离＝B的距离*2,14*14的方钢尺寸是不能改变的

manbuzhe · 发表于 2010-6-28 08:26

原帖由 mice 于 2010-6-24 14:37 发表 5 V5 t. r* \1 V3 A
直线分段方式，a=a=2b
/ |. _5 o7 N8 V$ O4 Z9 }, D9 u B: m1 S3 h6 m/ |4 Q/ `9 F8 K

距离长度+14（方钢尺寸），54等份（A距离）即可。

mice · 发表于 2010-6-30 11:31

原帖由 manbuzhe 于 2010-6-28 08:26 发表
: V$ L$ u U$ q2 M' x
! f0 Q. }5 l, _% Z4 j* a距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

线角圆 · 发表于 2010-6-30 21:57

如果只满足a=2b的话，这题多解。

woaishuijia · 发表于 2010-7-1 08:49

, N' W. T2 y7 ^' _& x
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)
) Y. D8 p* `: G
;;设置栏杆高度和方钢宽度默认值
b. F7 B3 e. E6 z* a/ D
(if (not lg_high)6 b( z v& m. K8 O; e! w
(setq lg_high 500
6 X$ D+ r( q7 i8 G1 L
lg_width 146 b0 E$ M4 W# X( Q' N1 C9 D* h2 Q
)
& c, \: J. X" Q9 N4 u& y
)" |9 s0 |# P; a: R3 l
;;指定图形插入点
; T% F3 S6 W" _
;;不接受空回车' I- Z4 [$ m/ J
(initget 1)8 O% b# `" I+ {6 G
(setq basepoint (getpoint "\n指定插入点:"))& ^# @8 e6 |3 r0 P" u2 P* a
;;指定栏杆长度和栏杆高度和(或)方钢宽度/ E) y4 t& T6 V; b. m4 a
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定, n' `! A( `* n: U- s
;;用关键字指定栏杆高度和(或)方钢宽度后
5 v) w: ~1 e5 e5 Z% }$ r. |& ]
;;需要重复运行指定栏杆长度的代码段
+ d! B* H! e1 V
(while (not len): f7 V3 o, i* U- s9 ?* N
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值) L! x9 C3 G% A% y/ H
(if lg_length. E6 O: ^, i7 T; O1 y( q, S
;;存在默认值8 ]" U: V4 h0 U* P
(progn/ O( b4 R: O) W- E1 X% J
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W", s, B( N$ R" e
(initget 6 "h w")9 o/ s3 w" O6 n2 E
(setq len (getdist basepoint
' l2 @, v7 P$ F2 s
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"
3 G5 I0 T& k. p* s( G; z
(rtos lg_length 2)! ]5 p3 K! W" Y$ S3 w) `% T
">:"1 b) @4 p4 }9 Q9 K& X, [
)
1 q( M M+ r f( \5 x" d
)
- ]7 n' t H. r: v8 ^( }2 b
)
: {& k& n" m# d" A$ `" z6 _8 a: z8 v
;;空回车时栏杆长度使用默认值
$ U" a0 b4 e' |' _+ B( U5 f
(if (not len). ?6 K) k1 ~" I
(setq len lg_length)
0 D* i) y: E8 K: Y- x. S: T: @8 @# k
)
* M* @) Y& ?' p, }% C
)7 v' Q" A7 a+ I, W' {
;;不存在默认值: ?& N# }$ h- N" q4 H
(progn
0 b7 h0 C" O& j. t5 Z7 w8 i- K8 z
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"2 k) W5 Z, v: m4 h' l+ q
(initget 7 "h w")
! ]& O9 F1 H# Q* D4 | n
(setq! j+ |9 a& G7 p, C
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:"), H4 T5 ?% s! x/ H9 j3 c
)
' Q, J( `+ H$ [5 D
)
- t: Q" _* \# U$ E: W
)
1 E/ [$ w) j. y- M N5 Y$ S2 |) v& {
;;检查用户输入的是长度值还是关键字
* z' y- J- l, Q* y m. d* B
(if (numberp len)
9 D0 K( _% U* h
;;输入的是长度值
6 \/ _0 d! V7 l; U6 C
(if (< len lg_width)/ V/ p& n# F; M4 q
;;当长度值小于方钢宽度时清空输入值重新指定9 h. }$ _) i* L- V
(progn. M. T1 {7 a: N$ K7 Y* \
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))8 b& s4 P- Z" V/ w6 r
(setq len nil)# z9 [% B! t9 _ ]9 d
)
8 |9 ]: Z) {6 s
)
9 f- r* n) D4 f3 N' k
;;输入的是关键字1 a! _- l4 Q/ K& b
(progn$ L( b' {1 ]- j0 h9 d
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值4 [+ t5 P& L+ U- S
;;用户输入时接受空回车,不接受0和负数# F# x# O; P: r
(initget 6)
! \6 X' _0 ?" A- z" [
;;检查用户输入的关键字是"H"还是"W") G' t5 V- Y. L% B: n& b4 A" B
(if (= len "h")
9 C) W4 m R& M! d) h l+ |2 n% C
;;用户输入的关键字是"H",指定高度) ]+ x9 h R( R, m& \" @
(progn' p, f7 _4 t% y* n! ]' y% r) t
(setq high6 O) t1 v9 V; S! `9 G
(getdist basepoint) | e! R4 b3 _# X! |
(strcat "\n指定高度<" (rtos lg_high 2) ">:")1 }) g- H) m# r' x. A" D
)1 R3 p3 M U# V& q
)
5 p: g$ ^2 |# [7 I: q, [# s
;;用户输入新的高度时修改默认值/ k6 W( k% Y2 A6 G% x. U: G
(if high+ q" b2 v: `1 R5 v, D! |
(setq lg_high high)
4 j) w' D! {% ~6 t
)9 J1 W$ F- o9 C$ a: L% l6 x
)
. C+ o; Y" F" g; e; h# z
;;用户输入的关键字是"W",指定方钢宽度
/ _7 T5 }! M' q8 D
(progn
6 y: g% k2 F9 a
(setq width0 N" v2 L9 \* I& F7 C
(getdist
, k' `- J" D0 Q I' I
basepoint' R$ f9 r& `: @% u* Y1 {
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")
* _+ {1 x% J/ b! ]
)
1 M5 j9 C9 x' L
)6 M1 [& @& c7 X# b! z
;;用户输入新的方钢宽度时修改默认值9 W. e* O3 G* o3 A
(if width0 n, X. H/ C3 V# j* Z$ E6 }: R
(setq lg_width width)
" \ Q( d" h3 ~; {0 V& ?8 ~
)3 ^& w. x" f8 q- Z5 v
)8 J4 b% m; b: K! q/ T9 o8 D
)+ K; N6 n6 y8 Y' r% e
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度3 b) R7 ?/ D" K, ` O
(setq len nil)
9 w7 a, z( Z A
)
' O6 b+ I1 b: g2 X3 n( [+ ~+ H: J8 a/ M
)1 j0 `" j7 X8 c7 u! L0 j
)
! r1 [8 n2 s0 ]/ Q9 a
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值& h8 B" M+ f9 u" y
;;计算用户可以指定的花形数量的上限
6 v4 w, h, ^+ A
;;用于下一步检查用户指定的花形数量是否合理
, V1 T: k/ k1 a+ e) C
(setq lg_length len# a% ~5 f% \, f! {
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
2 G/ p; { R! D* N
)5 s5 b8 i3 p g) F# k' Y, y1 V
;;指定花形数量或A段最大长度! w( A: R- B8 {# w- y* S6 `
;;如用户指定的是花形数量,则按用户指定的花形数量画图, W# c, C L$ O* p4 K
;;如用户指定的是A段最大长度
' C Y6 A: O: `) Q* X# h* i
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图4 g/ R: a5 T( `, Z. R2 {7 I4 p6 w
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解6 E0 ?7 A. P/ r: M2 Q3 v3 D
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解
) a! n' h( _' ~8 M
(while (not n)
6 G9 M$ o: e+ h
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值3 g/ O( e- p, Z5 ^
(if lg_n( Z, E; L- C; I- A) |# V5 y, Z" c
;;存在默认值
( M5 G- J8 d. I- s
(progn
7 X$ K3 G/ r6 s$ D
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"
' Y0 @7 A9 I; p1 r8 p1 O6 X
(initget 6 "l") h k. N K; H1 Q5 a; ~ H
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"2 f& d) U- x3 `- @% o2 \2 r% F: {
(rtos lg_n 2)
8 T, P) R* e4 a4 c8 b1 p
">:"
/ @3 d$ G9 } T
)
0 M* S, |: \" ~+ [' i
)
' }: g& g; e5 P7 s1 J, s
)
( y6 P1 l( `+ ~1 `8 p
;;空回车时花形数量使用默认值
( G3 I% t9 h& F) |
(if (not n)
- @! d* m' |3 p+ O: R6 Z
(setq n lg_n)
! W$ r7 z5 K: h% }7 f7 i8 O
)
( N# x. \$ {3 Q
)! a% x% }3 o" T# c
;;不存在默认值4 a( r# } d- s; d; ^- Y
(progn
$ l& i- y7 W6 M
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"2 }( G7 ~2 J9 m3 _' y( {/ A
(initget 7 "l")4 a5 E. p, f' X* ?' p2 M: G2 @6 k
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))2 o0 V; I& f& g% N9 o
)
0 P3 y! `$ K: ^, j/ e% X4 z
)
5 N1 [% e% j1 f7 l3 p
;;检查用户输入的是花形数量值还是关键字
; ~% b* Q; `3 [7 J% I: u
(if (numberp n). W: S5 [* P- c, R( `
;;输入的是花形数量值
q' c, x' G) U% h; K# i( u
(if (> n nmax)
3 K% }. T& _0 m
;;当花形数量值大于上限时清空输入值重新指定' C7 ~9 j5 J! L# o
(progn
1 [/ n& X- ]+ q; C/ b
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))( r3 m2 T x. o& V; u+ v6 D7 p
(setq n nil), V1 P& C9 W) V2 h# d5 `
)
0 L6 @; ?$ r/ R6 J, V" [) S
;;当用户指定的花形数量合理时存入全局变量
$ c3 q9 g( I+ }7 c$ o
;;以便用做下次输入的默认值( E- p3 X; @! ]1 ]% O! o; x9 ?; `
(setq lg_n n)
, l Z9 B0 a9 c o' l" a) @- ~
)
7 c6 p6 u& X( d; M/ S* p
;;用户输入的是关键字
6 n' \6 ]! \# g3 g
;;指定A段最大长度
% n* T f$ f8 I
(progn7 {& A; |+ |2 O1 w
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍
. U$ W; j+ w1 V1 D) Z
;;否则可能导致无解
- T$ T5 l/ |5 t2 F9 a2 K1 p# k
(while (not amax)1 n& R( V+ a9 F' [6 o2 `: |1 U
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值
2 l& ] l, Z" [: m8 O
(if lg_amax- y# ~$ W1 Z! _4 H$ c- O8 g* P* M p
;;存在默认值1 w5 P" d0 e. t+ `
(progn! O0 O. v: A$ M1 e/ [
;;用户输入时接受空回车,不接受0和负数) l; C7 g1 s5 f1 i% Q9 ?
(initget 6)
8 D8 ^7 `2 n0 j5 O) H3 {) @
(setq amax (getdist basepoint! l9 S9 }4 e5 w, b, |
(strcat "\n指定A段最大长度<"
' r( B2 u0 V0 ]4 L
(rtos lg_amax 2)
+ B$ v1 i' T% ?/ Q- W
">:"
3 T0 [# a/ P+ ? P
)# c. u' A* }- a% x. p
)1 }5 F" _" \1 k) Z9 ~
)/ t% C/ U1 N6 t4 n; Z
;;空回车时A段最大长度使用默认值
8 f5 J& d( \6 v% A1 G9 J
(if (not amax)& q. k- z. G! \ F
(setq amax lg_amax)$ D) W1 g+ k3 g; R. x1 j7 M7 i
)
2 N$ y t$ w; V* M( I6 r% Y' v" J
)
& ], w `( a' J" X3 A
;;不存在默认值
; p b' c' x0 b' J/ L+ M0 h4 i6 X
(progn/ Q; w. Y( n' n6 b; V/ l1 ^
;;用户输入时不接受空回车,0和负数
/ G- }. }8 O' V- z$ r
(initget 7)" C, {; p" X4 B* |6 p
(setq) s1 C9 _- X3 U: V: z, A0 R5 l
amax (getdist basepoint (strcat "\n指定A段最大长度:"))1 s7 G, e m8 Z3 [' d5 |! A
) R$ y, L+ ^% u5 W! f3 b6 t8 s
)% X" U& p# v1 K' M3 @/ ~
)/ z5 j2 Q+ R. J# p
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
2 d1 i* [+ K0 r( L8 ^
(if (< amax (* lg_width 1.5))( N8 ~5 b5 P9 r' ]+ b
(progn d5 U: f/ b0 W& G
(prompt (strcat "\n指定的A段最大长度不能小于"
' U8 b! `% f1 Q+ u& i* `+ V) V
(rtos (* lg_width 1.5) 2)3 E. X% f# N6 v% q0 ]
)
: y' R2 S @/ {$ I/ ]
)
c$ Q, w$ m4 |& V
(setq amax nil)
8 N# W5 x& E' @, Y" u' x m
)
4 ?! l+ z. Y G: l( J; a
)
' N7 {/ h* o, I( @: @4 P
)
/ R: v5 E X; N3 z5 `
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值
' [% p; j. B- S* W
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1
3 H# E; P% x0 n; x0 s8 L
(setq
! X4 H. B; `* q/ g4 G+ b
lg_amax amax
- o. B7 C }( |
n (1+ (/ (- len (* amax 2) lg_width)
, U$ G8 Z8 W' k0 b. U
(+ (* amax 2.5) (* lg_width 3))
3 Z7 H8 B" }5 @4 P* Y
)5 _4 M0 k! |( i" }3 R
), K( |+ ~( V3 y+ Z6 p: M \
)# l9 V+ Y3 }- C
(if (> n (fix n))6 l% c: o: b7 b- L2 z. c/ z: R
(setq n (1+ (fix n)))' M" h/ }7 q1 R. r* l& F
)
1 t, n5 f- w5 f
(if (< n 1)) J# |/ ?) H5 R- p
(setq n 1)
. V; _' S- g2 v
)
7 G2 U7 P/ |. d" N2 `: P; M
)
* C9 L7 P$ a. ?+ s
)2 \+ l( Q' ]0 z6 @0 l/ f( W/ B7 Z1 p
)
0 w- C5 ?3 ]' _; H& Z/ n6 {& a
;;画图
3 v3 J1 `* S7 D& |% t
;;记住原来的对象捕捉设置; b' }5 k( c. C9 m7 V' H5 i
;;按花形数量计算A值
4 |& j/ _% C- a3 ` g
(setq
5 L+ L2 s# T. F# v$ |
oldosmode (getvar "osmode")
/ @7 W! C' ~4 N, }7 |+ x# n8 ~3 [
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))
# ]. ?, j( W4 Q3 P" J/ r; I0 H
(+ (* (1- n) 2.5) 2)
% g( d3 N( p- b! v& d2 w
)
& N3 }+ L2 @- q
)2 [+ d/ U; I g0 Z0 _
;;暂时关闭对象捕捉+ `: ^- y5 V- j6 D* T/ e$ l
(setvar "osmode" 0)
: _' q' i5 u( }$ {% g. o- c
;;屏蔽命令回显
8 e, d% y7 M; Y0 S1 B( f6 d
(setvar "CMDECHO" 0)+ e% U# D9 B% I
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
8 ?: c# ], Y6 B( _1 D' X2 q, A' g
(command "rectang"
9 m* i! F/ J# U* H$ w
basepoint- P6 `. P1 N$ [- f0 k1 j
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))$ T) @- p' R, j7 Z8 h
); c6 i% H4 t. b! C# J9 M$ v: f
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
( S% z4 ?, a* _2 p4 S, b/ |
(command "rectang"$ U8 R7 t8 f9 u
(list (- (car basepoint) lg_width)+ K) N' z8 R+ z8 e) h- l
(- (cadr basepoint) lg_width)
; H. a0 D/ ?3 ?# V
)" D+ f* |0 P; g+ l* y
(list (+ (car basepoint) len lg_width)
! E9 i* l; c) o# D
(+ (cadr basepoint) lg_high lg_width)7 R" T! M* |# D/ ~ m: S( X$ s
)
3 H( q5 J( e T% L) ~9 G; W' k3 w
)
4 z- w m( a$ `* e
;;将指定点移到其右侧A距离处
3 M3 d* p: _, V' b: k3 x
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))
4 E+ M/ X5 ~. H8 R8 l& j
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆
1 p$ K: V/ q q" Z( t: p9 G7 a
(command "rectang"- E+ {+ o; ^! v1 J, C5 C2 m
basepoint, z% S& ^6 q5 r5 X% o/ o% Y* i
(list (+ (car basepoint) lg_width)
; g, a: E: T$ R
(+ (cadr basepoint) lg_high)
5 o9 D# o8 r% \0 V& M. @
)% [2 |4 [/ u% y# M$ ^& ~$ m4 L
)6 O `) u( @: Z( y
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
7 c; Z- ]( D. `
(repeat (1- n). i0 j/ `) s" U8 O7 Z3 \. ]
(setq
5 F6 n2 e: r0 t) x( |3 J% M
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
V* |) G7 [+ t/ O2 [& Z
)# T0 t. c! v- L* j& g$ q
(command "rectang"
. `& `- ~! h4 {0 I
basepoint2 H! j4 m" R: \8 f. b
(list (+ (car basepoint) lg_width)
: E8 i& P+ O. w# t3 C4 l# }
(+ (cadr basepoint) lg_high)
( j+ h0 s, G2 F t2 D
)
! Z5 B1 \& ]& \" B
)
" g3 j) @! i3 P @4 l
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)% ]7 z# Q0 L* C# w
(cadr basepoint)" K) a0 `& @& W* h7 s
)
% l+ ~+ h& y& l2 H7 N6 p6 Z
), w( P& G( k; Y! ^. `% G& C* q
(command "rectang"
$ n- k; O- v r0 {5 b
basepoint2 S+ g1 p6 \3 b( P9 p
(list (+ (car basepoint) lg_width)
* n4 ?( l& T+ q \
(+ (cadr basepoint) lg_high)
) X/ K/ B! O) \/ F1 Z
)
+ G# v8 ?7 F, T C% L
)% L$ p+ [9 K4 \8 K! V
(setq X2 j3 N$ x; p- _" A9 Z$ x+ W
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))7 c: \" n5 v0 _
)
! o- V; k" W* J5 ~
(command "rectang"1 `4 {" R& H' x- O* _7 z/ B
basepoint
; V$ I1 R8 _9 t" ]+ p7 C
(list (+ (car basepoint) lg_width)
(+ (cadr basepoint) lg_high)7 r5 Q# t3 \* L4 `( T
)3 d6 C& ]: X5 j) z8 ^% p b; k
)
% g$ r. M7 Z" {! S* ?' Z
)
8 d. P! b; k3 E$ N' q7 e
;;恢复对象捕捉设置) g" F$ s9 ~0 u/ }$ o- Z
(setvar "osmode" oldosmode)7 w. c e( i3 S2 q2 j! N
;;打开命令回显
4 w' p8 r% t) M4 h" \: d" s
(setvar "CMDECHO" 1)
9 ^, f" P `4 }* x' T
(princ)7 C6 {3 m9 f5 ~0 }1 v; j. D/ k- n
)
( A/ S' X, B/ S5 F

复制代码

PGF000 · 发表于 2010-7-1 09:40

楼上的太深渊了。

xyzyshl · 发表于 2010-7-1 22:15

太深渊了？晕倒

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

[练习] 作图03，求a=2b

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源