作图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 发表
9 k5 e3 ]% V! _* z" a+ @直线分段方式，a=a=2b: ~' l( s! w9 o3 B9 l# X
5 _4 u- G; f5 R+ P3 R

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表
% X8 \! y- b H0 ]3 q8 R+ q! J/ O% h" M# W. \
距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

% p, m4 J. V$ J, z
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)
9 t3 z( ~6 B- o4 h
;;设置栏杆高度和方钢宽度默认值! {0 J J U' a9 j, [8 h) V
(if (not lg_high)) O& \" |5 @4 f3 a6 M, d0 J" B
(setq lg_high 5006 S/ P, W! V3 @
lg_width 14
4 \0 t* |/ K, x2 e6 {* D$ u
)
5 I/ [/ t( z# G/ B: T
)1 W1 M$ @3 h. o u$ J, A, X
;;指定图形插入点
' |8 F; l' A( k' Z
;;不接受空回车
( h9 g) `* [, @, x1 n/ B6 m9 p
(initget 1) a7 r) B) W/ P9 Q0 ~3 Z1 }7 J
(setq basepoint (getpoint "\n指定插入点:"))" @ l- O% E; a$ b5 F4 }
;;指定栏杆长度和栏杆高度和(或)方钢宽度
: o6 K: B- Q( Z1 F8 d: ~
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定
. v# c9 M; N/ l- N
;;用关键字指定栏杆高度和(或)方钢宽度后# z9 J- s, V6 L/ T9 P. z
;;需要重复运行指定栏杆长度的代码段
# [# s. u8 x# ~5 ?8 E9 O
(while (not len)& A7 L5 N( S- ?) V. E
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值
& h% N; o" X8 X8 n9 W$ p
(if lg_length
\+ {3 o7 z3 O
;;存在默认值8 Y5 O! v* `2 ~* s& M% b# n" `
(progn
: B& F$ I9 F, S7 ?
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"5 ^7 r: c! S) W' ^$ B
(initget 6 "h w")
# j$ O* y4 b3 ~9 J$ O
(setq len (getdist basepoint. K/ e, n- G1 o9 Z+ z$ E2 `2 ]" O
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"
) d6 g% L+ h. q0 E) S
(rtos lg_length 2)( V$ G; @- j* V6 H3 Z
">:") r8 |- m/ \/ U8 V! d ]
)
* n& f7 G8 a- k1 ~, R
)
1 z& @9 c% R$ `, Z# a
)+ Z4 p( U) a/ J9 V- e3 U
;;空回车时栏杆长度使用默认值( r- K, q8 H ]
(if (not len)
) t; P, O1 B" ^+ O. P" N _( M* J0 {
(setq len lg_length)
3 A4 V3 o% _9 S
)" g) P/ H" M& @9 y6 ^
)+ H1 _7 ^3 N( m1 @. u9 r/ j2 V
;;不存在默认值% F" E4 ~4 h: C2 P/ a9 Q3 i# O
(progn
5 P0 g/ Q. s4 k! Z" R( b
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
5 I* L7 i6 b3 z8 o7 J' ]
(initget 7 "h w")
, l! E4 C8 v0 r3 J2 y- y9 u
(setq
1 Q3 ^/ R9 k" k! ?1 t6 K
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")
0 g; `: F; d; ^& k
)1 m, \: a( E8 G/ \8 B
)2 ?2 f0 I2 a1 h( S
)
! p# j+ [* \1 g
;;检查用户输入的是长度值还是关键字
1 @# S6 ~ l- c" c: d1 w& P6 m5 M
(if (numberp len)
1 p2 L$ j' J' }
;;输入的是长度值
- f) p+ C. L, q
(if (< len lg_width)1 b' N h. u' C1 z1 [7 C
;;当长度值小于方钢宽度时清空输入值重新指定6 m( D3 \0 g+ Z; D. u
(progn
6 u+ v, A/ m- M. J# w# [$ Q
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))5 c; G4 Y, Q9 X$ b) W
(setq len nil). }# \: X" w3 Z, J3 Y
)
" N V2 ^# a$ e
)
8 |1 v7 b3 F; a* G# p7 D
;;输入的是关键字2 C4 P' f+ r G
(progn
2 y+ |3 o2 j% d4 u& o
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值
! E9 y% G6 ~! E! Z, ^$ }. X
;;用户输入时接受空回车,不接受0和负数
8 g2 {: M' T* A) Y$ e: ~' P
(initget 6): m% r8 K3 S5 T# J" \- ]; @" M
;;检查用户输入的关键字是"H"还是"W"
0 B5 u4 B4 _8 S* d0 z* v& ~3 N! X
(if (= len "h")
;;用户输入的关键字是"H",指定高度% g! U2 D. c4 n u/ F% f! `! d
(progn1 U* U+ {# S$ E( _; ]
(setq high6 A1 h9 s. E0 U7 {1 {$ g
(getdist basepoint
0 q* N3 ^% ?' T
(strcat "\n指定高度<" (rtos lg_high 2) ">:")
; @$ l) p0 V9 g) H$ S! S
)
6 R( O7 B* B" Z8 c) T: f, H5 m+ M
)
" v' f( T% t5 }& J, o/ b2 }
;;用户输入新的高度时修改默认值! K2 s" D2 y. d" a7 M" O/ e! z
(if high" d0 G* Z6 m, Y8 K- D
(setq lg_high high)2 ^- X& U2 g* J$ F3 _
)) P2 v* l; Q9 { `; u0 @/ J
); O% V3 G" j, g& l! K) h
;;用户输入的关键字是"W",指定方钢宽度1 p) K; n) r9 Q& f
(progn5 z3 l/ G f3 q# y$ ~' V: a
(setq width
% ~6 [1 A6 @1 H; I; y
(getdist+ T7 F; b; n. E
basepoint. ]" Q% Q0 T& D E
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")) u- F% x$ `& Q0 l
)
4 z+ m1 y9 Y, c3 M: W" v) z) g
)! O; }9 f3 v; W- e
;;用户输入新的方钢宽度时修改默认值
# _9 Y* f5 d/ A _1 h6 J
(if width: C& g% \$ R/ ?/ C
(setq lg_width width)
h/ r" L' | t5 q( }1 L2 _
)8 K" M% t+ m/ |( e8 |) C
)6 X( V9 j9 N- s# Q3 Z7 e
): k3 h6 k ?' g+ I5 e6 V" g" T8 _
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度
/ m: f3 V8 N' O5 S: q
(setq len nil)
3 [2 j% Y- v# e _( j
)
( O. t( d8 j$ C" ]
)+ r# P! o. x( R& a9 M) v: x" `7 O
)' C8 j( d: J0 q' ]; C
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
) @: c9 X+ [% t* `7 Y; x0 b
;;计算用户可以指定的花形数量的上限6 {1 c7 C o0 R. _4 P) W# Z- }
;;用于下一步检查用户指定的花形数量是否合理6 p. y( _! x& l$ m& N7 `
(setq lg_length len* S9 }: o& G* Q6 g/ \
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
- K9 F7 d5 C2 m) v' P- c
)
3 L3 {" J1 [0 O$ ]8 d4 O8 O3 @
;;指定花形数量或A段最大长度
8 M- T0 _0 w% o" [/ C9 ?6 T
;;如用户指定的是花形数量,则按用户指定的花形数量画图
" j) E/ A4 V8 s+ M' W- L
;;如用户指定的是A段最大长度# }* G' W* G4 R
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图! f/ g' i1 r2 V6 S' [" x" g
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解
( R+ E4 h% ?* U; f- H1 |9 h
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解
0 o2 p7 O' }5 Q
(while (not n); x9 P% J% h Q M) X! u
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值& y$ i m/ {1 M! H
(if lg_n: T2 k% X' u# B' p
;;存在默认值& j7 B7 \; x5 Q& ]! v
(progn: b+ O- o) M0 C$ I
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"
) s. y# I1 @' L* I8 f" d Y$ E
(initget 6 "l")1 J% r& y1 r( E7 |8 h( |
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"0 A: H' @# X& Z7 d0 U3 m1 t
(rtos lg_n 2): k$ N2 |/ S5 N+ |
">:"
. x6 L2 m6 A9 ~; J! _- S
)* a3 t/ {) g% a4 B) K6 N w- h
)% |4 j8 u# J5 N9 {
)% X! c" h$ @* g+ D) z* X
;;空回车时花形数量使用默认值
" ^$ |$ u# ]' e9 d6 |: ~
(if (not n)
+ V$ D! Y/ I ^2 R- I
(setq n lg_n)8 J- {3 ` W, X a4 X
)8 S7 J h \& b2 F$ ^
)2 R) E; G- e* a- Q+ N7 |
;;不存在默认值1 g8 H' @/ A! l& S5 `/ s6 L
(progn
+ A. d# J: ^* \
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"# u! I; Q+ B" E# p |# f
(initget 7 "l"). S3 D) O! u4 Q$ i1 [
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))
" W2 H" I/ \6 M& N: B
)
! E7 Q# I/ u+ V1 ]5 ?) h4 U! K( N
)
$ c5 c4 h, s" e( s
;;检查用户输入的是花形数量值还是关键字8 H" n" A; H7 \ u8 |" w
(if (numberp n)
: u' A' q! t4 T
;;输入的是花形数量值0 G3 N- D/ {3 ]
(if (> n nmax)
8 ^! C2 A8 G0 S+ ? p, J0 S
;;当花形数量值大于上限时清空输入值重新指定
1 A, q3 ?) f) Z+ r
(progn" D% ?7 c: F5 U Z
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))$ ]" F) W9 U; Z/ I" [
(setq n nil)
' n8 h9 f) U; v, k$ G
)
1 J; a! t! k, q' d7 _
;;当用户指定的花形数量合理时存入全局变量! J3 y* U8 o1 [, G. P4 F9 H0 v
;;以便用做下次输入的默认值: g! @' ~9 o5 k8 f
(setq lg_n n)
# e2 E. T9 L/ Y" F5 I
)
' B- C" ^! G M+ C
;;用户输入的是关键字$ R' S- G) ~& ]0 e- I$ ?5 ~
;;指定A段最大长度
. O; ^" \" V3 j! m8 C# o$ o
(progn ^: V" O+ W" |' g
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍
% ~3 s: x9 U) l$ `" z
;;否则可能导致无解
3 X$ ]9 P# S/ I" Q( Z& s$ @4 k
(while (not amax)
* ]& w5 @; {2 p; m
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值
0 r* s& M7 J; e; Y, |6 R$ T
(if lg_amax
7 j+ E4 n% e; N1 {9 ^
;;存在默认值& p) g( Q, I. T/ Y- I. m) `. E! z+ M
(progn
. H' ~# X/ G" l/ h H k$ n
;;用户输入时接受空回车,不接受0和负数
" P- q: g$ P3 w# s
(initget 6)
' B7 U+ `6 [" X1 ]2 D
(setq amax (getdist basepoint
' N# t! M$ t9 F; {5 x& D
(strcat "\n指定A段最大长度<"
7 v( n+ k5 ?0 v2 D
(rtos lg_amax 2)
- o }" o! ~" I( J2 U
">:"6 Q4 _# d: {9 h* g; k
)* T$ l5 s7 e) K( p H ?8 ? Q
)
3 [% c0 d' L' f8 N$ V
): Y4 s$ N g6 D: }4 R
;;空回车时A段最大长度使用默认值- X* ]: w# P& E. x% w! O3 P! _
(if (not amax)+ R, r2 G1 Z$ B# s
(setq amax lg_amax)
9 B3 Y% p+ x8 m3 }2 _, N3 m# m5 P$ X
)$ v- ?$ Z$ O5 l2 p* M
)
9 w' |! _& Q1 n4 q- |
;;不存在默认值
b2 i; A% ?* S% e
(progn
8 o* m) Y8 c3 k+ ?' `0 h
;;用户输入时不接受空回车,0和负数: z, Q. e. i1 {$ {# }
(initget 7)
. k& M! Y0 Y+ ]
(setq
* V* P5 }: J' K# P* E& e/ J- f
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
3 o* O" O+ w+ x5 n
)7 R% L- [7 I* D, U e
): ], Q7 a( w) f3 l
)
) g+ P# m7 e c
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
+ F/ O. S5 f' s, y$ M
(if (< amax (* lg_width 1.5))
. H' ^. r% O8 g" m; v
(progn
6 w$ C6 c# r& R( r
(prompt (strcat "\n指定的A段最大长度不能小于"& B2 Z) ^& N& J. }1 y2 L
(rtos (* lg_width 1.5) 2)$ M: S& I: z) i& M1 h
)
1 z4 [* L% f( ~; _
)
4 b: Z. V. |3 Y
(setq amax nil)
d9 |( B* @. t/ C
); o, c7 C* V4 {' R
)9 S( b, m' S4 y+ j4 D
), m9 `8 H) h0 f: Y7 f: {7 Y
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值" k7 _7 O4 [- b8 d+ N; z1 f
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为15 G, m, B# Q& G1 R6 D# A7 z
(setq
$ N- v+ U. ~& a U/ j% t9 O- t
lg_amax amax
2 n" E+ A# k, R1 a7 q, E5 x. Q
n (1+ (/ (- len (* amax 2) lg_width)9 V9 D( r7 G* t! l
(+ (* amax 2.5) (* lg_width 3))% ]/ E# X! K$ E5 | D
)9 l; b) g2 X, `( @8 K
)
0 B/ C" j7 M8 N" y0 S8 ~
)- E- d5 F6 d" D
(if (> n (fix n))
0 O% v7 U8 q0 V$ v8 A! t" Q
(setq n (1+ (fix n)))7 j( w \: Z, I0 V3 k; V" [
)$ o& {; E O! C3 q4 b
(if (< n 1)
# y7 p; w" B9 E# J% x4 j1 X7 u
(setq n 1)
9 A1 I% R6 a7 p, r8 g0 R
)4 J% o: J& Q; R2 n, `7 K
)8 N8 C5 \% Z# Z0 k
)5 b+ E n$ Q& |" L" P4 @
)
( w. h& J6 g: L& v
;;画图0 A- R5 [- Y, h: H! I
;;记住原来的对象捕捉设置& w7 h. P: O; n, y
;;按花形数量计算A值; N# P5 I d* j8 i: p# X# Q
(setq/ i7 Q3 P3 s+ @" \. I
oldosmode (getvar "osmode")
) m5 j% [/ Q2 r1 n! H
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))
9 _3 u$ i+ `4 H5 D
(+ (* (1- n) 2.5) 2); c- w0 }( K% {2 k% C5 r
)
1 P/ E0 e% P3 T) C. P7 n3 s. j
)1 z/ j2 Q' m A
;;暂时关闭对象捕捉0 o! r9 M2 w9 {' j
(setvar "osmode" 0)( W3 I/ n9 i& y. N4 W3 z3 F# p
;;屏蔽命令回显1 V5 u) K) c* K$ | y1 r% \
(setvar "CMDECHO" 0)
& V( h! L2 Q/ S) B/ B
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形% X! b j; v0 A8 \$ l- B' Z! h) o
(command "rectang"
+ V, {; p) Q' m
basepoint
3 C+ L( f- O ?) S/ V
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high)). r6 A/ S, e2 z
)4 p' S: h9 d: n, V& I7 M
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
. b2 k P; e$ L" k |0 A4 k
(command "rectang"* Z0 E0 ]+ T) ]! `) ]
(list (- (car basepoint) lg_width)
8 b5 x9 W+ [/ ]) ~0 Z6 N9 [ k
(- (cadr basepoint) lg_width)& c/ `9 a# U6 q L$ E
)
/ l& R$ U: s4 P0 ]3 R2 A
(list (+ (car basepoint) len lg_width)
* w9 Q7 j) u: j z% V3 u
(+ (cadr basepoint) lg_high lg_width)
9 b" H% B& C% E, T; E
)
) h( W$ x+ k5 \8 H3 J) s
)) g6 r1 m; \- b. _6 T
;;将指定点移到其右侧A距离处$ ~. i2 U. _0 v; {4 S% |2 X
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))
$ D2 M; J" ?, s1 E( ^& q
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆* w! |" ]* T* [
(command "rectang"' H- m& }8 y$ o
basepoint5 }! h: ?; E+ j$ P6 `
(list (+ (car basepoint) lg_width)
1 _5 a4 G3 D( H
(+ (cadr basepoint) lg_high)
* {* N p$ U3 j; f1 \
)% [: ?' P d; |9 [# \ A
)5 [# }) k7 X; g8 ]6 v# C9 \+ h. `
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
" r1 M" u% U+ [- w/ J
(repeat (1- n)
' s, P' S3 A, i* h( N S0 [6 Q7 b
(setq
* F6 j, U& R1 a% a2 i
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))
! e; \* Q6 x7 [/ n. x5 { `
)
1 p8 e2 ~# k) D( C7 o* d- n2 O
(command "rectang"
- W1 `$ l! ]3 o# }
basepoint
& Q) N0 Y4 k: {6 W+ m# U! ] k5 q
(list (+ (car basepoint) lg_width)
4 H$ Q A& {, q& w- C
(+ (cadr basepoint) lg_high)! w& p2 G I9 I. u. |9 K- }
)' ~1 n* T6 n% Z, W+ u1 o
)! [# |. t, W% A
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)
' I2 t3 G$ j" z- M
(cadr basepoint): d; q! U2 S$ ^9 B0 P0 Q8 L3 S
)! V2 j- N0 {+ [
)- j( @. I5 n7 z! e3 d
(command "rectang"& ]) l% y. F7 k/ Y" C
basepoint1 S. a8 b9 Y" n9 i% x2 W/ z
(list (+ (car basepoint) lg_width)
: O7 F# c8 o, t& M! Q
(+ (cadr basepoint) lg_high)
+ ~3 o6 ]& C# p
)
2 E$ c: e0 ` B5 U I
)0 y4 Z6 b. R7 r
(setq. i6 k# N; m4 b u
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint)); P( K8 \1 L4 z3 G x
)
: W0 H. f' _: s* I& f) }( t
(command "rectang"0 U/ V( c# v4 h- L0 }6 z7 ]9 Z8 G
basepoint) P1 M7 G; s H U. I3 Z
(list (+ (car basepoint) lg_width)
( R) k4 z3 i5 F [/ B. E; | _
(+ (cadr basepoint) lg_high)
5 [' B7 T6 e" ~# B
)
" k+ o: m4 s* _! h
)" M0 I- E" X" w1 v1 H9 y6 ~, N
)
$ ~' f' D% x" M) I% h! m2 x
;;恢复对象捕捉设置
|; `& F7 ?$ W8 X$ h
(setvar "osmode" oldosmode)& B7 u7 V0 `1 u
;;打开命令回显# U; d l# y3 o- C1 i" l$ ?0 `
(setvar "CMDECHO" 1): e9 U" `7 \& {7 i7 ~
(princ)3 d# D, s7 S8 S7 x
)
7 M" J* }# ~3 o

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源