绘制隧道轮廓，东拼西凑，望大神帮忙优化

cjf160204 · 发表于 2025-1-16 23:50:12

(defun c:ac ()
(entmake
      (list '(0 . "ARC")
            (cons 10 (setq cen (getpoint "\n指定圆心")))
            (cons 40 (getdist cen "\n指定半径"))
            (cons 50 (setq sang (angle cen (getpoint cen "\n指定起点"))))
            (cons 51 (+ sang (* pi (/ (getreal "\n指定角度(°)") 180.0))))
      )
)
)
(defun c:ac1()
  (setq a (getpoint "\n请指点圆弧的起点："))
  (setq b (getpoint "\n请指定圆弧的端点："))
  (setq c (getreal  "\n请输入你想要的半径:"))
  (command "arc" a "E" b "R" c "")
  (princ
  )
  )

tanxindong · 发表于 2025-1-18 15:53:21

强大，学习了

cjf160204 · 发表于 2025-1-17 16:56:47

(defun c:ac ()
(setq start-point (getpoint "\n指定圆弧的起点 <退出>: "))
(while start-point
      (setq dir-point (getpoint start-point "\n指定半径方向: "))
      (setq rad (getdist start-point "\n指定半径长度: "))
      (setq cen (polar start-point (angle start-point dir-point) rad)) ; 计算圆心位置
      (setq sang (angle cen start-point)) ; 起点角度
      (setq deg (getint "\n请输入角度的度数部分: "))
      (setq min (getint "\n请输入角度的分数部分: "))
      (setq sec (getint "\n请输入角度的秒数部分: "))
      (setq total-deg (+ deg (/ min 60.0) (/ sec 3600.0))) ; 将度分秒转换为十进制度数
      (setq eang (+ sang (* pi (/ total-deg 180.0)))) ; 计算终点角度
      (entmake
         (list '(0 . "ARC")
               (cons 10 cen)
               (cons 40 rad)
               (cons 50 sang)
               (cons 51 eang)
         )
      )
      (princ "\n继续绘制圆弧...按任意键继续，按 'Esc' 键退出")
      (setq start-point (getpoint "\n指定下一个圆弧的起点 <按 'Esc' 退出>: "))
)
(princ "\n圆弧绘制完成。")
(princ)
)
(defun c:ac1()
  (setq a (getpoint "\n请指点圆弧的起点："))
  (setq b (getpoint "\n请指定圆弧的端点："))
  (setq c (getreal  "\n请输入你想要的半径:"))
  (command "arc" a "E" b "R" c "")
  (princ
  )
  )
(princ "\n加载完成，可以使用 c:ac 和 c:ac1 命令。")
(princ)

cjf160204 · 发表于 2025-1-17 16:06:41

(defun c:ac ()
(setq start-point (getpoint "\n指定圆弧的起点 <退出>: "))
(while start-point
      (setq dir-point (getpoint start-point "\n指定半径方向: "))
      (setq rad (getdist start-point "\n指定半径长度: "))
      (setq cen (polar start-point (angle start-point dir-point) rad)) ; 计算圆心位置
      (setq sang (angle cen start-point)) ; 起点角度
      (setq eang (+ sang (* pi (/ (getreal "\n指定角度(°): ") 180.0)))) ; 计算终点角度
      (entmake
         (list '(0 . "ARC")
               (cons 10 cen)
               (cons 40 rad)
               (cons 50 sang)
               (cons 51 eang)
         )
      )
      (princ "\n继续绘制圆弧...按任意键继续，按 'Esc' 键退出")
      (setq start-point (getpoint "\n指定下一个圆弧的起点 <按 'Esc' 退出>: "))
)
(princ "\n圆弧绘制完成。")
(princ)
)

(defun c:ac1()
  (setq a (getpoint "\n请指点圆弧的起点："))
  (setq b (getpoint "\n请指定圆弧的端点："))
  (setq c (getreal  "\n请输入你想要的半径:"))
  (command "arc" a "E" b "R" c "")
  (princ
  )
  )
(princ "\n加载完成，可以使用 c:ac 和 c:ac1 命令。")
(princ)

zmzk · 发表于 2025-1-17 07:02:52

程序简洁易懂，有实用性价值。你想要的半径加个默认值更方便些！

fangmin723 · 发表于 2025-1-17 07:39:20

圆心、半径、起始角度和终止角度画弧
http://bbs.mjtd.com/forum.php?mo ... amp;fromuid=7316343
(出处: 明经CAD社区)

VBALISPER · 发表于 2025-1-17 08:21:49

尽量少输入参数，人为给它固定下来。效率更高。

cjf160204 · 发表于 2025-1-17 16:08:25

优化以后，实际应用更方便

cjf160204 · 发表于 2025-1-17 16:58:08

角度输入更方便

xyp1964 · 发表于 2025-1-26 17:09:56

(defun c:tt ()
"底宽和半径画圆弧"
(defun udist (bit kwd msg def bpt / inp)
(if def
(setq msg(strcat"\n"msg"<"(rtos def)">: ")
bit(* 2(fix(/ bit 2)))
)
(setq msg(strcat"\n"msg": "))
)
(initget bit kwd)
(setq inp(if bpt(getdist msg bpt)(getdist msg)))
(if inp inp def)
)
(or dd (setq dd 20.))
(or rr (setq rr 15.))
(setq dd (Udist 7 "" "底宽<输入或鼠标直接量取>" dd nil))
(setq rr (Udist 7 "" "半径<输入或鼠标直接量取>" rr nil))
(if (and (setq d1 (* dd 0.5))
(< d1 rr)
(setq p0 (getpoint "\n底部中心基点<退出>: "))
)
(setq p1 (polar p0 pi d1)
p2 (polar p0 0 d1)
r1 (sqrt (- (* rr rr) (* d1 d1)))
p3 (polar p0 (* pi 0.5) (+ r1 rr))
s1 (command "arc" "non" p2 "non"p3 "non"p1)
)
)
(princ)
)

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

[测绘] 绘制隧道轮廓，东拼西凑，望大神帮忙优化

点评