作图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 发表
1 o' Q3 |4 k2 a; h, C直线分段方式，a=a=2b4 Y9 T: i) s0 v: t6 G. L0 t6 H1 I
^) `7 f% \& \5 i

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表 6 |' R$ p4 E: X' X7 ?' A' p
* r; H& \% g( L; B |% Q
距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

) t' ~9 ?4 V# x
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)% a3 V/ f3 r! D- h9 W: O% b
;;设置栏杆高度和方钢宽度默认值
8 E' n/ }0 p% E" ?! e9 ?% k
(if (not lg_high)
; f+ _5 j1 B- N: F) Q; j
(setq lg_high 500
: q1 [ X8 O/ ?8 I! O7 m
lg_width 14+ f8 r7 f) r! V- k, _. |5 t
)
5 u/ s G7 c" T: Q" E) c/ N
)
4 s- t% ~3 `) r9 U8 N/ U% @
;;指定图形插入点
$ a& R' N4 E0 X/ ]% u
;;不接受空回车
5 r u* w& z1 j- \
(initget 1)
6 M) D( F4 V8 Z6 c+ v
(setq basepoint (getpoint "\n指定插入点:"))- u% P' f/ l0 q0 T" A! B* s- F" D
;;指定栏杆长度和栏杆高度和(或)方钢宽度" G* C2 p x0 i) l
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定
2 a: t" X R5 L/ h
;;用关键字指定栏杆高度和(或)方钢宽度后
& l% I- y3 o3 U6 ?" W: j0 ?8 n
;;需要重复运行指定栏杆长度的代码段' A% L/ @3 r( a# z4 l; e( K. x/ |
(while (not len)
5 D# D; C( k" K5 l3 f1 z
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值1 L- f9 i$ W1 ~1 Q
(if lg_length; \! L1 E: v* I6 b6 a
;;存在默认值
% L, |( J) h% `. G' j& K
(progn: ~' N. Q! [' {4 Q
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"
! l# A2 h! T$ k5 f& c0 h& L3 P
(initget 6 "h w"): z6 A& n) B* [# i/ E$ w
(setq len (getdist basepoint9 T$ j7 o% t2 _2 _. `: ?1 Q% x
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"
8 }% t3 U. b% `! {) Q: u
(rtos lg_length 2)" }, R6 Z# d5 A3 T
">:"8 u5 P% c" G1 O" b9 [* T+ Q
): }# \9 L- P) J! ~' U2 J. V
)
1 P, z1 p7 O( n. f
)! r8 R; g% y1 w: A( o3 X, f
;;空回车时栏杆长度使用默认值
% w1 G. F1 T. l
(if (not len)
7 u$ Y1 c0 ~; W' g$ l
(setq len lg_length)3 d6 n. s; u* \. e; ~
)
( `/ M: l& j7 p' I2 n4 s, S
)6 E1 _( L/ @! N$ ?
;;不存在默认值& N! m* i7 I9 y) s& ^
(progn
! X1 e+ f( w" `; g7 h
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"8 y7 A5 \! b, I t, T3 A
(initget 7 "h w")9 A' Y4 i# |* k. Q
(setq5 w5 S' U7 Q2 g3 c: Y' T; r ^
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")9 w: B+ d( W. B1 ]3 ~
), n5 g7 {" U( n0 \7 O0 a# F. B
)$ B( O9 c T; h1 l& I
)$ I9 a6 m$ Z8 y- o3 N& l1 J
;;检查用户输入的是长度值还是关键字& z' C. }- C+ T w9 q
(if (numberp len)
6 s2 p6 L( |/ K9 o$ Z
;;输入的是长度值. P- C- l6 [1 @
(if (< len lg_width). i/ h0 j# _( o% s* V
;;当长度值小于方钢宽度时清空输入值重新指定
S6 k; G' p! @ w& O1 s3 ~
(progn8 |% d N& [8 c; p- _3 L {
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))3 q" G: L$ e d2 `% n
(setq len nil); o* }$ o, c# F. f/ h0 u) q
)
) z/ @2 Z9 ?6 Q+ v& N% i: i0 d
)' N: u2 X$ A+ O; S. P
;;输入的是关键字
# }. N6 U! @( t- l: U
(progn
4 A' y* ]; _/ t8 b- X, V% s5 A7 G3 S
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值
+ E! J: k- c/ P* l3 n$ r. B. i
;;用户输入时接受空回车,不接受0和负数
. p ]2 N6 a7 O) l) U2 ~
(initget 6)/ X. f7 e! A4 E% t4 G( y
;;检查用户输入的关键字是"H"还是"W"
" Y( G* c% m4 p8 p% p) [' D$ i
(if (= len "h")
% H' ~5 C& h) p# a; ^
;;用户输入的关键字是"H",指定高度
- s" E3 |7 O# D8 w( ?: a- V
(progn% w+ g! v" g" O9 t3 H$ N
(setq high
3 o; ?2 o) S6 ?. F0 b- a5 J
(getdist basepoint
" T) C4 {. O5 d, j
(strcat "\n指定高度<" (rtos lg_high 2) ">:")
' z* o2 q7 H f% c
)1 @: V5 E. A5 u3 N5 e0 E* ~
)
$ C% j) u# Y1 }& \ {
;;用户输入新的高度时修改默认值
4 H% M+ F9 E# d F9 d7 [0 ?$ U
(if high8 w5 q! h& J/ [" ?. x
(setq lg_high high)4 @: O' D6 R; p. A- p9 D
)
1 o6 J7 ^! b& U, m8 }/ {
)
) ?/ V% u( t5 Y
;;用户输入的关键字是"W",指定方钢宽度
8 {0 w% F% m, h. f& H/ d+ P
(progn
+ n* B, q5 R; E& X' [
(setq width
9 K0 I2 h8 ?% S% J* q9 R" f8 ]. ^
(getdist
0 g2 u% v2 J% U# J
basepoint
7 R9 U% u& {( N& m9 D. Y) A( _
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")6 i2 U* Z0 C& J4 @$ G6 c: J- w9 y, F
)
3 ~5 G! I0 P3 v& c4 ]) A9 n2 o
)& N$ _; u1 S6 l+ G' b0 D9 n+ d
;;用户输入新的方钢宽度时修改默认值* d% c. f; T6 [
(if width8 M/ G& \1 t* @+ _. L+ ~$ _7 X
(setq lg_width width)/ G* h% `! S3 [- F Z; ]
)" G( {3 L* s5 O' b
)+ t8 w2 A. c @+ F3 R
)
; v" {# L, |9 B/ t
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度; R7 [( \8 e# A' w7 _8 ~8 h
(setq len nil)
9 D$ @: P1 u* ^
)
7 `4 z% f" G, u8 H
)
( U/ E+ r; _7 p) i# p9 {
)6 k% Y7 z1 ~# p
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值' q! G8 o2 h4 l; v* e
;;计算用户可以指定的花形数量的上限) r- R; O! I' C9 S3 P: u* H( w
;;用于下一步检查用户指定的花形数量是否合理' s. K' e% W# T
(setq lg_length len
* l9 _ `% Q ~ U4 n3 e
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
7 q6 r8 M) w1 @" G! e
)& s1 v' e! D& ]# d. P1 ~
;;指定花形数量或A段最大长度
/ b. Q; _% t7 z. T+ `
;;如用户指定的是花形数量,则按用户指定的花形数量画图
+ H& _# t8 l6 b6 B" ~( _& g
;;如用户指定的是A段最大长度8 F$ F1 k, C( ]6 d2 H8 z8 ^
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图6 X8 E9 O( k' `; b7 G* A
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解* I3 U- r8 a' Y+ M4 J" W" R7 F. ~5 ?+ n
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解
1 x: o6 S0 U2 f5 _1 p% \
(while (not n)
* I1 R$ y% |- d. b! q/ @; c% c
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值* s6 ~# U- R+ z6 r& v _2 f9 x
(if lg_n* ^0 Y. H8 f! i" m. ?
;;存在默认值
, s1 [" i6 K% ]& G$ m
(progn
+ ?, k- ^" p# M; ?9 a) N. Y
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"* R* C2 ^. Z, ]' X
(initget 6 "l")
8 G7 m3 r" K& X* B9 ]
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<": K% C- N; X- t1 C
(rtos lg_n 2)
' ^8 z/ ]3 e, C; W# H; e
">:"9 G2 @/ f- s( _+ v& j
)
4 H8 |* H! Z j0 A* I6 |3 A
)
" H) |( a% i5 D/ U8 N
). U* U7 H8 f* q! J, V4 e9 a/ }
;;空回车时花形数量使用默认值9 w- b& w2 {& ~4 Y
(if (not n), ^/ b; e/ Y' W
(setq n lg_n); g4 W" ^" p5 q& z
). `; ^; p4 m5 z' e9 O
)- ]4 E, N c% ^( m8 W( K
;;不存在默认值4 {9 t9 C* N. k; q; y: E! Y3 b
(progn% t# A, i- r/ P9 v0 C" o
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"
. H J j2 j% f
(initget 7 "l"). C* s9 h6 m( @4 H1 x' d$ t) V
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))1 A) s, F6 B5 e7 ]6 z, v( B' b; m' ^4 o
)1 e" w2 \% B, h. _5 y. m
)
4 J$ \) ?2 ^+ v) M. `1 ]# s! Z
;;检查用户输入的是花形数量值还是关键字
+ D; M" i0 ?) d. U* A' y
(if (numberp n)& |* a2 k$ d4 |9 s0 {& c
;;输入的是花形数量值
' d3 i% _- C) g/ a5 l1 G6 L6 l
(if (> n nmax)
% Z) j8 R$ f8 Q0 Z& |7 A$ R- c0 k
;;当花形数量值大于上限时清空输入值重新指定0 {8 Y; w3 E3 \6 u4 q6 X
(progn
5 d( U6 }" ]+ l/ [) _
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))
( R* Z+ i. G/ J+ P( v+ t$ d
(setq n nil)
, s# W8 `& U- z, i
)
% D6 O$ z) I$ v: A
;;当用户指定的花形数量合理时存入全局变量
- z3 p' h; ^: R% [5 F
;;以便用做下次输入的默认值" ^; q! [$ }' Q
(setq lg_n n)) I( S# ~* C3 \9 Y; g/ H! e) T$ n2 a
)3 I$ P/ C+ M9 t0 i/ Q) r' O' A
;;用户输入的是关键字
: d3 m& o ~3 N, ?3 J
;;指定A段最大长度
' k) y8 I, J5 }
(progn
R) m1 J8 _. {
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍
, G' R' E) b) s+ T
;;否则可能导致无解
% s4 Y$ Z) V) L R6 d
(while (not amax)* F1 k3 c& s) }1 G3 L. }4 x
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值
! W5 M$ n* [, g# p. r
(if lg_amax
/ N% m( L7 K. [$ y, b
;;存在默认值8 O8 j) u, O. O! ~
(progn, {& ^7 M9 V9 S5 q- ]) k
;;用户输入时接受空回车,不接受0和负数* T3 w9 `# W8 k, M8 ]- F
(initget 6)
* _3 z7 Y7 L$ x' P
(setq amax (getdist basepoint
% \, H( Z/ d4 p# W
(strcat "\n指定A段最大长度<"& `" f3 I' u7 `/ }- A
(rtos lg_amax 2)+ N. _9 q, l+ T: {5 n$ j+ ~4 X
">:"
9 A- t" `; U, s
)
& V5 A' n7 ?8 |" }
). O3 Y$ _; E' I0 p1 n% ~! A
)
& _& ]; Q, v" M* N( k7 L0 f
;;空回车时A段最大长度使用默认值- T5 i* k2 B) p9 c! G
(if (not amax)
- q3 \/ J& M" W; d. d
(setq amax lg_amax)
8 W" a/ G0 K T+ h
)
)
& J1 @. o" E5 j2 z% O
;;不存在默认值7 n& } p: z* t, W
(progn. w% x# W. |+ u" @* p
;;用户输入时不接受空回车,0和负数
v$ H3 T; k2 R; U3 P! A0 V4 k
(initget 7)
2 w- W! }9 J E z8 T
(setq: s; ^3 N3 }! K% m4 z, _
amax (getdist basepoint (strcat "\n指定A段最大长度:"))) x: F: m* r8 h m S5 k# Y6 z
)
+ l$ y( N5 u' z) N' Q
)$ G' b6 }! E3 B# g6 f6 @7 Q; w2 l$ {
)
N8 N' c- d& d, _. o( f& f) w
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
4 R) W9 }/ c# w1 `3 T
(if (< amax (* lg_width 1.5)): v9 ~ q2 @! N% w" f3 l( r6 V" j' v
(progn
6 F& X- p5 h& x' c" B
(prompt (strcat "\n指定的A段最大长度不能小于"# r8 f5 A" o1 L: v: m
(rtos (* lg_width 1.5) 2)
' Y" E# h9 S" o& T% Z8 S% T
); @3 x: Z: A8 p3 C8 w; m) J+ K1 g
)
) D, F# i R, Q5 N
(setq amax nil)7 @6 ^1 J5 }* n5 G
)
/ C1 {# F' {3 G6 o" L
)$ s' I1 d4 K5 ]' N5 u
)# i4 |/ A; m- z3 {9 b9 p& L
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值
, a9 j; r6 u c- d$ @5 e3 e
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为18 Q) s9 Z& U0 p, n# e
(setq
: F* \( }/ e3 a, ?% z# r& S3 I
lg_amax amax
: o8 ?, A# v3 ^, \9 m0 y" Y
n (1+ (/ (- len (* amax 2) lg_width)
& S( v/ z. d* r: y
(+ (* amax 2.5) (* lg_width 3))
# V7 q9 m# u5 q. J# J
)
" q, F0 ~. U; V
)
$ [3 S9 d3 B/ P) v% _9 R ~9 I
)
. \, }- K, y9 M7 @3 p% W5 j5 Y- B
(if (> n (fix n))
7 Q0 `4 A1 A/ ^6 ?( s7 _' w; c
(setq n (1+ (fix n))) }( K9 g$ A1 w+ G% Z9 \1 {
)
; [+ _1 d5 M, N( `, b' Q) F% X
(if (< n 1)6 _. ]5 U4 w8 r. J. r, a' j
(setq n 1)6 Y1 ^! ^: |) G5 K. }
)
- t' |' R( n" V6 R! p& Y! i& h
), v8 A+ d9 G! D% s+ J8 w( x* L3 g
)0 f# M% W5 Q; o& S% B! c
)6 k, M P7 i3 ~% g
;;画图
3 n2 m4 Z- O, m3 L) X/ x
;;记住原来的对象捕捉设置
% ^) q; {5 f! D. A2 V9 H" t$ W! N' _
;;按花形数量计算A值4 `5 M9 U6 W1 X" c' m
(setq
) C( _% M/ [4 R6 g& ?4 d
oldosmode (getvar "osmode")! f3 \+ U' t) A2 n# W# S
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))
- w( M0 g$ V) w2 U
(+ (* (1- n) 2.5) 2)
" Z+ l& r5 I s4 @* d. y5 |
), H: z, T8 s3 G2 n6 Y
)( a, j) [8 u2 R- E' k
;;暂时关闭对象捕捉; p* g& @5 W) F- G4 t" t* j
(setvar "osmode" 0)0 A+ G _! |% N0 x0 X+ I
;;屏蔽命令回显. q2 |) y2 f# U6 ^
(setvar "CMDECHO" 0)
* L7 H( S$ }: t4 {- f
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
! B4 r3 w- S8 G( p4 L' \$ n* u8 r
(command "rectang"
7 c6 t) ?% A; t. W, z* { ]
basepoint0 `/ t% J9 k5 X4 p
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))
p5 t* D$ h! V7 R
)
" Z1 d! p/ d! y2 e% i1 y5 V+ O! L% H
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
, i) C) J! ^) I! h1 s
(command "rectang") q( T) \& H$ @9 N. X
(list (- (car basepoint) lg_width)
9 ^+ o0 H$ C* c
(- (cadr basepoint) lg_width)" n8 f% i- ]# }7 _
)
& Q6 ~: x$ A$ Q& I; I7 n
(list (+ (car basepoint) len lg_width)
+ I( h. h4 \2 }# M7 X$ X- K# E
(+ (cadr basepoint) lg_high lg_width)6 y5 Z1 M* j# r
)
3 G2 e+ _3 ?0 e0 i
)
) x) J- B5 |8 L+ \, o" R
;;将指定点移到其右侧A距离处
% T0 d/ w! l) d) l+ `; d! _& x
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))
q3 N& X2 ?1 ^7 ~
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆
) Z% |5 C; h0 D- h8 V
(command "rectang"* z6 ?2 H h; V m- l7 E0 P
basepoint" f& k6 g/ a# P, m
(list (+ (car basepoint) lg_width)
8 |1 X- n T% a# o g+ D- V. y
(+ (cadr basepoint) lg_high)# s: ^; h% ?3 n! ~: H* \
)
+ A- [2 Y4 I" y1 t7 J
)& V7 a/ j& x' Q' ^
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)- R- m: ~5 o! a# t
(repeat (1- n)$ w/ z- K4 r( q0 }2 ?/ Q
(setq
; ]7 f3 c V- I* W" _
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))% o1 {+ e( t g7 c/ ~3 V$ g% h# t
)
6 T. R ~. f' t
(command "rectang"
% U5 o7 Y, p4 l+ o* i/ y! S- f7 b3 p9 B
basepoint
6 E) ~) j$ o, e4 s0 M( p
(list (+ (car basepoint) lg_width): d1 I& ]* i C" F/ X
(+ (cadr basepoint) lg_high)
! K5 p; Y* I" G! k( u
)
2 v7 W7 L5 {4 |8 k
)
! {9 Y0 |$ ?1 n5 h
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)
3 n3 E O# c( V3 o5 q3 O) {
(cadr basepoint)
7 w$ A4 x: Y2 r( c R: @
)
; ?( }6 p F, z2 Y, ?
)
, j) m; n, \; |; x
(command "rectang"8 A+ ?0 G. m2 J8 [' o) @8 c5 a T
basepoint
: H- ]' z+ e$ y5 ]- q
(list (+ (car basepoint) lg_width)
' I) p# f5 r! Y& J8 h/ y
(+ (cadr basepoint) lg_high)
# X( Q, n9 l) [
)
0 ]4 l- `0 v, q! Q- `
)
; @0 c' `8 K0 H9 E
(setq
+ ?& i. D' A, c* T, n
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
; R$ w7 K3 ]" W$ \8 N7 V
)1 Z6 {5 z3 } s+ I
(command "rectang"3 y+ \, G: |; F0 J
basepoint5 P( w5 |& G4 G. _* c; }% v6 D
(list (+ (car basepoint) lg_width)
; y0 R1 J' a( ~8 g
(+ (cadr basepoint) lg_high)
[1 g2 w! O2 A* h0 N
)9 i# l; G3 l0 w$ J6 ^ R% @
)0 V+ H/ Q) S8 A S9 M i
)
/ r. h* r3 [+ a! e( S$ e
;;恢复对象捕捉设置
: o1 b1 G. l! t4 P3 r. C+ K6 ]* Y; O
(setvar "osmode" oldosmode)
2 K! h7 z! f+ K6 \' b# q1 F
;;打开命令回显
7 s, K3 l0 K7 Y" ?1 l- _
(setvar "CMDECHO" 1)( w+ M8 ?, j1 d3 Q5 W
(princ)
1 z" d( Y) V0 v N
)
8 b/ A+ l$ F/ F" b

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源