[编程申请]："跑道形状" 画图命令

lsjjm

"跑道形状" 画图命令
要求: 象画矩形一样,有提示, 有选项,可由用户依环境拉伸. 最好为一体(多义线)
主要参数: 位置, 方向(角度), 两直线间距离(也等于侧面圆弧直径)

eachy

最初由 lsjjm 发布
[B]"跑道形状" 画图命令
要求: 象画矩形一样,有提示, 有选项,可由用户依环境拉伸. 最好为一体(多义线)
主要参数: 位置, 方向(角度), 两直线间距离(也等于侧面圆弧直径) [/B]

标准跑道也就几种，按照资料集的参数作几个块用起来也方便。

lsjjm

其实我要画的不是"跑道", 只是那个形状的闭合曲线, 主要用途是画局部视图当界线用, 有何高见?

ll_j

需要那么复杂吗？画两条平行直线，再圆角不就行了吗，这种形状的局部视图会很多吗？

lsjjm

就象画圆或椭圆那样. 我们公司的图纸局部视图界线大都是这种形状...

陌生人

好好学习cad基本命令！◎

lsjjm

最初由 陌生人 发布
[B]好好学习cad基本命令！[/B]

要是连REC命令都不知道,  那也真是太"笨"了!?
你画的那是跑道形吗? 那是矩形倒了小圆角! 要求是圆弧直径等于上下两线距离, 且为任意角度. 就象画椭圆似的, 半径自动生成.
不管怎样还是谢谢你的回答.

另: 班主大人: 这问题还没有解决那, 就给加分了!

eachy

最初由 lsjjm 发布
[B]

要是连REC命令都不知道,  那也真是太"笨"了!?
你画的那是跑道形吗? 那是矩形倒了小圆角! 要求是圆弧直径等于上下两线距离, 且为任意角... [/B]

如果要求不严格可以写成这样：点一个点，然后由鼠标控制曲线的大小和方向。

另：

加币是因为积极参与，不是把问题解决了。

在这个地盘，按照规则其他板块的版主是不能在这里加分加币的，我也是只能给别人加币。我想分、币的时候除了老大可以在这给我加外，其他时候只能到别的板块“混”几个。

陌生人

玩玩而已，别紧张啊

lsjjm

难得你这么热心参与! 说声谢谢鼓励鼓励.
纯粹的图形是可以画出来, 但就想要画椭圆那样的状态. 我还曾想先画椭圆,  然后在用倒角的矩形替代, 试试看再说.

陌生人

跑道有椭圆的么？是两个半圆加一个矩形吧？如果你是要椭圆，那就另外说了，你是用在什么地方？

lsjjm

跑道怎么是椭圆呢？我是说操作步骤象画椭圆似的. 用途主要是画局部视试图边界. 看前面贴子!

eachy

几个动态的例子，操作一根线速度还不会太慢。
http://www.xdcad.net/forum/showt ... d=183775#post183775

http://www.xdcad.net/forum/showt ... d=179066#post179066

http://www.xdcad.net/forum/showt ... d=175584#post175584

aeo

画局部视试图边界,应该是正放着的

2. 
   
3. (defun c:aeo( / ang angx angy d dis p1 p2 p3 p4 x y os)
   
4. (if(and(setq p1(getpoint"\nFirst:"))
   
5.         (setq p3(getcorner p1"---Next:")))
   
6.      (progn
   
7.       (setq   x(abs(-(car p3)(car p1)))
   
8.               y(abs(-(cadr p3)(cadr p1)))
   
9.               angx(angle p1(list(car p3)(cadr p1)))
   
10.               angy(angle p1(list(car p1)(cadr p3)))
    
11.               dis(abs(- x y))
    
12.               d(/(min x y)2.)
    
13.       )
    
14.       (if(> x y)(setq ang angx)(setq ang angy))
    
15.       (setq p1(polar p1 ang d) p2(polar p1 ang dis)
    
16.             p3(polar p3(+ pi ang)d) p4(polar p3(+ ang pi)dis))
    
17.       (setq os(getvar"osmode"))(setvar "osmode"0)
    
18.       (command".pline"p1 p2 "a"p3"l"p4"a"p1"")
    
19.       (setvar "osmode"os)
    
20. ))
    
21. )
    

<br /> (defun c:aeo( / ang angx angy d dis p1 p2 p3 p4 x y os)<br /> (if(and(setq p1(getpoint"\nFirst:"))<br />         (setq p3(getcorner p1"---Next:")))<br />      (progn<br />       (setq   x(abs(-(car p3)(car p1)))<br />               y(abs(-(cadr p3)(cadr p1)))<br />               angx(angle p1(list(car p3)(cadr p1)))<br />               angy(angle p1(list(car p1)(cadr p3)))<br />               dis(abs(- x y)) <br />               d(/(min x y)2.)<br />       )<br />       (if(> x y)(setq ang angx)(setq ang angy))<br />       (setq p1(polar p1 ang d) p2(polar p1 ang dis)<br />             p3(polar p3(+ pi ang)d) p4(polar p3(+ ang pi)dis))<br />       (setq os(getvar"osmode"))(setvar "osmode"0)<br />       (command".pline"p1 p2 "a"p3"l"p4"a"p1"")<br />       (setvar "osmode"os)<br /> ))<br /> )<br />

lsjjm

最初由 aeo 发布
[B]画局部视试图边界,应该是正放着的
      ... [/B]

如果都是正放着的那就简单多了, 问题是多数都是斜的.