(求助)请问各位大神是否能帮小弟实现可以计算的偏移

999999 · 发表于 2020-12-14 10:41

本帖最后由 999999 于 2020-12-21 00:55 编辑

小弟我尝试了一下，没有用请教各位大神，，看有没有知道的，，帮忙实现一下，，谢谢喽
(defun c:U7()
   (setvar "cmdecho" 0)
   (command "OFFSET" "'CA" "")
   (setvar "CMDECHO" 1)
(princ)
)

这个问题之前在QQ上被一个大神解决了，但是那时候我只用07试了一下，没有用处，原来是我的07的问题，用高版本21试了一下，就有用，现在把代码贴出来，给各位共勉他的QQ:1020952830
;偏移计算
(defun c:Q()
   (command "OFFSET" "'CAL" pause pause "")
   (princ)
)

lijiao · 发表于 2020-12-14 10:41

(defun c:U7 (/ ent pt)
(setvar "cmdecho" 0)
(command "OFFSET" "'CAl")
(while
(and
(car (setq ent (entsel "\rSelect Object:")))
(setq pt (getpoint (osnap (cadr ent) "_near") "\rInput a Point:"))
)
(command (car ent) pt)
)
(command "")
(setvar "CMDECHO" 1)
(princ "\r ")
(princ)
)

xj6019 · 发表于 2020-12-14 11:14

(defun c:f25()
  (setq l(entsel "请选择直线/偏移基线偏移："));确定选择的直线
  (setq b 0)
  (setq p (getpoint "输入偏移方向："));确定偏移方向
  (repeat 1000
   (setq a (getreal "请输入偏移量："))
   (setq b (- (+ a b) 2.5)) ;偏移量设置
   (command "offset" b l p "")
  )
)

(defun c:f125()
  (if (null a1)(setq a1 20))
  (if (null (setq a (getreal (strcat "\n请输入偏移量<" (rtos a1 2 2) ">："))))
(setq a a1)
  )
  (setq a1 a)
  (setq l(entsel "请选择直线/偏移基线偏移："));确定选择的直线
  (setq b 0)
  (setq p (getpoint "输入偏移方向："));确定偏移方向
   (setq b(- a 1.25))  ;偏移量设置
   (command "offset" b l p "")
  )

xj6019 · 发表于 2020-12-14 11:15

两种方式，两个计算公式，试试效果，然后改成你自己的，套上自己的公式

999999 · 发表于 2020-12-14 12:06

lijiao 发表于 2020-12-14 11:41

您好，，我这边试了一下，出现这个问题，不知道怎么回事呢

999999 · 发表于 2020-12-14 14:37

xj6019 发表于 2020-12-14 11:15
两种方式，两个计算公式，试试效果，然后改成你自己的，套上自己的公式

哈哈，，试了有用，但是改不知道怎么改，我不知道怎么让偏移输入的尺寸，可以是输入3.6*160这样的，偏移后得出计算结果的尺寸

lijiao · 发表于 2020-12-14 15:07

本帖最后由 lijiao 于 2020-12-14 15:10 编辑

999999 发表于 2020-12-14 12:06
您好，，我这边试了一下，出现这个问题，不知道怎么回事呢

我这里只能用Cal,你把cal改为ca试试
可能与CAD的版本有关

999999 · 发表于 2020-12-14 15:19

本帖最后由 999999 于 2020-12-14 15:22 编辑

lijiao 发表于 2020-12-14 15:07
我这里只能用Cal,你把cal改为ca试试
可能与CAD的版本有关

还真的是，，我的07用不了，但是2021的可以用，，然后我让同事试了一下，同事的07又可以用

，，估计我的07不完善少东西

999999 · 发表于 2020-12-14 15:37

999999 发表于 2020-12-14 14:37
哈哈，，试了有用，但是改不知道怎么改，我不知道怎么让偏移输入的尺寸，可以是输入3.6*160这样的，偏移 ...

现在可以用了，代码已经贴出，，谢谢帮忙啦

999999 · 发表于 2020-12-14 15:38

xj6019 发表于 2020-12-14 11:15
两种方式，两个计算公式，试试效果，然后改成你自己的，套上自己的公式

问题已经解决啦，谢谢帮忙，，

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

[提问] (求助)请问各位大神是否能帮小弟实现可以计算的偏移

最佳答案

本帖子中包含更多资源

点评

本帖子中包含更多资源