另一个愚蠢的问题

neondeon298 · 发表于 2022-7-7 13:13:10

试图证明管道比我绘制的管道长（试图节省纸张空间）。我使用的换行符是否足够，或者它是否立即告诉读者我是新手？我真的不在乎他们怎么想。。。这是我的画。但是，是的，只是你对起草标准的想法。

rkmcswain · 发表于 2022-7-7 13:31:11

我觉得还可以。我认为这个例子展示了一种更传统的折线布局（其中a-a在水平管道上？）

neondeon298 · 发表于 2022-7-7 13:46:22

http://draftingmanuals.tpub.com/14276/img/14276_145_1.jpg

是的，我通常用你的例子来表示非管道，但链接的jpg显示管道有一些波浪动作。但它也是一个剖面视图，因此链接中的两个视图都不起作用。
但我喜欢你的答案，所以我会坚持下去，哈哈。。。谢谢

BIGAL · 发表于 2022-7-7 14:10:44

这是圆形管状的，可能是1980年的版本。

copy


; DRAWS ELLIPSEOID ENDS ON A PIPE
(SETQ PT1 (GETPOINT "\n PICK PT1"))
(SETQ PT2 (GETPOINT "\n PICK PT2"))
(SETQ DIST (DISTANCE PT1 PT2))
(SETQ ANG (ANGLE PT1 PT2))
(SETQ MIDPT (POLAR PT1 ang (/ DIST 2.0)))
(SETQ BULGE (GETREAL "\n ENTER BULGE FACTOR  <40> ")) 
(if (= BULGE nil)(setq BULGE 0.4)(setq bulge (/ bulge 100)))
(SETQ DIST (/ DIST 4.0))
(SETQ PT3 (POLAR PT1 ANG DIST))
(SETQ ANG (+ ANG 1.5714))
(SETQ DIST (* DIST BULGE))
(SETQ PT3 (POLAR PT3 ANG DIST))
(COMMAND "ARC" PT1 PT3 MIDPT)
(COMMAND "COPY" "L" "" PT1 MIDPT)
(COMMAND "MIRROR" "L" "" PT1 PT2 "N")
(setq bulge nil
     pt1   nil
     pt2  nil)
(PRINC)

SLW210 · 发表于 2022-7-7 14:23:31

Ore使用Kent Cooper在此处找到的LISP。

我通常在管道链接中使用您的示例中的圆形管状。

[综合讨论] 另一个愚蠢的问题

发表回复

精选推荐

浏览过的版块