[编程申请]：怎么画相贯线的展开线

wxd2000___ · 发表于 2004-8-29 09:26:11

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

求助

zjfcumt · 发表于 2004-8-30 13:46:21

看看这个地方有没有你需要的东西！
http://civilworker.com/wltools/wltools.asp

zxq0220 · 发表于 2004-9-1 19:54:51

下面的小程序在ACAD R14上调试通过：
(DEFUN C:XGX ()
(SETQ OLDOS (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(SETVAR "CMDECHO" 0)
(SETQ D (GETDIST "\nDiamter of D= ")
   DS (GETDIST "\nDiamter of d= "))
(WHILE (> DS D)
(PROMPT "\nThe d must less than D! ")
(SETQ DS (GETDIST "\nReinter Diamter of d= "))
)
(SETQ B (GETREAL "\nAngle of the pipe (DEG) B= <90> "))
(WHILE (= B 0)
(PROMPT "\nThe angle B must begger than 0")
(SETQ B (GETREAL "\nAngle of the pipe (DEG) B= <90> "))
)
(SETQ B (/ (* (IF (= B nil) 90 0) PI) 180)
   ANG (- B PI)
   A 0 TA (/ (* 5 PI) 180)
   RS (* DS 0.5) R (* D 0.5)
   PT (GETPOINT "\nPipe Conect Point : ")
   PT1 (POLAR PT 0 (/ RS (SIN B))))
(IF (EQUAL D DS 1E-5) (PROGN
(SETQ PT2 (POLAR PT ANG (/ RS (SIN B))) PT3 (POLAR PT PI (/ RS (SIN B))))
(COMMAND "PLINE" PT1 PT2 PT3 "")
) (PROGN
(SETQ A (+ A TA) RA (* (SIN A) RS) RB (* (COS A) RS))
(COMMAND "PLINE" PT1 "A")
(SETQ PT2 (POLAR (POLAR PT 0 (/ RB (SIN B))) ANG (/ (- R (SQRT (- (* R R) (* RA RA)))) (SIN B))))
(COMMAND "S" PT2)
(REPEAT 35
  (SETQ A (+ A TA) RA (* (SIN A) RS) RB (/ (* (COS A) RS) (SIN B))
      PT2 (POLAR (POLAR PT 0 RB) ANG (/ (- R (SQRT (- (* R R) (* RA RA)))) (SIN B))))
  (COMMAND PT2)
)
(COMMAND "")
))
(SETVAR "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
(PRINC)
)

qxlonmsn · 发表于 2021-9-23 14:23:14

顶啊我也遇到相同的问题不知道斜交相贯线该怎么样展开

qxlonmsn · 发表于 2021-9-23 15:09:15

zxq0220 发表于 2004-9-1 19:54
下面的小程序在ACAD R14上调试通过：
(DEFUN C:XGX ()
(SETQ OLDOS (GETVAR "OSMODE"))

非常感谢但是这个程序只能算正交相贯线对于不是90度的斜交相贯线要报错

kmliro_2017 · 发表于 2024-3-9 07:52:03

谢谢分享！！！！！！

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

[编程申请]：怎么画相贯线的展开线

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评