作图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 发表
- w/ u8 f. H+ L) F) y/ z直线分段方式，a=a=2b

8 K! w' L. C( T9 w- b9 P5 s

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表 # e% }) T, i1 j& t/ }* o5 M2 f
0 y/ [4 b5 N1 }
距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

# @7 ^( W6 [& Z1 I5 q3 {
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)
# v6 K! o: P3 B) [- G
;;设置栏杆高度和方钢宽度默认值% M) \" W& Q, E1 ~/ P( j9 x3 F
(if (not lg_high)
: @$ E1 v% v1 b/ Y
(setq lg_high 500
8 S5 A, B- F* m% [1 W" O
lg_width 14
, E" Q! ^" B3 T( T
); P- U) N& ]- E7 j* J+ M
)
9 Z2 N' [+ x$ k8 k5 [$ h$ {. H
;;指定图形插入点6 a9 R- b8 s. ~" i% z7 C
;;不接受空回车
; U$ f9 I8 _7 b- H2 a* A
(initget 1)
8 i. l; s# a0 F% Q% N
(setq basepoint (getpoint "\n指定插入点:"))8 H e3 W, M7 F& n6 Y3 \# U
;;指定栏杆长度和栏杆高度和(或)方钢宽度- c' _& f. V# }1 }- z) q
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定
& Z# Y2 d" M, r; B. ~- H6 i
;;用关键字指定栏杆高度和(或)方钢宽度后
. l" M* c& z! ^$ c, p# Q3 b
;;需要重复运行指定栏杆长度的代码段
7 @. P/ U% g5 K% }, r- ]
(while (not len)
4 O- D/ _& l& S' _7 R
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值
" T. {# |5 _2 U7 D$ {: ]" n9 o
(if lg_length
! ?0 N6 o" H9 m* Z# \. G9 D
;;存在默认值
7 u8 Q5 _& Z9 d
(progn
. J; ^6 j3 l& i; V* D6 `4 i
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"6 U: c3 w4 b# h, ~8 J$ H
(initget 6 "h w")
& `" \' l' g1 ?# w; \9 x
(setq len (getdist basepoint) ^0 s# I6 Z& M+ `
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"" Q% U+ Z# l7 D+ u6 H
(rtos lg_length 2)
" f2 s+ x5 i* b4 y
">:"9 h" j6 J, p" b5 Q `$ }
)* e3 A1 G; Z) d/ N3 }0 ]% \
)! J+ M9 U; I1 i9 X4 |7 q
)3 g5 ?: q) Q- i
;;空回车时栏杆长度使用默认值/ m6 _0 J- {9 \6 Z K
(if (not len)7 f; t! O# z9 U* S- c2 N
(setq len lg_length)- `) X1 q) F% Y. i
)
2 `0 e* b, t3 ~. ]7 P) M! o
)1 ~* h. r5 z g
;;不存在默认值
; Y# P& n* Y( a$ K5 P
(progn
& [1 i9 W& c6 c! Y/ t I, L
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W": T4 w# b/ N8 q3 V+ L$ [$ b
(initget 7 "h w")
- n1 R9 p) S* V& d; s) E
(setq0 J+ O6 l# V3 e0 ^$ G1 E* {+ r
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")) j; c8 t1 ? t/ S3 I
) n* T1 V3 z* i
)8 O) B) b* `! D4 \0 F* M' N% H3 V
): ?, V2 N- P$ c" ^" A2 b
;;检查用户输入的是长度值还是关键字, d+ F% s n* z* R& [# y1 A+ r
(if (numberp len)
* G# }- q0 H; S4 o
;;输入的是长度值
; K$ f* b# ?4 c4 Z# o( x
(if (< len lg_width)" c7 F0 k: G2 ? d! M' q. ?
;;当长度值小于方钢宽度时清空输入值重新指定! [ n- x$ A f- m! s% f8 i
(progn a7 O; P x+ }- N- V& M3 }
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))
" c( Z0 O. O' ~
(setq len nil)
{1 E* ?: r- G
); D# D5 l" ]* z, | N# G
)& F$ w# o2 @4 l8 c9 s
;;输入的是关键字
% U2 }2 |% m) u* c3 C1 k2 W
(progn7 a/ U8 j$ n" L" N
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值$ j$ _* Y F4 i0 `" b7 U
;;用户输入时接受空回车,不接受0和负数; H% w) W! K: d3 J- k
(initget 6)1 g; f0 s2 m5 {; ?- j
;;检查用户输入的关键字是"H"还是"W"2 @; C( U; J; ?: l8 i( r9 X
(if (= len "h")
4 [( D; u6 c' \0 u* D& r; p" l
;;用户输入的关键字是"H",指定高度
+ A: K0 t$ O0 ]) o
(progn* e! O' L8 f: _) Y
(setq high
/ P5 U9 z- u" N t2 z/ a4 P! N1 z
(getdist basepoint. h' Y7 e8 \+ U- f1 C, C6 M
(strcat "\n指定高度<" (rtos lg_high 2) ">:")
2 l+ B! r6 Y' p
)
9 K; G# ~# g7 o& x4 _3 [; K+ m
)
c6 F% Y5 m8 S% R n
;;用户输入新的高度时修改默认值
" U5 v( N8 u7 d
(if high
8 R0 T4 D, I: i7 R/ F
(setq lg_high high), F4 i$ v% F3 b2 N. M
)- }: e! O4 K) U6 W4 K) r X' g
)
- ^) {* c9 H3 ^
;;用户输入的关键字是"W",指定方钢宽度$ ]; a: @9 f) ~) o0 D
(progn3 F- g8 c2 ]7 V) Y/ z5 J
(setq width
5 S; T( A+ O! w
(getdist
J1 { J' l: T& |, O( B
basepoint
4 j) j+ V1 }( [, K
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")
1 E% F& ^# ~5 X( w
)/ J4 l; f6 t) m, e/ f* h
)
, z9 ?( G5 P' d9 V& l( d
;;用户输入新的方钢宽度时修改默认值
6 i2 r3 n' k% p! U! ?6 K' k
(if width
2 \ V( x ~$ ~" _
(setq lg_width width)% z7 N( C0 k0 f2 f- i5 s5 F
)( p, V5 B4 I4 b+ E3 Z, G: ^5 K# K
)
) W. B& R% [; Z) S7 ^# o& i2 d
)
' G; X* c! Q0 a: }/ w+ r
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度. D, {: Q- h/ P1 p. x3 C
(setq len nil)
9 C2 E. r) B* g: R9 E
)
6 X4 X. g6 k/ n( C# N" F) O
)' G5 m/ s% ?. x* W% G' S# _) E
)8 }* E- B0 d1 |) e
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值
% j6 `: | L; R
;;计算用户可以指定的花形数量的上限- u P* ], i2 I3 _% V- b; ^
;;用于下一步检查用户指定的花形数量是否合理( g& L& q, ^( M; g) U$ z
(setq lg_length len$ z1 m( m( h, I5 @& b( C4 G$ M1 c O
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))2 n* _8 o8 ~" L+ v; ]& I/ ^- I: }
)0 l+ ?/ k, P, K* D: ?# y* b4 z8 @
;;指定花形数量或A段最大长度, ]: V7 d7 j# ?3 {
;;如用户指定的是花形数量,则按用户指定的花形数量画图
; M3 z& {6 T' e+ L
;;如用户指定的是A段最大长度
* [/ X; d8 f4 G" ~# q3 h: w
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图
; k2 x) W/ i* W# e! ~; h
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解2 I/ {/ o0 r c9 W/ f7 z
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解
6 h1 u1 Z& c6 k& G
(while (not n)
* r1 v) k& [ L: p4 j, O! P
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值
& y5 {& ^( T3 s3 n" T8 B
(if lg_n' r/ d- A# b- M0 v5 G; X+ L
;;存在默认值
+ Z" i$ C* h! M" Z; @; ^
(progn* q4 I% ]# w: T% c
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"
0 X% T& q1 h# T; j' j
(initget 6 "l"), H/ A: ~& v' E3 z
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
* @; N6 U' t2 K" | N; |
(rtos lg_n 2)5 F4 b. k5 J& o& x3 V( u
">:"
0 ]# C. m" F( R+ ]4 P
)2 X, L4 ?9 n' x! q% G+ Z- F
)
3 r$ Y! k1 ]5 x. x) [# S' t1 f# w
)
( r3 v1 { y/ n6 }5 ^, R/ U
;;空回车时花形数量使用默认值% Y" R6 y5 a5 T# e+ _( t/ c, O( O
(if (not n)/ a% v* o. j+ {9 j7 t, K
(setq n lg_n)6 X3 `$ I$ U* S1 j) B0 \$ F
)
! R: }2 C3 M$ L6 U8 }3 g
)
$ y2 a5 l4 e- b8 O/ j3 t
;;不存在默认值
0 ]& H9 l: \' j8 f# {- S
(progn
# D3 g, F, `& U+ z, o% ]/ D5 R
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"0 R5 y4 z3 F/ g }/ Q7 D
(initget 7 "l")
7 K2 y- P, ~( w5 C- ^
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))) o% T; [+ x, R& b/ y: c
)
, [' x& T' e/ K8 l; a
)
( {& q0 y2 n2 }' c+ l5 k1 G
;;检查用户输入的是花形数量值还是关键字
: q; e* ~8 j# q1 T; l
(if (numberp n)8 v0 [0 T$ R, I2 B' e* j3 t
;;输入的是花形数量值- A3 j$ A) e( M1 M
(if (> n nmax)
$ l2 W A3 \6 [3 ]" J
;;当花形数量值大于上限时清空输入值重新指定
" p9 q7 b$ P6 s# x9 b$ F# [
(progn
( x N6 Z$ f5 ?, l
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))% B- l* S# w8 F3 X' ^
(setq n nil)1 E9 b0 Q6 O" M5 a
)- [" F% t5 _$ ^$ Q, Y; x, ]
;;当用户指定的花形数量合理时存入全局变量$ N) z; _# I1 m9 D" _( \! e" M
;;以便用做下次输入的默认值 }* m( t$ _6 C# l4 l6 y4 U q
(setq lg_n n)
9 }" y3 X1 t+ o- O0 x
)
9 T3 ]2 |. O! u; Q6 G% d3 }
;;用户输入的是关键字" I" u* a: c) m7 |$ ~. l. `6 K
;;指定A段最大长度
[. s4 V" L: }& U0 d6 V6 k
(progn" D7 m4 i( z( G, O
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍 x: M8 d4 w N
;;否则可能导致无解; _% R5 p4 L& b" U9 i# J) L8 _
(while (not amax)0 O% B% q G1 ~
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值2 l& }9 R/ a# s, Z6 N7 o
(if lg_amax+ ?% x* G# t$ c
;;存在默认值* ^0 p& K) h. V- o# {- B
(progn' w& M6 ~7 r# |& W$ F
;;用户输入时接受空回车,不接受0和负数
* P1 t3 i; U/ @& W
(initget 6); Y; s4 C- Q" Z! a! d/ N
(setq amax (getdist basepoint: \1 `6 q( Z' h5 t& U, R
(strcat "\n指定A段最大长度<"
8 L8 n* d5 m. W y$ o- ]7 P; d
(rtos lg_amax 2)1 B' L" s% |) w# d6 d( I4 X
">:"
. {: h6 J1 f# T
)
# D% f2 M2 B% F
)
, n4 s6 ?' s1 z" x% t* u9 |1 p
)' }+ w! [# Y% Z N# \
;;空回车时A段最大长度使用默认值: \( n+ Z- G% C
(if (not amax)( ? k, P8 n& F l
(setq amax lg_amax)$ A+ r) S1 K1 [* p
)
0 v3 f' l( u6 W$ I; J9 b
)
2 ?! Y. e1 y/ J) p# b
;;不存在默认值7 J0 S& {$ O. }9 I+ P9 U2 }& c
(progn
5 \% `2 k& l) `6 u. ?
;;用户输入时不接受空回车,0和负数- F, N3 f$ j- r" b6 G6 }# X8 g0 y
(initget 7)3 n/ a8 ] F( i1 Q, u5 W
(setq, a* l1 }( {* d4 {4 x" B
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
- P/ J+ j/ G$ y F4 G
)" u- l* ^$ r2 V1 N% A; j2 Y; T
)
! ~6 Q3 F1 Z9 |5 |5 @4 U# _
)
: b3 k1 n2 f* F0 i
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定+ M2 l/ P" n( e$ K& v% `+ _
(if (< amax (* lg_width 1.5))$ O& Z% Q. `& d0 \1 U
(progn% c- r1 K5 `' E! _
(prompt (strcat "\n指定的A段最大长度不能小于"
1 d1 _! S6 n5 M* R& z
(rtos (* lg_width 1.5) 2)( a r7 G0 |/ h
)* p4 q: n! r$ R
). z$ E: k6 i5 |) c5 j8 \6 u: @
(setq amax nil)
/ @+ M. `) V( Z
)* l( | J) y+ R" s3 ]1 a+ L5 y
)# H+ `; t# y0 B
)
* U, s+ [) q& l4 t$ p5 Z$ {
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值
# J' ?. d9 P" b. d8 \
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1
1 i" Z. _: Y4 W( d s
(setq. \! w3 ~4 A. Y! @: l! l
lg_amax amax
. h& Z' h) d# \# X$ a; A9 y
n (1+ (/ (- len (* amax 2) lg_width)& Z# b/ ~- P( R1 M8 Q6 `
(+ (* amax 2.5) (* lg_width 3))& c: h( U' H& l; S+ x8 S
)& i3 p' v- Z7 u+ I
)
( {$ @1 @6 S0 C; ^ M4 j% I) C' d
); Z. h! f5 ^9 f) a
(if (> n (fix n))
6 H3 F! |/ w1 Y0 m# K
(setq n (1+ (fix n)))
4 j/ c L4 s0 |) h$ m$ b! f! `1 Z
)- Q- S8 p. D$ f# Y' E
(if (< n 1)0 f+ Z$ Z9 `4 e: j, \; \6 g
(setq n 1)+ a5 ~' n, ]- A+ }" y
)( w9 H% r& V- n+ e, L. u. N
)
o' J) E) u% ?/ m9 ]( v
)
V" C% h2 W8 H; p2 x
)1 A# t8 |+ H- Y j5 r
;;画图. P9 U; x8 U. ^& V: y4 V# {% p0 w
;;记住原来的对象捕捉设置4 k* z' U3 R: m; a. V0 R" R4 w3 S$ I4 n
;;按花形数量计算A值* g' e/ U5 _* i4 p9 {
(setq; }2 }$ q8 f% w7 e* M
oldosmode (getvar "osmode")' Z1 T1 l3 i7 Y+ F' E% F. H) }" U
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))/ w1 C) ?: l8 s& V5 |* F7 ~6 D( X
(+ (* (1- n) 2.5) 2)
1 C" H: A. l. n1 A3 M+ y
)8 {0 S. _1 n2 V$ Q4 d3 L
)5 }+ d4 U4 B9 `9 {
;;暂时关闭对象捕捉- L! X& P7 S5 t+ G& j
(setvar "osmode" 0)
/ ]' P6 X ]% q: e! [7 {) ^( O
;;屏蔽命令回显' ]2 z- ?- W1 y( M
(setvar "CMDECHO" 0)6 e' h" B3 S! a+ W8 r
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形4 D* g- |0 N" [: _: U0 Q. H
(command "rectang"! f; [ B, V% @0 X+ v& M# Q8 g& b
basepoint) A' M# o$ t" m1 u
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))( G. ~& {4 N! t2 S) h9 ]( Q
)! G) H% F+ A U q) v
;;在第一个矩形外侧一个方钢宽度处画第二个矩形6 ~$ D4 P) }* q! V1 [8 d
(command "rectang"
/ H+ a/ k- }4 v, u3 f: M
(list (- (car basepoint) lg_width)
d7 k4 w# D2 U d
(- (cadr basepoint) lg_width)
2 @) T- q. A" W% Z0 x1 I
)0 L5 C$ \6 @! v$ _$ Z0 r& |1 }
(list (+ (car basepoint) len lg_width)& n. v1 Z7 T; a. m/ e
(+ (cadr basepoint) lg_high lg_width)" l5 [9 a9 l3 X" }9 S
)
- C7 C5 C0 h9 E. n% j6 _3 {
)" t {4 G" j8 N/ J5 R, d- L) K- ]
;;将指定点移到其右侧A距离处
& _$ |' t7 _) k0 |
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))7 d/ h X0 E8 P" H O: k K
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆* p5 H& I; }" N$ R
(command "rectang"
# x$ h8 U& K' @5 _5 D
basepoint$ H( E/ V* w: ]
(list (+ (car basepoint) lg_width)
; z( \- E# W. U# R" l
(+ (cadr basepoint) lg_high)
( w I0 a2 d l: C
)
; j0 A; j6 ]. y! M/ O+ Y5 X
)
2 ^0 |6 J" q+ W2 `$ }' i
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
6 |" Z. t7 R6 W# e9 v
(repeat (1- n)/ `4 @( x, }' M* J
(setq6 w( {+ F- o% @' d( U+ T
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint)), f9 \+ j! j& `: e; O
)4 u/ t$ z4 [) o1 a/ U" i# }
(command "rectang"# q8 l$ l) i, I, ?
basepoint
6 k; X: `2 D# s8 ]
(list (+ (car basepoint) lg_width)% O* j2 i9 N0 D6 k. x0 N4 K. V
(+ (cadr basepoint) lg_high): D ?3 B8 ]: r) ~! \5 f& Y
)
0 g! g; @1 x9 b6 A" ^% K+ C
)
$ ]9 U" O! W" q6 U% s
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)
- I% g. _- _6 ]" W5 @! e0 x6 B
(cadr basepoint); y: ?. l5 G' k
), n% Z6 @, q" F1 P& R
)
2 J# _" @, j5 F! X+ \ i
(command "rectang". V* Q* r& v( s( ]$ Y
basepoint
. k6 _! B1 @7 W$ C7 D
(list (+ (car basepoint) lg_width)
8 C" Q, }5 g* X+ ?( H
(+ (cadr basepoint) lg_high)
1 C& O/ D8 W& u' h5 ^- H
)
$ Q) x# S4 j" k0 h, l
)
( M5 ~& @* m/ m
(setq
T; d6 t6 v! H
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint)), ?9 ^: d; b4 V- F+ _. `
)8 W. v a7 l' p3 z7 c+ [1 u
(command "rectang") D+ q: Z# j1 P+ l1 Z$ B
basepoint
* e$ ]- e# [" U$ Q0 m: S' P* f
(list (+ (car basepoint) lg_width)' n0 Q: d8 u4 D \
(+ (cadr basepoint) lg_high)0 \' k- p" u+ r; `5 ^9 H' e: s
): k/ o6 _- l: F$ x* m
) x! j7 }; @! [
)
0 @! _+ ^$ n( y- G7 }
;;恢复对象捕捉设置
9 ~& t- o$ A6 B( P+ {3 @5 r, n4 z
(setvar "osmode" oldosmode)
- [2 D/ f' d8 Y) {' S Q
;;打开命令回显
5 Y' O# T/ g. a1 o
(setvar "CMDECHO" 1)9 M* i0 P6 P' m) W
(princ)' D+ M7 F( M6 A2 \( ]5 f
)
9 d; a6 X* v$ W$ |, g c; w L

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源