作图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 发表
4 k& J. l, r) [直线分段方式，a=a=2b
/ x% I2 u2 t' W2 G ' U8 f$ X: A, ?" c$ i: N9 c* a

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表
3 H% M1 F: A& W# M$ [, D7 }2 G+ l3 O2 S7 e" _. x& r, @
距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

4 r, F; v5 W X% G9 f* X7 L5 H
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)
+ A1 V2 P# K$ Z- ^
;;设置栏杆高度和方钢宽度默认值
8 O6 E3 K$ d, s1 \- f
(if (not lg_high)& j6 R9 f& G* b
(setq lg_high 500
- V2 X- D4 p; f ^
lg_width 14
$ F8 v% M' M6 D6 d8 k% x
)) ~! `7 d. {7 ?7 N" U9 A# @2 J
)
- h. n. ^6 O% J( S& r# ^
;;指定图形插入点
1 [# P0 o2 b2 @) P4 ?
;;不接受空回车
3 w3 ]; E3 ~4 B: A
(initget 1). |; k3 K' H, H5 ~' n# i
(setq basepoint (getpoint "\n指定插入点:"))
8 [3 s( K1 K" s+ B( ]- T& B8 P g
;;指定栏杆长度和栏杆高度和(或)方钢宽度5 Q$ i! }7 e" ]1 p. l* M
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定1 n- L q. P2 k/ n8 ?4 U
;;用关键字指定栏杆高度和(或)方钢宽度后# J2 p; k) |+ O% g2 Q
;;需要重复运行指定栏杆长度的代码段1 A1 R, |/ C3 E' s$ y
(while (not len)) R9 X$ Y# F5 u9 m$ p- h. a4 D% L4 i
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值3 v, k& o2 P3 U9 C
(if lg_length
/ u$ m6 j: f) X7 ~; i/ y
;;存在默认值
$ E, m$ k# w# c" C ^8 m2 ~! N
(progn
/ a h$ N: ]" ?; e* T' x/ y
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"
' O% _+ T8 G7 q6 T# z/ W4 m
(initget 6 "h w")% f* y, X6 h {+ U: x8 x
(setq len (getdist basepoint
, e6 @) [1 @2 d- i/ C0 C9 {
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"2 `8 F7 E# U7 r2 `0 z* r- n
(rtos lg_length 2)% [- a! N/ h# E7 {+ V U
">:") W' r" U6 J, ?, @
)
' X8 x5 _* e) q- ?
)
6 w1 F- i' @; V6 p4 I$ U% R9 G+ i
)
0 O) ~" m+ b+ V" B$ I' y
;;空回车时栏杆长度使用默认值
; O: g+ v! G4 i0 d1 p
(if (not len): p& c' E1 n5 L$ |
(setq len lg_length)
' g3 E# G/ Z1 v3 U, r3 g7 Z+ l5 O
)( c, a4 Y6 @4 J
)
3 _7 [+ H1 X: J4 a8 a5 o. o+ a
;;不存在默认值
7 w; q; \- _5 c
(progn
6 Z. {) T' K1 `0 l H9 G3 ~% ~( D
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W": C: k' n. {. u
(initget 7 "h w")9 R& P) {! C( @3 q
(setq
?* c6 i% m9 z' D
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")3 D7 G1 X0 m5 m& C9 ], M" l7 | k
)
' z& V: ~- P1 T& [' E0 H, M% z
)3 S! n, V9 d& O8 C! c* U! m3 q
)
7 i' b0 L$ D) N! ] q7 j
;;检查用户输入的是长度值还是关键字- l$ \7 F. }6 r1 N" L
(if (numberp len)4 i1 m" \9 z" S- f8 _
;;输入的是长度值: d9 `4 i4 w( I; X
(if (< len lg_width)% `+ r4 k' t: b
;;当长度值小于方钢宽度时清空输入值重新指定6 z: Z% l: t# E. o/ d$ \$ G& l/ d
(progn
& |8 a( X* B7 l* T3 y4 P
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))0 W& s1 }. z* x" E2 V- G) r
(setq len nil)
6 S) v# d6 t/ k# T! w; p- E
)# Z ]# Z$ T: I2 I( z
)
' S; o. l+ n0 |1 |4 `
;;输入的是关键字8 q( Y1 `! l; ^5 G
(progn
$ u9 [9 R/ ^4 T4 d! E0 n
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值! c5 C# D$ V5 {- |1 x: N2 C
;;用户输入时接受空回车,不接受0和负数
( [' T- V- s$ x j" L/ r
(initget 6)
+ h/ N k4 w/ U4 `# x5 r
;;检查用户输入的关键字是"H"还是"W". B; A! R$ ^* t& A$ t- A& s& O7 r
(if (= len "h")
( F6 D8 x. ^+ X6 T6 |% g1 | _
;;用户输入的关键字是"H",指定高度" J# V3 `( v: J$ Z' Y6 C) U
(progn- K: t6 W" a( t" y
(setq high) D% p! e, h& W$ r9 {+ L
(getdist basepoint+ D* G/ d, `( y& \6 [# h
(strcat "\n指定高度<" (rtos lg_high 2) ">:")
; w! K3 n; t- I- w! L( b: \
)) r5 Y8 f/ V) ^
)2 X0 D& S2 Q% d( a
;;用户输入新的高度时修改默认值1 P8 d: w; k* l
(if high
' O0 w: a* Y& ^# y
(setq lg_high high)1 { }* c( c Q0 x: w) M
)( I* d) w- N D3 {3 q& x
)
% @( e( ^* N; J) \- N8 G
;;用户输入的关键字是"W",指定方钢宽度
: d4 e5 Z3 [8 S" z$ S* Q
(progn
5 f' h; i$ L G( y6 B
(setq width( S8 W* |* h! V
(getdist
9 z7 {: V& d+ V+ J' y
basepoint
7 D& `; n+ g: M# P9 c! x7 I
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")
$ H) U C# m, c
): n; }$ A* M- V
); u4 {' g) R4 ], s" T8 g. n( v" [( }
;;用户输入新的方钢宽度时修改默认值
" J+ R) d6 @+ y2 j4 O
(if width
& N" f1 V$ S. `3 h3 a D& j
(setq lg_width width)8 o. F: H$ Z2 T. j7 M
)
4 k% Z1 i. @* `# D( @
)
' A7 u' x: ^; i+ p; o
)
3 x4 P( S5 Q% r4 F; Z! ?% l; M
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度' q" J5 U. c; e' H7 Q I0 b' H
(setq len nil) g K& C2 O, A/ T1 \
)
+ j+ v3 F) ]/ _- g7 w
)
$ S1 w" |7 n5 k, W6 i) i; k- B. ]
)
3 y6 Y) v6 \, l, p
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
@7 r; z2 R9 ~- F( x) H4 ?
;;计算用户可以指定的花形数量的上限/ r6 ^6 ^' `1 T6 `5 r8 n
;;用于下一步检查用户指定的花形数量是否合理
' q; k5 f1 G0 ~: p q
(setq lg_length len
9 s+ ]5 X ^, G" d5 k4 n
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))- _4 P" i6 P+ P* j3 ?
)0 _' d$ Q6 K& y" d. R5 }: O& r, R
;;指定花形数量或A段最大长度
0 i+ {& p8 R& Z' ]& u) i0 X) D! J
;;如用户指定的是花形数量,则按用户指定的花形数量画图( i. b. h: a. E: G
;;如用户指定的是A段最大长度
5 | |" n2 m# f' W$ V. ^7 e! O: j
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图# |: c" O9 ^7 B7 y1 ?6 c
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解; K% R1 ?# m- l! d- `6 j
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解4 ^. A# t5 A& R1 A4 a I
(while (not n)
0 O/ }1 X' s- l) Y$ v9 f
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值9 f9 y) N N0 v4 P( T/ f5 F5 e
(if lg_n: ~: S* `( Q2 I; Z
;;存在默认值; w( ^ B0 t2 x4 H1 o: g) e
(progn
& P; y5 f# F( ?* Z0 @
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"
. g9 E8 g0 l- q8 y; b5 W0 r
(initget 6 "l")
# }; Z9 H% x( ~. h! b* o4 ~
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
5 r/ \0 ^8 t1 F# ^) R% w8 U
(rtos lg_n 2)
1 _: w, c+ C9 N! f. z p: y
">:"
4 {- g; w& a5 ?" A- k7 g
)8 M( O5 f3 w8 t4 q ~" x* `
)* F" @7 v1 N. j
)' Q; i9 J; u! h
;;空回车时花形数量使用默认值
& n- j( |* X [( G0 s& U l
(if (not n)
; }/ t/ I5 ]" u4 ]
(setq n lg_n)' k7 L6 p& I( @! {" f' |* k2 n8 U
)
6 |4 O+ T/ z R% |" Z' V" m3 C
)
! a* g: O! \+ {9 F6 {/ P3 B
;;不存在默认值( o9 X0 K9 ^* }
(progn- k1 W H& c+ j: ?" G4 u
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"
2 w8 R1 j. A. } D _! ?
(initget 7 "l")2 P) ?2 v, W" B* Y1 Z$ _
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))
$ B$ L+ V$ u/ Z
)
( Z# {% S: @; B( \2 o
)
- C# @& @- K2 h
;;检查用户输入的是花形数量值还是关键字8 }6 W- r3 f$ [( u& U2 r$ D
(if (numberp n)9 _! w7 \! l+ J7 j: w! K1 I
;;输入的是花形数量值5 T1 V! I* B& E2 Q( b" Y$ p/ U
(if (> n nmax)
% T. s2 v1 O5 p7 p- r
;;当花形数量值大于上限时清空输入值重新指定
y7 O& g- z" c5 t/ F- c- z2 ]
(progn
# s! u+ c B; L# }
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))4 I' ^- k' A0 f V6 t: K6 H
(setq n nil), N( V& T# p, E9 `( J, p( a
)
+ a: ~( K# M; x3 n1 M3 \5 s
;;当用户指定的花形数量合理时存入全局变量" }) M7 u6 |" c. c9 d* ~
;;以便用做下次输入的默认值
1 K$ t& t4 {' v; K- d& J
(setq lg_n n)
" Z% Y- [! P, l; R$ F1 H
)
0 Y* ~) u$ H z
;;用户输入的是关键字
3 U" y6 u8 t1 `8 ~. V2 Y( Z/ M# h
;;指定A段最大长度
+ W- D! g1 m! W9 ]+ m8 q; D
(progn
8 S! e9 E; S) J% v
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍5 @3 [0 K5 ~! Z4 V2 ]
;;否则可能导致无解5 X7 Y9 e/ C* R, k
(while (not amax)! a3 H5 h9 _7 K6 Y
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值
& l3 j4 B6 {3 _& k! N% Y9 p' Y, R
(if lg_amax1 `$ {9 @: A) n7 J# ]7 ^% |
;;存在默认值
- G! S% Z# e/ \7 ]+ |. g
(progn, \ |+ F+ q# y6 r, }& u, ~
;;用户输入时接受空回车,不接受0和负数
+ N8 B7 U! T, A j
(initget 6)
$ \! Z7 y+ Z L V
(setq amax (getdist basepoint
: h1 n) ?8 a: W# Q% |. {
(strcat "\n指定A段最大长度<"
# g' s. O; n. D9 N; K
(rtos lg_amax 2)& `2 W# B0 z4 p; q8 W7 u0 I9 i
">:"' M( A- D$ z) G9 W' f S( d& N0 K6 w
)
5 u$ e; _* d" P6 e* \ A0 Q
)
- [& p2 E8 x- g- F. I7 ~
)
; w* R. j" _/ c @3 J/ b7 P
;;空回车时A段最大长度使用默认值# U4 ]1 J- a7 P! g, `
(if (not amax)4 O3 j. {" x6 S! O2 I/ c
(setq amax lg_amax)5 u2 V, m9 p$ w5 G A9 E! X4 Y
)9 s, M" v# }, |& t# l0 {; |: A/ s
)+ I/ \* f0 P0 O& F3 _! _" |
;;不存在默认值
, K- o' a, p9 q! W% a
(progn
( I& u1 s/ {) a! F6 e* Y. }
;;用户输入时不接受空回车,0和负数1 A- r% [& e" {* f
(initget 7)
: R& R8 x( }6 G8 a
(setq( R+ l- z3 r' L5 l3 t
amax (getdist basepoint (strcat "\n指定A段最大长度:"))) ^8 V; F" w: ^3 _
)
! ]+ h8 L. g/ |# F" x' c% w0 }
)
: v% _1 B) F4 N5 p7 I( ]- I+ U
)
) i1 U, ]2 y8 [+ ]/ L
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定6 {! ]* W$ h+ L0 W
(if (< amax (* lg_width 1.5))
# C$ W) g J( n7 s
(progn6 j% l/ D: n2 p5 o$ q) `, V9 @# `
(prompt (strcat "\n指定的A段最大长度不能小于"
' y1 }' T% ]9 J9 k9 L
(rtos (* lg_width 1.5) 2)
, M9 j1 @* I$ N
). ]5 L3 ^& ~% h
)
, D: b9 ^8 x8 V3 V m
(setq amax nil)
# z6 Y0 G- e& |1 t1 J0 ^
)
2 k2 p6 g% M6 D+ Q
)
7 f5 u4 R* \7 s* S. B4 p) s* [
)
7 K- s+ g' ] G/ k" m
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值
( h, z/ k$ i: i4 v( X. ]
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1
; h% H( y7 }! b0 y; W5 D
(setq: `6 ?6 V, [6 L9 q
lg_amax amax
# \1 ~* J6 p) ?0 X! S$ ?, O. ]
n (1+ (/ (- len (* amax 2) lg_width)/ T; t7 G, u" f4 j6 A! a3 w
(+ (* amax 2.5) (* lg_width 3))
6 d2 c2 U4 f: n9 w& w$ K6 W
)
$ D( D2 V* }- X5 z' O# p
)" r" f. ]! C' J" ~5 V3 [' ?7 x
)2 V- T; x" s$ G. N) Y$ ]2 x7 d3 Y
(if (> n (fix n))
+ r5 e' Z! B1 q+ x
(setq n (1+ (fix n)))
. V. j0 c2 b* [6 B
)5 s2 R. t& h2 y- ^1 N
(if (< n 1)/ f. a( g8 \% `5 O! t2 J
(setq n 1)
5 k U9 v; } A" J6 l' U1 T
)3 c) U* e/ v' Y
)
+ S5 e! V2 y" p. R" L4 ?7 j& M
)' Y! _+ {) Q+ f4 o0 ?$ ^
)
) e( ~/ e! [8 L' H# L/ e
;;画图+ i _' j* ~ q. D% n9 V
;;记住原来的对象捕捉设置" H# w. A: X2 u
;;按花形数量计算A值
4 v3 t4 @, E# I+ {6 T/ ~! B3 | S9 [
(setq: m# s; Z' A7 ?1 B
oldosmode (getvar "osmode")
6 \2 D4 Q# f8 {* G
a (/ (- len (* lg_width (+ (* (1- n) 3) 1))). c4 D5 T; K+ {5 d) [
(+ (* (1- n) 2.5) 2)9 X- ]& |7 Z9 ~+ [8 c$ S
)
. p/ P( Z. z3 }8 B5 i9 L
)+ ~5 x0 f4 N5 L& C2 r4 T( |
;;暂时关闭对象捕捉3 R% @8 R+ D: J9 m* J
(setvar "osmode" 0), ~/ |& j0 s1 F+ v8 C6 o2 a1 V
;;屏蔽命令回显
, }! t; x; o0 ` q7 |# {6 m5 i% K
(setvar "CMDECHO" 0)
4 f% r; O) {, x0 I# {9 e
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形) n$ L( g4 M3 K2 ~
(command "rectang"
9 n- ]' H& M$ @1 l- ^
basepoint
8 f7 `, X3 f' c1 L
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))$ H8 K- q6 L4 ~- r. a
)$ I) x a' g# W7 D. g
;;在第一个矩形外侧一个方钢宽度处画第二个矩形/ |6 [# I$ z) W$ Q1 k/ w5 o$ [: S
(command "rectang"
3 i( w- I, \) w8 E+ L
(list (- (car basepoint) lg_width)
7 Y1 I& `& E" K* t
(- (cadr basepoint) lg_width)& w; h/ Y$ W, c3 o, D8 m5 F
)8 X) H" t5 i9 ^ q' q
(list (+ (car basepoint) len lg_width)
3 O' x5 j% k+ |* b1 t
(+ (cadr basepoint) lg_high lg_width)* ]- E. `. |' e, k' G b& I( n, ~
)
$ t: b! K. J- m' c# y; X: I
)
5 n' b* v2 N7 V/ [
;;将指定点移到其右侧A距离处1 }) B1 n3 T+ E5 V# t
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))9 Z+ |" `5 Z% [+ L
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆
* G5 I" ` K- ]
(command "rectang"8 P Y! K: M( O- ~3 K! I
basepoint
. a, b! t K* i- ~
(list (+ (car basepoint) lg_width)7 U1 p" U4 a# z& k, k/ f
(+ (cadr basepoint) lg_high)5 b7 Z- n, x/ h5 [8 h
). T4 q6 r+ \$ ?$ R" p; ?' M7 R& ~: w
)
# [- O% p; d# k
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)9 ~5 J1 Q# u5 s
(repeat (1- n): a& b$ K: z, X. g. n, z$ S3 O) y
(setq
' ~3 g* e0 w( {/ m0 z$ t6 L
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))* Y6 }0 m8 z7 B
)
0 R- d F3 H% ~2 k2 M$ z% P
(command "rectang"2 s- g$ Q$ l1 }, ~3 E8 d$ }1 ^
basepoint8 Z9 j" a8 {, Y/ z
(list (+ (car basepoint) lg_width)# Z& p- P! i4 G3 f# |
(+ (cadr basepoint) lg_high)) @9 p. s3 j/ E1 ]( X7 Z
)
0 P( V6 W K$ r) d: }
)3 [5 {* r" h5 e, o' |& t
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)5 O3 a+ f- O# i
(cadr basepoint)5 `5 [, \3 b! R# S1 t o
)) M3 V6 @, p! \
)9 N: e8 v' Y' K) o7 q5 K
(command "rectang"
; J( V h! ~, d. B1 L% P
basepoint% `/ v, D# A0 R e( G
(list (+ (car basepoint) lg_width)
! g, x8 t5 n. C Q
(+ (cadr basepoint) lg_high): U3 n. y: E, g1 }# ~! I4 ], T
)
/ B. }* P* e, `* v
)
! T$ Q" Q3 d( {2 m) ^: T+ z! r
(setq8 q. J8 ~( z! b/ }- U$ q" e9 I" E# ~
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
8 C9 t, v1 a Q* a& l7 ?4 J+ B5 o
)
6 Y: }% E) D% O" H
(command "rectang"- n1 ~* V) J4 F0 }$ b7 N+ r0 j
basepoint! i" \: o% W) v% E7 c+ ?) T
(list (+ (car basepoint) lg_width)
) l( j6 i9 n7 F$ U; i* X# i
(+ (cadr basepoint) lg_high)% q z" u. g0 I$ P6 A: b: m
)9 k& Q5 ~, N g. C I
)
& z) a4 ]8 g0 |( J- m
)0 q; Q! j" Z0 \5 l/ _- Q0 m
;;恢复对象捕捉设置
# z+ E6 L8 n" @! C* F
(setvar "osmode" oldosmode)
3 ?* `8 K, I& Q& h9 v4 v
;;打开命令回显
* A) K- h+ B" `. t8 t
(setvar "CMDECHO" 1)
8 a0 E/ O, P/ X
(princ)3 }1 \* b3 v. c% s" G; S8 F
)! e! Z; O0 L6 F) E4 Z1 H8 D" I

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源