作图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 发表
) A" q0 B7 X7 n0 m; R) c直线分段方式，a=a=2b
- ~, M) v5 Q8 E6 c7 C$ O ) A; B" C+ R/ J0 K$ \

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

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

原帖由 manbuzhe 于 2010-6-28 08:26 发表
( a- r' w' u& ?: Z0 @ p: c$ I" @& Q- m
距离长度+14（方钢尺寸），54等份（A距离）即可。

头尾是A距离，

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

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

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

! Q" B$ `8 R6 _& w
(defun c:lg (/ basepoint len high width amax n a nmax oldosmode)5 H2 B6 N2 O7 s* A$ G1 r$ `& v
;;设置栏杆高度和方钢宽度默认值
2 Y5 B. C! G, O |. A8 g- u
(if (not lg_high)9 v: e4 |- }2 l% S% |( E
(setq lg_high 500
6 @* \& z- B8 T. q
lg_width 144 }$ G( k$ I7 ?9 F2 ] m
)4 n5 q4 \4 B) y0 k2 l
)
, [ t" u3 Q6 L3 h! @, G
;;指定图形插入点0 L1 ]2 D2 `( C- J! v$ O: r9 p( B \
;;不接受空回车8 n8 f$ l- m6 Z& |9 Z% C5 t& @& [( B
(initget 1). a% ~& s$ t7 T) x; t) E4 w! Z
(setq basepoint (getpoint "\n指定插入点:"))0 @( C* } H8 _* [- ]+ j6 Z
;;指定栏杆长度和栏杆高度和(或)方钢宽度: x, }# ~- d# @) U+ y$ e( z
;;当用户指定的栏杆长度小于方钢宽度时图形无解,需要重新指定
. w6 R& C) E o8 U
;;用关键字指定栏杆高度和(或)方钢宽度后% L" y0 P2 M' Z
;;需要重复运行指定栏杆长度的代码段
s3 e1 }+ O: ^/ @; C
(while (not len)
" {+ X- p& A) {6 L5 j/ g
;;检查是否存在上次指定的栏杆长度,如存在则做为本次的默认值
/ X2 A/ B2 a' E
(if lg_length
& g) A. D e; Q3 c0 o5 b
;;存在默认值
/ g2 t4 @5 J ~; n( x$ \
(progn2 ^5 |- V$ C/ L& P }8 ]
;;指定栏杆长度接受空回车,不接受0和负数;可输入关键字"H"和"W"% C$ v" Z; i9 C. R/ T
(initget 6 "h w")
. n$ }; o% U" ]9 I
(setq len (getdist basepoint' M! q) P$ R1 y0 {% r5 a
(strcat "\n指定长度[高度(H)/方钢宽度(W)]<"
3 E5 Q' P) _& @' b
(rtos lg_length 2)9 F" c/ [2 O9 u5 S" ~; a
">:"
! w' k+ T8 z& e0 g- M3 Y5 |' e
)" N! I8 e+ C2 U. N$ g4 q2 W
)4 ^* L$ t. r7 O6 `6 D* t2 y* ~
)
/ U9 I0 ?5 x( ]
;;空回车时栏杆长度使用默认值
1 R4 d, U7 t, e7 S; O
(if (not len)" R" J. m9 K I
(setq len lg_length)
9 ~4 H# ^/ V/ m3 U
)2 o( X3 {' z8 a6 B' T
)3 [8 v' y3 L6 {5 _! P
;;不存在默认值6 }- y/ [) N% z; e7 j
(progn4 [ J$ }* F5 T* `; q
;;指定栏杆长度不接受空回车,0和负数;可输入关键字"H"和"W"" R. N1 E# N$ L6 `5 m
(initget 7 "h w")
% A. o! I( w* s4 G2 R) ^6 y- }; K
(setq
( w) z. w0 K! b5 Z
len (getdist basepoint "\n指定长度[高度(H)/方钢宽度(W)]:")
% E+ v! Q0 J2 ^6 ]" R1 K+ h
)* j U6 i# h5 P1 ?( H: C
)
) W# z! r& y; ~. W$ }
)
$ W% v. ^' z: l$ `
;;检查用户输入的是长度值还是关键字
( p( B% Y% _$ ]0 n
(if (numberp len)
|& }( U0 J$ [1 f
;;输入的是长度值
7 v% o& e2 U8 ]5 O5 B w0 }
(if (< len lg_width)
8 s8 M0 R( J. B, @& j% @
;;当长度值小于方钢宽度时清空输入值重新指定
6 u) b v* H# U& Z5 Z
(progn7 s5 o5 U9 K( W# i# s7 g; K
(prompt (strcat "\n指定的长度不能小于" (rtos lg_width 2)))
, L! S9 b8 I$ f4 l C
(setq len nil)4 b# x& W5 }8 e
)/ w6 r; ]8 i' X- d3 I
)7 X; L8 q% R+ J
;;输入的是关键字
' X. E' ~* ]+ D. p" Z9 |) I9 I
(progn. I, _+ C1 U7 |' p3 {& F
;;用已存在的高度值和方钢宽度值做为下一步输入的默认值
: L Y. N9 }3 \% `; Z8 R
;;用户输入时接受空回车,不接受0和负数* ?: J" P) Q3 m) d2 }: f. v
(initget 6)& O" K8 \7 B H$ b
;;检查用户输入的关键字是"H"还是"W"
( n# u# r" o$ ]+ W
(if (= len "h")
$ }. J! q' O/ G
;;用户输入的关键字是"H",指定高度
t4 f0 h; Y2 Q" r6 T& y
(progn
( v, y, a1 y# n% [' F. Y6 K
(setq high: c4 u- A0 `) t
(getdist basepoint7 U/ l8 g+ h- Z# t" V
(strcat "\n指定高度<" (rtos lg_high 2) ">:")* \9 K+ U6 G8 N/ W' T
)
- B, S( W: i- L7 m- b% c+ v
)
% c4 ~3 B. t# }$ [1 C B- r
;;用户输入新的高度时修改默认值$ D0 |7 ~# X7 I& N% @ o
(if high
. R8 k1 {3 B# i, z" s! ~ k/ Z
(setq lg_high high)# L0 V8 ^/ }3 E3 N
)
6 t) l4 @2 z: y" h0 h3 W! Q* B
)
( l4 V X+ x M# }) Y
;;用户输入的关键字是"W",指定方钢宽度" d c( g& y& g$ S
(progn
4 M4 @( n% P# {# B
(setq width" X; Q- N- C% B2 ~# y
(getdist
5 T' t* g3 k; v' @2 }6 f/ L! Y
basepoint5 P/ ~, s) |" b5 t, H
(strcat "\n指定方钢宽度<" (rtos lg_width 2) ">:")# I0 x1 z1 u# T* p: Q- h' @
)
- }* d, b8 a* M4 t0 @
)
3 g) T, s( Z4 V7 z8 ~+ T# t8 r
;;用户输入新的方钢宽度时修改默认值
9 F T; A' D( L0 s
(if width
1 v5 T2 y U- P2 `
(setq lg_width width)
! D5 G3 H+ m. s7 Q
)" v1 M" h) m7 }0 J2 N5 i9 k
)
0 c/ ?4 ]: m3 v; r4 S) Q2 h2 }
)
( {) @1 p6 S! {$ Q) V
;;清空变量,返回循环体的开始处重新由用户指定栏杆长度
$ t$ ], G0 G8 w( X1 E" ?" k- a- h
(setq len nil)( s4 u4 }& W; [
)
, e# T3 Y0 n6 Q6 `* e1 [8 b* T
)6 W h/ `* k! I& `5 P! V% d4 A
)
5 `/ D- ?7 P, s5 c3 X# Q1 K
;;把用户指定的栏杆长度赋值给全局变量,以便用做下次输入的默认值1 _4 y! n5 ~ ^2 U# O, m# ^
;;计算用户可以指定的花形数量的上限3 R$ r& e: D/ M0 n4 g
;;用于下一步检查用户指定的花形数量是否合理1 h4 p4 F P; ~: ~' o) M
(setq lg_length len, v3 e) d4 _" b4 X% a
nmax (1+ (fix (/ (- len lg_width) (* lg_width 3))))
$ m1 U7 Q$ y/ {: B" ^
)
6 i7 {7 T ]' k5 B1 q: m5 [
;;指定花形数量或A段最大长度
* x% K& w' A6 o! G
;;如用户指定的是花形数量,则按用户指定的花形数量画图
' }' _) [) C# r2 U% x* ?
;;如用户指定的是A段最大长度
* i0 V, M( L7 `0 t+ K; U
;;则在A段长度不超过用户指定值的前提下按最少的花形数量画图
. z0 J/ S2 D/ b m9 d
;;用户指定的花形数量不允许超过前面计算的上限nmax,否则无解
- {. u7 I6 e- U+ `4 K: M" m& x
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍,否则可能导致无解
: d4 s/ ?3 _0 e0 H% c( @, H
(while (not n)
. t1 i3 M/ {, j' }6 p
;;检查是否存在上次指定的花形数量,如存在则做为本次的默认值( ]% Y7 {' L9 l3 q3 t2 p
(if lg_n
% ^) o& r6 M6 \3 K1 t8 g7 @
;;存在默认值, l( @* W# j9 h' Y
(progn
9 D' U+ Y3 N1 P* G; [9 g+ r! Y1 }* B
;;指定花形数量接受空回车,不接受0和负数;可输入关键字"L"# t# w; V R: C0 s, C; L
(initget 6 "l")( y. @8 _" ]- p) K1 Y
(setq n (getint (strcat "\n指定花形数量[A段最大长度(L)]<"
5 [: y! C2 `$ |: y) o6 y) w
(rtos lg_n 2), t8 y6 _, |7 d( h, S( l
">:"
' ?1 D/ [' @( v
)
9 G1 Z ^3 ^ g4 ^$ V6 `6 }) y1 |
)% i) Y, J0 e! a% A8 c) S# i% {+ C
)
, Z) X; @+ n0 p3 p! \- ?3 F: b$ ?; G, i
;;空回车时花形数量使用默认值
) M+ g n8 y8 n
(if (not n)! N8 W5 Q3 L$ B# Z* v- d
(setq n lg_n)
) y1 {' y U3 M' |0 Z- I. D& m3 D" K
)
$ n+ l2 J+ t2 f' W; j( n. ^# B7 K
)
9 @- h2 H2 }" X- R' Z, H. |' {
;;不存在默认值8 d- Y" }/ |/ [' f( m9 }/ m
(progn
; }5 s7 b3 S/ k. k. W# K% p% C
;;指定花形数量不接受空回车,0和负数;可输入关键字"L"0 `/ |' z) j* _" C/ A4 D
(initget 7 "l")# c/ y. y' |7 {6 w$ ~7 j2 k
(setq n (getint "\n指定花形数量[A段最大长度(L)]:"))* i* }9 U+ [+ Q8 O
)3 t/ J/ ^8 r$ t. P! b0 f
)
& @' e5 B& n: V% K2 p
;;检查用户输入的是花形数量值还是关键字: \) y. Q( C8 m8 O4 o/ q
(if (numberp n)" s U# i% E% k7 X* u6 j
;;输入的是花形数量值
; g$ ?! _3 {+ H/ J
(if (> n nmax), ~( c! Z1 }0 W# b, Z; o
;;当花形数量值大于上限时清空输入值重新指定! Z, F! ^2 Q* z& J
(progn
6 B+ g# I3 E, m& t! @
(prompt (strcat "\n指定的花形数量不能大于" (rtos nmax 2)))
) j7 ~# I: L6 R' ^ Y
(setq n nil)
+ F, N( _" V( L! Z0 H9 W7 G
). O- t6 U( q. ^0 |" i
;;当用户指定的花形数量合理时存入全局变量
2 b) x# m p; w) C- _, B) e Q, o
;;以便用做下次输入的默认值
* l- k: @1 t- z# q" U5 G7 H
(setq lg_n n)
/ [' T1 S" ~! K3 W
)0 K2 f' f2 c5 M( B
;;用户输入的是关键字
; x6 e& f9 W+ }0 A ]2 H
;;指定A段最大长度
1 J7 k* u" W3 n/ o* r" M# Q
(progn) i. u% W; @, b! [% \
;;用户指定的A段最大长度不允许小于方钢宽度的1.5倍/ o1 P+ }0 @. r' |
;;否则可能导致无解 P8 ^8 n- @8 n! r. H! k
(while (not amax): w8 }! H# B4 A* }3 s
;;检查是否存在上次指定的A段最大长度,如存在则做为本次的默认值
5 S9 E+ E/ x. {/ p, ?$ _7 I# s
(if lg_amax0 `* |9 w8 w; c& ~* @4 n( p/ }
;;存在默认值
. U' `" ]* n& H% z" n6 O1 t( j! p
(progn7 L2 b- v: C1 _
;;用户输入时接受空回车,不接受0和负数4 g+ t# A- d4 U& D
(initget 6)! u K4 t9 u7 b/ J4 C
(setq amax (getdist basepoint
3 |9 L. P5 R/ n: X( e$ w" Q3 Z" w' _
(strcat "\n指定A段最大长度<"8 d9 u; c. E% `% |* s- ~5 ~) d
(rtos lg_amax 2); r% B1 H2 w5 w; t! ~8 X+ G2 m F
">:"
) F: V6 ^- V9 y0 ]2 G9 c
)
1 W8 A& }1 n( u2 Y5 w& H: ^
)
/ a* M6 h8 v* n8 h
). n/ o+ h A# K3 r4 `
;;空回车时A段最大长度使用默认值
* \+ B/ d6 w J; f8 f H$ S
(if (not amax); ^* H( Z& Q; b) ^, h* p# o( |/ b
(setq amax lg_amax)2 G% @6 n/ V4 N7 c6 R4 N6 v
)
" a, x7 n& S- s& }' J/ V/ h
)
' B+ v" r& x. X, f9 _
;;不存在默认值
1 G: C$ ?4 _% W, i$ U
(progn- D( y8 e9 \0 K7 g
;;用户输入时不接受空回车,0和负数
5 G& z3 }* z: M
(initget 7)- s+ A6 B% S; H& q9 m b
(setq1 @! I7 i" `& I4 h( g8 n" B" Q
amax (getdist basepoint (strcat "\n指定A段最大长度:"))" H6 B0 H) z0 N7 j
)
$ ~# M5 x; D# L* M- `* ]
)
* ^/ p) {, ~* H1 t' k
)- w5 v, _+ u* N- y" ]
;;当A段最大长度小于方钢宽度的1.5倍时清空输入值重新指定
1 [: ?5 X, T( r1 w8 I/ F
(if (< amax (* lg_width 1.5))
& b1 O% H# s! U% x" Y
(progn+ }9 z ?! C6 R. j( m. ~
(prompt (strcat "\n指定的A段最大长度不能小于"
+ E' G9 a; C: @+ B" {# \
(rtos (* lg_width 1.5) 2)* J! g7 N$ M/ d, S1 Z5 `( R% ?- }
)% V+ f0 O( t; @7 ] v$ W% ~+ U5 G
)
$ \$ e1 l7 c7 R) e" ?
(setq amax nil)
7 j3 ^: S" H b9 j' Z7 i! s7 d1 G& _
)
0 O6 l" W) O: r0 T: n5 ?
)
3 Y& Z M H; h/ U# B
). P- |- L5 O) T1 S6 y
;;把用户指定的A段最大长度存入全局变量,以便用做下次输入的默认值
6 N( h! U% o3 @; t8 ]8 [
;;计算最少的花形数量,当算得的结果为0或负数时,取花形数量为1
" v; J' f' j! Y8 a3 H
(setq6 z( A5 |9 N3 R8 b7 q5 W/ B
lg_amax amax# r) y$ a: x$ z% ~9 l2 U3 p
n (1+ (/ (- len (* amax 2) lg_width)4 V& G* A7 l) N2 C
(+ (* amax 2.5) (* lg_width 3)). d) g7 G4 W u, j
)
( f/ G- U0 e9 b' G5 c% y
)
7 Z# X5 H% t& I# q2 H
)1 p8 J% b) `, t# F$ n+ ]1 Z5 }
(if (> n (fix n))
+ o0 C& T4 x \5 P
(setq n (1+ (fix n)))8 H3 {+ M5 F3 C
)3 w5 M2 S# \* L1 B$ U* \6 u' h
(if (< n 1)
9 Z# j! V9 h/ w }
(setq n 1)/ K/ r* p4 r8 |- R8 r
)1 [, B, r( T+ e( ]
)( O7 r- _& N9 Q( x* A" @* \
)
; V. V! @, J- F$ e3 U
)
6 @, V4 k) @9 E% X8 M
;;画图
1 Z. C2 l4 H% c0 [9 K, `8 F
;;记住原来的对象捕捉设置; W( j2 N- }. A# @6 U
;;按花形数量计算A值
0 ] q; w) g% j! r8 y1 k/ Z+ {
(setq
6 x8 f# m3 y2 ~
oldosmode (getvar "osmode")
+ R7 i+ G) h; P
a (/ (- len (* lg_width (+ (* (1- n) 3) 1)))
, v" z7 G* i( q0 i! d7 `. B
(+ (* (1- n) 2.5) 2), j. t: a6 q4 u# C
)6 C6 ]' f. B; D% n, m
)8 ?$ O# b: w9 b F
;;暂时关闭对象捕捉! I+ A+ T8 G: u( d1 l' Y: Y
(setvar "osmode" 0)2 X4 h) p) ]! @# {, X# H
;;屏蔽命令回显
( h6 i6 W7 _% o% R& U
(setvar "CMDECHO" 0)
: M3 M# G! z8 S& x" D
;;以指定的插入点为左下角,按指定的栏杆长度和高度确定对角,画矩形
4 e# V( k- Q, h' F
(command "rectang"
. g, Q2 l/ A( G4 u4 q- O
basepoint
& D! T- u1 |4 i. E+ ~
(list (+ (car basepoint) len) (+ (cadr basepoint) lg_high))
6 E2 v3 d7 d$ ]1 r9 ?
)* f& R/ `; H+ v" ]
;;在第一个矩形外侧一个方钢宽度处画第二个矩形
2 d% K+ M: y0 u1 A9 v
(command "rectang"
, Y1 L0 S) V. l! v
(list (- (car basepoint) lg_width)
- O# X! _" j% P, ^. Y
(- (cadr basepoint) lg_width)9 C* k% _8 R- ]% `
)( g* [/ D+ V- A" I' h
(list (+ (car basepoint) len lg_width)+ ?( e/ k, F% Y( b
(+ (cadr basepoint) lg_high lg_width)7 {) A( L4 P6 I
)
6 [' r' Y; |: e4 T' ?4 {* I
)
9 C# l& z' s. q. f
;;将指定点移到其右侧A距离处, p) p7 H( t3 X( \0 B
(setq basepoint (list (+ (car basepoint) a) (cadr basepoint)))# T, T8 v. x0 i2 }8 N1 q9 z; G
;;以此点为左下角,按方钢宽度和栏杆高度确定对角,画矩形,即第一条栏杆7 ]7 c% Z; B8 D( O5 L9 j4 t. z
(command "rectang"
! I2 T n: f3 p- F1 F
basepoint# A& J# J' P' o# P% J( t
(list (+ (car basepoint) lg_width)
/ K) x- ~% b, G
(+ (cadr basepoint) lg_high)
' Y# n9 p5 }5 I) a
)
9 Z6 ?& ~1 P. {8 `4 i
)2 m t% H/ M8 M6 H
;;用循环语句,依次移动指定点并画出其余矩形(栏杆)
" u; Q* d# z0 s9 k8 `- ^2 v7 Y
(repeat (1- n); i1 ]) I# Q+ l$ h; R; g
(setq
% l+ A7 g8 _, Y" [: f. I9 h
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint))$ {& S$ K$ h' j0 a2 r8 B
)1 u/ b, u( @6 p" J o
(command "rectang"
: p! A# o) @+ D
basepoint
1 g2 L+ f! U3 ^+ U+ Y+ R4 U9 d0 E8 ^6 E
(list (+ (car basepoint) lg_width)
! A% ]9 ]0 [7 d1 L& ?4 K9 j
(+ (cadr basepoint) lg_high)
# t/ a" J9 k, a1 J L
)
6 O1 ?9 B7 W% X0 Y n' `2 G4 F8 d
)% ?9 B1 n0 N* \4 L
(setq basepoint (list (+ (car basepoint) (* a 0.5) lg_width)
" F) W" t$ W" \0 A- H" G& i" H$ ^
(cadr basepoint)+ T( o) m u1 j! a' _# |: S
)- ]' c. [1 a+ i3 J# @4 p1 S: }
)
! B! t' A' I. [( ?" c" g
(command "rectang"
2 ]2 d4 p" C$ I
basepoint5 ]* T) C, p4 E# V
(list (+ (car basepoint) lg_width)$ F/ G" T* f4 k* N( r# l
(+ (cadr basepoint) lg_high)
3 A* ~2 \9 M3 H7 j, y. l
)
+ a$ T" G4 y/ `' l
)
& B$ q$ E2 I; |0 h. @
(setq
) F9 b" ]) I/ {( P# h' h
basepoint (list (+ (car basepoint) a lg_width) (cadr basepoint)) `$ B+ `6 W. T
)1 P5 N5 e$ J- U; p3 T- Y
(command "rectang": ^2 w5 p3 E, r& c- {' D
basepoint
% d% q5 |. b6 i+ K! |+ G, _
(list (+ (car basepoint) lg_width)
( M* H: T' m/ o, d c
(+ (cadr basepoint) lg_high)5 k' q$ i$ p X% C1 w1 t
)* {% v8 U: K; a' A/ N, V6 I- I
)( s* E$ E6 }( @ J$ j
)
3 s* g) i& P6 P* ^+ W8 A
;;恢复对象捕捉设置
4 w! ^4 Z; F( O% P' L2 e' y9 p
(setvar "osmode" oldosmode)
9 F. E, W! w! ?2 I0 n& e
;;打开命令回显/ O. g5 F. `# Y. N# G6 P
(setvar "CMDECHO" 1)) T# t% O/ H8 G
(princ)& |- @8 Z0 R+ i" G. q+ }
)0 v7 H& c% o8 i4 r; R, ~! ~' q

复制代码

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

楼上的太深渊了。

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

太深渊了？晕倒

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

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

本帖子中包含更多资源

原意是这样的

还有

要这样的

本帖子中包含更多资源