作图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 发表
: V" x) }" p3 ~0 x; ?: U直线分段方式，a=a=2b
# [' @+ W( D+ ^, b. q! H
4 C6 g4 j% [0 T* o: Q" r2 P2 F$ x

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表 # ]/ Q, {. n0 j

1 B$ N% ?+ b. L3 \距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

& z2 ]* `3 d: Z, b" @4 `
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)/ g, E! ~' r. q% X4 V
;;设置栏杆高度和方钢宽度默认值) j7 ]- A( c' N1 k% d3 e
(if (not lg_high)
+ l2 j& R; R7 P2 n
(setq lg_high 500
, A) J" A( M7 q' O6 w$ {. i5 w2 k- X
lg_width 14/ k+ `( Z* a7 G" b0 L9 |+ i& N
)
' B& {0 F0 b; _4 C5 S6 D$ ?
)2 G' _, O2 q; c4 u
;;指定图形插入点
2 q0 ?; k3 S% {' p
;;不接受空回车
" @: Z7 Z5 x& H/ Q2 a
(initget 1)
# E+ a8 L! C a1 w C& G
(setq basepoint (getpoint "\n指定插入点:"))
& v1 B* {1 h ]: _1 S1 k$ `' b
;;指定栏杆长度和栏杆高度和(或)方钢宽度8 W3 m0 e" E8 O. ], u* _& i
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定
5 t3 g8 d( v4 }) }1 c
;;用关键字指定栏杆高度和(或)方钢宽度后
6 B$ b& N# R2 |3 n" a' \ E
;;需要重复运行指定栏杆长度的代码段
& n: W8 V% v7 d( y5 d" P9 g
(while (not len)
0 _# P' p( Z8 C y6 U' {
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值3 C# u& O* N: P8 s
(if lg_length
# q1 i& b4 s+ |# F+ Q4 a* B
;;存在默认值! h8 P- g F/ |) z
(progn
. B/ `5 Q3 f5 B% Q
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"% H. B. \8 M3 O3 b
(initget 6 "h w")
3 z- m1 C* R3 J/ ]
(setq len (getdist basepoint
5 n# K* e# }( q6 K8 X
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"# ^; \ X5 Q* F, {% a
(rtos lg_length 2); }. O: B7 M( D" ~6 G/ E
">:"5 q0 ~# N X3 e J! k3 `: H3 h( G
)
, }5 Z% _3 Z6 |$ q
)
. g3 x0 |7 ]& H. p% Q
)
8 G- P( t: ]& m/ v8 l
;;空回车时栏杆长度使用默认值
0 z( w8 n/ n; j( \% \ \ r
(if (not len)
$ g' V( j- l0 I
(setq len lg_length)6 y0 w3 A: k1 W* E& z
)
* W, q8 k7 d' n& M' ^9 _
)- h6 r& e* }1 I3 }7 x8 [3 N- ]
;;不存在默认值
2 W7 F, k7 `1 ^6 B
(progn
7 X |" M9 z; j* H
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"
8 m' l5 Z- Y* g9 F& t; _# r3 i
(initget 7 "h w")
\6 p& c0 l2 g1 w
(setq
! `4 t, _) x6 b) ?# }; {
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")1 v. q7 t4 j8 M: o5 o: j, ]" J
)& \" D) O$ w. n' p3 l( {
)
" m6 w2 v* ]" ~$ J
): ^ {2 _0 _1 c6 {% ~ M
;;检查用户输入的是长度值还是关键字
, q* k. k8 X. z7 V* ~6 H7 u% b+ o% I
(if (numberp len)
" O, D" r+ x$ Z0 ]( a
;;输入的是长度值
! c! c! \( p' y9 l$ D/ A
(if (< len lg_width)
& A: T1 B5 k2 b. @
;;当长度值小于方钢宽度时清空输入值重新指定/ P' L& }2 j, g6 A9 R b) S
(progn, B* f8 U. N6 Z6 i8 }6 j1 j+ x
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))
& w7 A: x6 D9 j/ x2 r
(setq len nil)
. M( s' f' h" d$ R6 Z; O
)# D Y: F: t( |
) h; A7 a: H8 N
;;输入的是关键字
8 b' v4 e$ {6 ]4 y$ U9 V- X
(progn/ N( I0 o# b% W, {
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值
7 l4 ?6 q9 M# A/ |% k, P/ x
;;用户输入时接受空回车,不接受0和负数
; T( {* R9 {2 Y/ U4 r; l$ X, ]+ T; I
(initget 6)
* K$ c; A, F; ^# h% M! z Z1 f2 `
;;检查用户输入的关键字是"H"还是"W"
& _, W" r/ l" e' m( x* S- j5 [, V+ ?
(if (= len "h")+ v [9 v" ?& J% S: b* Y. G
;;用户输入的关键字是"H",指定高度
2 z; L' Z [0 \' L# N* p( d$ z# w
(progn
4 D; [' s' c* d. J4 ?
(setq high& [ F) ] Y* n4 ?* [
(getdist basepoint
0 T6 [* V# z9 l7 K
(strcat "\n指定高度<" (rtos lg_high 2) ">:")
L4 d: a. t% o* T+ J6 E, h
)
/ q4 Q: x4 ~" p; P4 q0 N& B
)
. T& v. @2 \4 j, e0 K
;;用户输入新的高度时修改默认值
) w$ j* s* Z& ] x$ U/ f
(if high
; a0 m' K+ M: b& T' t. l+ v
(setq lg_high high)
9 f Z1 ^& u2 W; F5 V/ c
)6 |% y* r# M; b+ r- o5 s
)# O7 G% g! n* {6 J* A9 d3 q( n
;;用户输入的关键字是"W",指定方钢宽度" L u' k8 L# P# a1 l+ h4 V6 t
(progn
3 i) p1 J9 ]" y' i- [
(setq width2 L6 G4 _' a" P
(getdist, E2 m3 m6 N' D/ {; i1 P$ p
basepoint8 E E2 I$ g. a' G8 a
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")" p! }% }, S `! u, Y$ ?( M' [9 ~* d
)/ l6 E0 n. ?9 d% u
)
' d' k2 V# q) |- i7 F& H! J
;;用户输入新的方钢宽度时修改默认值- Z$ {) ~" f* Z
(if width7 o/ |! O' v/ h Y# \, [
(setq lg_width width)
0 d1 z' a- i. K. n* K
)9 S# m* d) |6 }4 ^# M, _
)4 D0 Y! C( ~0 `5 Z. V) r
)
- s( R( G, E* P& u
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度" W3 b- T7 w2 F5 t; F$ a
(setq len nil)
) F Q. C% ^( g6 g3 R
)& R- r% v j. U
). O, `1 g# A) E
)
) j ]1 x5 o' Z5 b
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值8 B. a' Q( B9 B1 _
;;计算用户可以指定的花形数量的上限
6 ]/ [: u2 j8 c5 l% s
;;用于下一步检查用户指定的花形数量是否合理 N; n4 y4 \' [$ f
(setq lg_length len
( Y! Z7 p8 F$ n( Z
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))& b9 c, [8 b& i' u x3 p. a
)9 N; h2 h( l. e$ s" s$ d" d
;;指定花形数量或A段最大长度
; f/ `* w8 D% }3 L m8 m, Z
;;如用户指定的是花形数量,则按用户指定的花形数量画图) v: v* c, x1 a/ a9 ^* n/ E
;;如用户指定的是A段最大长度; s* P+ X% L/ m
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图
! ~! H3 s# \9 I1 h# d, A
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解# x* s' y2 i' c2 e. @* x
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解
S0 M4 r( w' T$ n
(while (not n)
. \4 V9 U" ?9 i9 ?) ?# k
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值! l+ M3 n9 R' z/ o
(if lg_n
' \5 W6 P9 E7 o* S; ^1 L
;;存在默认值: u6 B7 m' X0 Y
(progn
/ B5 _7 c$ ?4 ?$ @$ U$ P* e
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"
8 l* S; { \1 ^& i9 E
(initget 6 "l")
( m9 M$ o7 a# t/ o
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
7 x7 ?! h: H) m% h& W$ z
(rtos lg_n 2)
i. m' V! U4 W! s# B
">:": M$ u, F2 |% [0 d7 P1 L' |
)$ c( j0 d4 \# F
)1 ? W' S: D- l& k
)3 m( e5 {" f3 S
;;空回车时花形数量使用默认值3 I! [* ?, B1 _
(if (not n)
- S! b( R$ J5 a
(setq n lg_n)/ w2 B, F1 k/ T4 s# p! F
), p6 M2 k0 d' N
)
0 q5 x4 X7 \4 R7 M
;;不存在默认值5 A o; F/ }- ^* \# L8 H* [
(progn
& S; A; e: G x; C' k
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"
; v( N$ { f3 y1 J' w) K
(initget 7 "l")% ~, L' O: c5 p
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))( C- _9 D4 U3 y
)
1 d/ Y) }: M. \5 K% ~9 T
)) D# m5 i+ V' \+ Z+ A; Z
;;检查用户输入的是花形数量值还是关键字
: u8 ?2 q0 T" ~9 a- A/ E
(if (numberp n)
/ P, u6 V- {$ n7 _( l, P" e# b
;;输入的是花形数量值
; I0 S2 V" ^: r5 {& ^
(if (> n nmax)% i1 t) d1 D9 ] R
;;当花形数量值大于上限时清空输入值重新指定
/ k( g9 n& ?$ R, v7 r! A+ v; e; A
(progn, v) T$ l. ?: ]5 f! A1 t
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))
3 a5 A( c0 @. o5 S' h( Q
(setq n nil), r! g+ {, F7 a9 f7 l1 [
)
6 ?1 H2 {. a O* \
;;当用户指定的花形数量合理时存入全局变量2 h+ c( a' U5 M! o$ L
;;以便用做下次输入的默认值
2 Z6 K* U9 g% n+ r% H3 g& a
(setq lg_n n)* n8 r4 i; ]( ]5 s$ s
). J7 \' W6 F5 ^0 ~' ~
;;用户输入的是关键字& V; I7 p+ {' ^9 A& R a, y q& w
;;指定A段最大长度! c# c- h% b0 b7 r
(progn) J/ q# Q v- }" }, ]+ B5 c
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍
3 K8 ~6 k* ?7 B$ w
;;否则可能导致无解
. U! M8 f* S, P
(while (not amax)# y7 v/ a. ? N# w& Z
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值$ U( f/ n9 W' g3 {( V9 w, q! t
(if lg_amax& m+ y* O W# H' _: ]
;;存在默认值$ u$ S, A: B8 v. d- @1 N
(progn
5 A" ]% k0 A6 e; T$ n
;;用户输入时接受空回车,不接受0和负数
. E! E* a6 o3 P: g* K+ z6 Y
(initget 6)
4 K1 \ Z- \6 b- W4 v
(setq amax (getdist basepoint
) z2 C- z2 E8 K0 N8 ? _
(strcat "\n指定A段最大长度<"
3 w9 l$ w0 D' t' W4 ^: N; U
(rtos lg_amax 2)+ E9 s5 H- J9 v9 }" L) S
">:"
5 M9 D8 h! | T/ g9 a& k+ T
)
7 k; c7 o' ] F! Y2 x
)
+ K+ h b# h* Y" M& X2 H
)4 y+ ?0 ?' Q6 ~# f$ D
;;空回车时A段最大长度使用默认值6 l1 h2 j M0 K0 @# ?, s! c$ v+ z+ B
(if (not amax)
0 l) i( J& n2 ]+ Y0 Y! y ~$ c
(setq amax lg_amax)6 G5 ]9 q5 a* l2 Q
)
, X- _9 c0 l' j- j8 l
)
+ ?$ c- g) D; I, x6 X% Q
;;不存在默认值
. P- j2 f4 H& y2 v9 \; D
(progn* D7 G: X- @( l
;;用户输入时不接受空回车,0和负数
6 ^) `1 ]- v# L) n6 V' B# @# d3 C) [5 j
(initget 7)
8 {& K+ i, j5 S# K/ {$ T% l9 J" x
(setq
1 w# X3 W( s1 r3 m
amax (getdist basepoint (strcat "\n指定A段最大长度:"))
0 {! m3 j% F2 {& |% ]) P
)1 u8 i; T: J' `
). t, x9 D7 y$ T$ X0 |1 b' n
)
6 L- f% s% J/ N5 J
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
l+ O( V% g+ ^+ F C
(if (< amax (* lg_width 1.5))' _& w* e1 T7 ?3 S, |/ r2 ~# |( T! S
(progn- u3 [, [1 E$ _: K
(prompt (strcat "\n指定的A段最大长度不能小于"
k+ ~1 Z! J8 N5 o
(rtos (* lg_width 1.5) 2)4 P/ R' u1 C6 |9 h" d& C- Y
). {0 i# k; q' A$ {0 D4 m
)
! j" y2 [# g5 V
(setq amax nil)' U [( x8 Y3 i$ B/ n/ } @% Y! p
)
/ S/ [7 H- `; j. J, e
)
, V( t# S# ^/ r; L' W2 h# N
)
2 ? x9 {9 h# E& Z# a0 t7 f
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值1 A0 {5 ^; G' T* k/ h; o* j
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1
4 i0 M; q- a& l2 T& h
(setq
" c# ~) z3 f$ G) Z1 r8 a# J. t8 `
lg_amax amax5 j2 `' F$ f) e! }
n (1+ (/ (- len (* amax 2) lg_width)
+ o1 _0 _ K3 d5 P# ^8 Z; S
(+ (* amax 2.5) (* lg_width 3)), N% Q' N& e" u
)
/ J4 J& E' V8 J+ _, i" w4 |
) b! U& n+ u) D* r- ?1 x6 A
): G6 s8 s, U. y; a( V7 ~" h
(if (> n (fix n)): R7 }; R0 h5 A; `
(setq n (1+ (fix n)))3 Q! I2 {8 n8 m3 k$ Z$ t
)
* h6 B! X& [. }8 T( x
(if (< n 1)
2 r" ^& r( z. o8 b
(setq n 1)
2 n7 Y8 D' d; S/ p& P) \
)
) e6 a6 I! l# ^2 c0 S
). x t2 ^- g0 H) G7 B
)
- x1 e! M8 t2 w6 V% o" Z" p/ |
)" g9 l# p8 E, e6 X. L
;;画图
7 _9 q3 v& `/ o! I
;;记住原来的对象捕捉设置
: j& q) O# p T( k; {& `
;;按花形数量计算A值
( @" N( J; j3 ?% M1 e
(setq
' ?- _7 c; ]# ~, [) F
oldosmode (getvar "osmode")
- _2 e9 K6 k( J: x' t
a (/ (- len (* lg_width (+ (* (1- n) 3) 1))), V3 i" z- ^* \! y* Q1 _0 K
(+ (* (1- n) 2.5) 2)3 _: Q8 n% ?% a+ G3 \
)9 a7 Q5 f& P% d: m0 k' a
)
9 X9 u! O' K0 p; D
;;暂时关闭对象捕捉3 U! k* X: f' F- z: S
(setvar "osmode" 0)
+ H; k- T8 Z" a
;;屏蔽命令回显5 I& n) t4 b5 F" U7 r
(setvar "CMDECHO" 0)2 F. u# V. D& e$ V& H1 V7 q
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
% {% w: d% v7 i) M) J, }1 M: P1 W
(command "rectang"( c0 ~/ E( O B
basepoint
: }& _- [7 l% g" I7 S* p! l) W
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))
/ {- l/ V* D. _0 F
)5 g9 c- A, |. u" M7 \
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
I/ ?1 ~8 l9 J! B
(command "rectang"
/ g9 |9 _0 B9 N
(list (- (car basepoint) lg_width)
" t5 _2 ]. Q0 _7 \) _# f/ [
(- (cadr basepoint) lg_width)
; d a! l5 M0 S* A- N: a
)
4 E4 _2 Q, k8 \% b! U: ^& r' I
(list (+ (car basepoint) len lg_width)
9 T- p+ H1 _( }" U# ?& i
(+ (cadr basepoint) lg_high lg_width)
$ x% y8 d3 m4 S
)
, J3 F% M! e# z+ Y. G& ~5 C
)+ h+ k7 M/ { Y' Z
;;将指定点移到其右侧A距离处
. L! Y k+ l0 I
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))
* z+ E* ^2 \/ n+ m: s' Z1 {
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆
; {' @/ [9 c# N( @' V8 _
(command "rectang"# u/ k0 [! Y: r8 h/ ~
basepoint* y6 M t5 P9 a% R& }
(list (+ (car basepoint) lg_width)- t9 {9 z" i! @# h
(+ (cadr basepoint) lg_high)
* W" w) H! `+ ]8 \
)* O( C$ E* b/ s# l% r
)8 _( z: E7 x/ Y
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
# s& I% n, I/ I; A2 m8 Z8 a! D
(repeat (1- n)
/ [7 v: a6 v8 K1 x0 D
(setq
/ S, v. |: ?& C
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))) u% L! x0 |$ R+ y
)$ Q) K: a2 e( X% f9 J j7 H0 n
(command "rectang": X6 _" x/ I8 \$ k- e8 l( b! u
basepoint
/ V! d1 ^7 |/ a% R
(list (+ (car basepoint) lg_width)
( Z8 c5 t- H2 d# }$ u
(+ (cadr basepoint) lg_high)) g9 `) h' P$ C2 |- v. O( X# k
)
& \* U/ h$ R' w; i
)
: s0 ?6 o9 _1 x- x% V5 i
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)
" S- V$ a* N) P- s+ W# Y9 R% @
(cadr basepoint) d) j; q+ q. f2 e. F! S
)- _0 A5 k5 b; k' G7 ?9 }
)* A. i, ]! t5 D" {' @+ d% {, Q
(command "rectang"
7 p9 {" |! F1 N: h8 W
basepoint
) \& z) U r7 `: r
(list (+ (car basepoint) lg_width) d6 ]3 G3 P: x. [, y# b9 M4 b
(+ (cadr basepoint) lg_high)" ?/ Y7 m8 p& z2 `
)! Q3 B! e6 k+ R/ j" U+ p
)/ B$ h8 [4 {& y% p2 c8 @6 U
(setq+ i: T6 u) i S! {: G
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint)): t# C$ y9 p! J, O
)1 A% U* T$ o& P* D
(command "rectang"
8 L% T7 z) W. g
basepoint
7 j5 o+ E6 l% |* C# b
(list (+ (car basepoint) lg_width)
' [; W) H5 ]* t/ I) P% a
(+ (cadr basepoint) lg_high)- b0 n W9 \! A& b* O2 ~; [
); o3 F8 y3 u2 ~7 h. n+ C" k
)
}! B- y: N/ E+ d3 T( I
)
& F6 R$ `5 c" A
;;恢复对象捕捉设置9 z. Z4 }9 I* v" y
(setvar "osmode" oldosmode)8 [ y7 ]7 s- R4 q2 A1 Z
;;打开命令回显7 n. {" r; L& Z/ T
(setvar "CMDECHO" 1)
5 Y1 P+ }( A. F$ R: C: a1 C- O
(princ)- G0 X2 M1 c9 F
)
) N/ m* [: l* W/ t' d8 _

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源