作图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 K. J. d+ x1 `7 A3 z直线分段方式，a=a=2b0 M \3 _: s2 Z4 W8 f8 l
; i6 L [3 F1 |, m9 _( C' ~# g

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表
1 W0 c8 V, D3 V- r/ G# j8 I' E6 P& `9 [, e) w
距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

, B3 Y, ~' U* u ^4 s' J7 C
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode), S9 _9 v$ j* E7 _. Y+ ]' p3 R6 d/ i
;;设置栏杆高度和方钢宽度默认值2 L- U+ ?9 B( [4 B. s
(if (not lg_high): y' x2 W! K: _$ `
(setq lg_high 500; l$ v. d+ Y9 z% g7 p
lg_width 14/ ~ V* J. y' \+ e e
)" {1 \3 _" B) g# Y; ?) G6 D/ F& x' P0 C
)
9 M: V: \2 \1 d3 C7 ]3 R
;;指定图形插入点
0 ~. z* w8 z" _% x5 m, V
;;不接受空回车6 [/ m' E! R2 L; j
(initget 1)# r. `* v, S" Y3 U1 P
(setq basepoint (getpoint "\n指定插入点:"))/ R5 p* h+ q4 ?; J4 H# L
;;指定栏杆长度和栏杆高度和(或)方钢宽度/ J6 Q: {, q+ `) X: f
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定3 G6 b z4 n- w9 ~1 t' x- m% x- H1 l
;;用关键字指定栏杆高度和(或)方钢宽度后
; Z/ B3 ]9 i$ y* P" f+ p
;;需要重复运行指定栏杆长度的代码段5 V8 C- h( ` h$ c
(while (not len)
8 h6 a5 p1 M/ k% @& K% k h
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值1 O8 u8 E% y7 b& D
(if lg_length
, L* { L& W/ \ \
;;存在默认值( i" {$ I( W$ K
(progn
* y# P d6 [9 K) {
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"5 M3 L4 g1 U/ T% C3 I3 Y
(initget 6 "h w")
9 J: v& ?4 A( Q5 l
(setq len (getdist basepoint/ G3 x$ E, A$ D' q8 I0 k# `) O
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"
5 r( w# a; D. S8 T; @9 Z
(rtos lg_length 2); X' m! A W. e/ s9 J
">:"$ V3 P7 q% A/ u% I1 \
)+ [5 ~) X- d" v8 c0 Z3 i! q2 ]
)
) z3 f7 c; |6 f3 L. @" Y7 l2 r
)1 l0 @6 L5 \8 ]; h& b* J
;;空回车时栏杆长度使用默认值( q4 A/ i' m7 r/ i* X" m
(if (not len)/ K5 \% P8 L, d6 R, }: e, v( }2 I
(setq len lg_length)
( K( n/ k, A8 s
) S5 K/ [- k9 v* d; U
)+ a. N5 g, Y0 B
;;不存在默认值
0 h+ M5 e( V: g" @
(progn
0 i3 V; U1 f7 n9 { i/ f/ c1 J
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"; K6 x1 K1 X/ e0 b
(initget 7 "h w")+ U/ w$ }# K9 R
(setq
1 {8 b- f% Q, x* B( w/ V G3 ?
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")* E+ L. x, Q# d3 o; H
)
0 c8 z6 Z. q5 o. Q7 k- ]( u) d) |
): r- X4 n8 g2 E& {, H4 \
)) `9 U4 A" z4 v: r' b, k
;;检查用户输入的是长度值还是关键字" Y: L7 e4 n- F3 G- N6 W5 S/ i
(if (numberp len)
0 y8 e6 K* R% E
;;输入的是长度值
5 l2 b8 R; Q* V8 u8 N- |! Y
(if (< len lg_width), G6 k9 T. Y" p+ g/ k( M
;;当长度值小于方钢宽度时清空输入值重新指定
w' o5 Y4 I9 N. f
(progn4 }3 _! C$ D# D' H
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))* ^5 @# J! y9 ]4 ]2 I
(setq len nil)' }# H5 i) X; ]- | `; _" g
)1 }' r( R2 _3 H ?; s
)
. h* q+ t& L; s' w. T6 ~3 }
;;输入的是关键字
U7 @, M5 W) w/ H. x6 x
(progn; p- ] p& ]6 I* M: A
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值, u& n) V9 `9 \9 @) [6 z
;;用户输入时接受空回车,不接受0和负数
# F' m& J; V$ k) y+ e, E3 w* f
(initget 6). g' ^( d8 H6 \' n, e
;;检查用户输入的关键字是"H"还是"W"
6 g9 l2 k3 C2 A( u
(if (= len "h"). p. I. ?4 x2 |& ^0 m# m( I
;;用户输入的关键字是"H",指定高度
: `. k4 y" D% p
(progn
' p/ D, [! D: S+ h. w) V
(setq high
2 `; s/ y' N& [; Y
(getdist basepoint3 k1 G) ? l W9 r
(strcat "\n指定高度<" (rtos lg_high 2) ">:")
5 e1 u$ m+ D4 b
)* R$ o5 ?! e% T6 t) D3 |- J, Z
)- u9 G/ Y; y+ Y5 T$ A: |
;;用户输入新的高度时修改默认值
4 i3 ^: G7 ^# ?0 U$ k
(if high
" [7 G. L' k7 K* X1 N
(setq lg_high high)) j5 L S7 P0 i6 q2 F! h5 J: t! M4 l
)
; L- q* n! O d% h) x
)
1 E; |8 P- K4 g* E I
;;用户输入的关键字是"W",指定方钢宽度
(progn q, w* T N* ~$ j7 `
(setq width- B8 p) |$ Y m& Q
(getdist
4 N# O! g5 h0 p ]# a1 j
basepoint
. g f) M x! e* u: \( T* j
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:"), {/ r( k+ i* I1 |
)7 G5 j( j& x3 @5 \4 S
)
* z& l9 K9 F0 b( L, f2 u
;;用户输入新的方钢宽度时修改默认值! c( v- A9 W/ H, O- H
(if width
3 ]" Y1 T: J% [) u( y/ J7 u
(setq lg_width width)- t7 k6 J0 j' V: r1 o5 N" T2 u
)
6 L+ ^) E; w; [
)" e5 Q. x" ]4 w S
)
% o6 x) P- k* J+ c! g. [
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度2 O% M5 F- F3 `1 E9 N7 a3 N
(setq len nil)" n7 e. E4 z2 R
)
. d; l* ]; ^. M1 }7 i0 L# ?- j
)( [: d" t/ S9 f! t
)
& |: A$ U) M$ r. g
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值- D- l" f0 T( d& E" V P0 f3 T
;;计算用户可以指定的花形数量的上限
4 q, h: h3 `4 y
;;用于下一步检查用户指定的花形数量是否合理 x# g8 B) _' O/ d
(setq lg_length len
6 b' j/ x% Z+ G) l
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))$ _9 V% F# J* }3 L' L, {1 T
). u3 i- k, i4 q G: P; I
;;指定花形数量或A段最大长度" Z& {$ e* v. P$ ?. Q* z& u& t
;;如用户指定的是花形数量,则按用户指定的花形数量画图
5 m: Y3 ]# y! t, L- s
;;如用户指定的是A段最大长度% ?1 ^- h7 _$ [9 W
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图 t. P- \. ^% p8 M7 V; J& V/ `; U
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解( n8 i- N$ a) G/ ^5 W, S4 e* E
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解
1 ^) ?1 F# C0 B; I( z
(while (not n)7 q/ o" A% E! c3 v" g4 r
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
- C0 @' g' T" N% P0 O
(if lg_n r5 v1 D% ~' D g
;;存在默认值
$ L, W% k6 r" s# G8 U8 N; w
(progn
% R& F; B" E. H5 J4 o: }
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"
8 _/ n8 o- t0 ~
(initget 6 "l")
: ?+ q- z4 ?4 j
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<", ?1 N* D) ^( \8 N+ L0 N1 Q- ]
(rtos lg_n 2)
7 \/ L4 `. T- ^
">:"; m# }* z% D3 u; ` D
)
& `! @$ j4 {4 k
)9 L( n/ R/ u& m, o! \ S4 D5 @
)' Q; a8 N% x9 i X
;;空回车时花形数量使用默认值
: B7 a3 o4 L& l
(if (not n)( }# E9 P# D4 G! p6 w) B
(setq n lg_n)( M/ ^. A! ~% ^
)
$ M% f7 r, W5 i( O5 n
)
& G. ]7 K0 `3 C: G! \& n2 U( D% k
;;不存在默认值
; T0 f% `- @% Y* R: {4 U
(progn2 m- W/ L* P' p1 _
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"
5 q, |: X& i) q- y
(initget 7 "l")
% @* p3 { ~+ a0 {
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))2 B$ ]0 E" T% H) t
)
9 E- j* ~/ H# Y6 R
)
9 m: s( u9 ?+ J" y9 l0 r
;;检查用户输入的是花形数量值还是关键字2 R, e ]1 e1 c: S0 x2 O
(if (numberp n)& m- j; d# I! u
;;输入的是花形数量值9 d1 }3 C* |1 Q$ \
(if (> n nmax)
% ~( F4 D; K+ [: T' K1 v
;;当花形数量值大于上限时清空输入值重新指定
4 S5 X! n3 r, |2 F+ v
(progn
& ]! O9 j2 ~% P+ S. N
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))
# l1 l8 j& v3 Y ]- B
(setq n nil)
- m. O1 _# _# h0 i/ j p, K
)
5 ^. Y4 t% X4 Q) a+ p
;;当用户指定的花形数量合理时存入全局变量- B! X5 t7 {7 B$ N
;;以便用做下次输入的默认值0 Y8 j. R; k/ x
(setq lg_n n)
1 }( G5 `0 _9 R0 y
)
, l3 U" |; b; I. f
;;用户输入的是关键字' s3 B9 b! b* E, Q% a. P! z
;;指定A段最大长度
# }1 ]# c( M5 j* l
(progn
4 n8 ^3 e) w0 D! ~# ~5 q( K9 d6 h" |
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍' o b2 E3 A S3 T
;;否则可能导致无解
6 g0 _" u% g$ b' c
(while (not amax)
1 z9 |! o; t5 D9 s: Z* `$ N5 y
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值
' [/ E# b1 a7 W: A( D h, W
(if lg_amax
1 B* G3 D2 \: E. ^7 R" k
;;存在默认值
0 a6 U& F7 t# Q {! K G
(progn
( K; E% ^& {8 h% w' p; M
;;用户输入时接受空回车,不接受0和负数
! r- D$ N3 W8 O" k. c) s
(initget 6)
( f) L4 I4 l( w, ^
(setq amax (getdist basepoint
! f) g) l0 E6 E9 f
(strcat "\n指定A段最大长度<", k+ l) W- a8 P6 j" X
(rtos lg_amax 2)& [. G3 ~! j: r$ w" B
">:"
* D: ]; f; E/ A- g/ [
): q# a" k4 |1 ?+ j5 I4 c+ ]$ Q
)
% K; k S( ?; i
)5 M3 q2 n( P+ p) M) x( w, X7 M
;;空回车时A段最大长度使用默认值
% ?! [. ^) T4 S
(if (not amax)' f6 y0 Q& q/ [$ p; U, J+ ]7 h: h
(setq amax lg_amax)
7 m1 W' a" B. E
) G: s, F* y: m! A$ o; v9 D0 _
)
4 _6 R5 ?" ~8 g! T2 h1 e1 E- s; K
;;不存在默认值
F# C7 W ?( F; N. j7 C7 o- E
(progn
0 ?8 h& K: ~4 C: Q9 R8 x
;;用户输入时不接受空回车,0和负数% z) H9 M+ G4 t( M$ I( k& c" v- G4 G
(initget 7)
0 Z; d" h; W; E0 m8 c
(setq) O7 g9 B( n$ [( \2 U+ C; v
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
- X/ l2 E6 F7 c% y! m* K' _
)9 @0 q7 H2 z5 V
)
' w- d; E# |% F6 G
)
0 L C( t6 ?" s
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定% F3 D4 P) {' O$ j0 x6 [$ b' n
(if (< amax (* lg_width 1.5))
5 s: _8 O4 f0 k7 e% z. J% x1 F3 B
(progn
; [% x3 {6 e4 p& M4 K Z
(prompt (strcat "\n指定的A段最大长度不能小于"
, G$ h/ l& K/ `5 C) D' g$ c
(rtos (* lg_width 1.5) 2)
9 O9 u+ ~, f; s& L8 b/ A
)
" h% g2 h8 U1 S& ?* }* S, C9 A
)
( P7 {& u6 Y, S" z. n8 p9 Y
(setq amax nil)
) Q. U, X4 p. P3 ]! V
)8 w+ S! x& G" X0 M, S; B
)+ O4 k8 w+ H( ^, f! C
)0 ^5 @) G$ x# @5 D& H
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值
2 x, l4 R! x8 ^& B% Z
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1
# |1 g3 Z' r/ s- s! F
(setq
0 U" `2 e' N1 Y& }7 R6 M
lg_amax amax
" E" Q, j8 P1 J7 _0 Z9 N2 T' }/ f
n (1+ (/ (- len (* amax 2) lg_width)6 k/ Q# J6 T& m
(+ (* amax 2.5) (* lg_width 3))- I) p% Q/ }4 P5 y4 ^' Z4 Z
)
! z' Q8 k' z) V' ^: g
), k) u& e" s8 E) i+ f6 }
). F% O. ~, F# n! r
(if (> n (fix n))
! \+ o$ p: @9 J+ W' ]( D: G' J2 l
(setq n (1+ (fix n)))( f+ P e( Z0 D m; I" W/ p
)
/ `, f* P' l8 b
(if (< n 1)
! W3 m9 e% k5 ] T
(setq n 1)2 {! u6 d' k+ V' _- P% w) i
)
6 y/ R- ~& U' T6 E
)
- s7 {- a5 e* G& B* v
)
, }2 _, R C) q( H# O: u
)& ` h6 q+ j! b, A q( ]7 k6 d
;;画图8 D" p5 |: m/ T% c( H* k: n" r6 t* `2 p
;;记住原来的对象捕捉设置4 r O! [* G \& Y0 O
;;按花形数量计算A值
/ j/ ~/ Q- {% b$ d3 J- d6 c
(setq, Q9 l* m0 ?. l# Y
oldosmode (getvar "osmode")8 R* l1 ?* Z, b
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))
7 V* o, i) @5 v4 T6 |8 y
(+ (* (1- n) 2.5) 2)
3 b* M) l. c& Y& O/ Z) j) v$ C, l1 V
)
9 L& H5 ?5 B9 v* E2 I$ Z2 y+ l
)
7 t+ O: J! [. M& `1 `- P; ^' _
;;暂时关闭对象捕捉
6 K3 u! f8 _/ Q7 t- J4 p
(setvar "osmode" 0)
" ]/ ^1 D0 ?7 r3 l9 y
;;屏蔽命令回显2 N! J7 |5 B# N. u; i8 G
(setvar "CMDECHO" 0)
" I4 D, D5 o" d0 Z1 o' D
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形. S' o' a8 q- w1 o, N. U
(command "rectang"2 P' H) e4 a% n% k' O3 U
basepoint
- z6 x- e( @+ ]9 V3 w- j h% ?
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high)). {; u9 B6 G$ u, u7 D+ Y5 n1 W& x
)7 Q: X% t f& O$ b( w' U) T# b$ H
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
% P0 {1 x1 V8 e, h/ c p
(command "rectang"6 s& t3 [; u- f2 i5 m( y/ }3 a2 a
(list (- (car basepoint) lg_width)
& X0 n' t* [0 P9 e' O, y3 G
(- (cadr basepoint) lg_width)/ x( O2 }! A; @& A6 W+ L" s& r
)
7 c7 u D5 d+ h$ X
(list (+ (car basepoint) len lg_width)
* g+ c, ~$ x0 R' g& t: }$ @
(+ (cadr basepoint) lg_high lg_width)
; Y8 G r* T. }- b( O! R
)5 ~( Y8 J4 v+ G7 V; E$ l0 h
)
: Y0 \4 g9 o7 o. ]" s3 i5 w; |' O
;;将指定点移到其右侧A距离处3 `* X/ o) O" t/ ~5 d& h6 r
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))
( L: u) k4 e& g3 f
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆4 \' K4 }' d, F% M2 l
(command "rectang"3 o, }: f& O8 |2 j2 b7 f
basepoint$ r: R( d: L; u; d" F! }- e
(list (+ (car basepoint) lg_width)
3 P a) |! m' d* I
(+ (cadr basepoint) lg_high)
" ]' W+ X3 [" ^* Y/ w, ]6 @
)& M9 R% j1 d0 m! k2 `2 D
)3 I( P h: f. p; h5 b) M
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
! p% ~& e2 S) z1 v o, e
(repeat (1- n)5 J w/ Q' v) k) ]* H) H
(setq
4 O5 _9 m4 a M1 {
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
# ?3 O( O5 _* ]+ F) G5 @4 C
)
! K; f, L: n) O
(command "rectang"5 ?/ i' [# R) j w6 z
basepoint; M3 D/ q. V6 Y/ H1 o& u( u
(list (+ (car basepoint) lg_width)
$ p0 ?: g1 b$ _+ f" X1 j
(+ (cadr basepoint) lg_high)
; C) G; k V7 m3 g& @. W
)5 [1 T% \* {! M* r3 b
); N3 y( N ], K1 V: y8 J
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width); q) U5 j1 ?& k
(cadr basepoint)
3 L' V9 Z0 }+ d
)" N9 ?' e" i$ M4 `
)
" U) c! Q6 o9 K& L. E
(command "rectang"
. j# f: J+ \. T$ i
basepoint
* x% Y: M/ V8 J4 s( \% S' \* h2 S
(list (+ (car basepoint) lg_width)) u4 ]) m) Q7 ]- @
(+ (cadr basepoint) lg_high)1 O- o: u% C$ Y; ?# a
)- @2 @) U, d) P W
)% a6 j6 {/ x/ a% S5 T1 h0 `6 j
(setq5 t3 U: M g- N) S) l
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
4 | d1 B( r' y) ^% @, G0 Q
)# B+ h5 s5 @( f
(command "rectang"8 F9 N$ A( `7 A' R% w2 N
basepoint7 ^( `; p' v* T" H+ n& o# B
(list (+ (car basepoint) lg_width)! ~" v8 m1 p) U3 \& S9 I
(+ (cadr basepoint) lg_high)/ M) f6 v7 I: f5 K
)
' G* `; _( v8 F8 k6 B
)/ J0 ~* n; P% V# H. P8 b5 x
)" O, {: Y& n% K) r! D& }9 \4 I
;;恢复对象捕捉设置( b# C' E- K$ j
(setvar "osmode" oldosmode)4 j& V8 ]. _/ A i5 E7 J; f
;;打开命令回显
% ?% B1 `: M; {- j! j' B
(setvar "CMDECHO" 1)$ v1 ~1 k% b+ r, v+ A5 C, y8 T
(princ)
0 {" w' W1 U7 m4 j! g( j1 V
)
# s8 j+ z1 \% }# E

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源