CAD 中怎样可以吧中心线正好出零件3毫米

答案:3 悬赏:30 手机版

解决时间 2021-04-05 10:29

提问者网友：像風在裏
2021-04-05 01:43

最佳答案

五星知识达人网友：等灯
2021-04-05 03:03

将外边的线偏移3，修剪或延长中心线。
编程序，画好圆之后，用程序画中心线。

追问程序是怎么编啊追答保存为 cl.lsp

(defun c:cl ()
(setq scmde (getvar "cmdecho")) ;;;是否回显提示
(setvar "cmdecho" 0) ;;;关闭回显

(setq e (entsel "\n请选择要添加中心线的圆："))
(setq e (car e))
(setq cen (cdr (assoc 10 (entget e))))
(setq rad (cdr (assoc 40 (entget e))))

(if (= d0 nil) (setq d0 5))
(prompt "\n请输入中心线超出圆的长度，默认值为<")
(princ d0)
(prompt ">:")
(setq d (getreal ))
(if (= d nil) (setq d d0))
(setq d0 d)
(setq d (+ rad d))

(command "undo" "group")
(command "line" (list (car cen) (- (cadr cen) d) )
(list (car cen) (+ (cadr cen) d) ) "" )

(command "line" (list (- (car cen) d) (cadr cen) )
(list (+ (car cen) d) (cadr cen) ) "" )

(command "undo" "e")
(setvar "cmdecho" scmde) ;;;恢复系统中的原设置

(princ)
)

(princ "\n画圆的中心线程序成功加载！命令行以cl启动！")

全部回答

1楼网友：慢性怪人
2021-04-05 05:21

Offset 偏移然后输入3

2楼网友：千夜
2021-04-05 04:16

要么将圆向外偏移3毫米，修剪，然后删掉修剪的线
要么先修剪后，然后再拉长（LENGTHEN）3毫米

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！