你有用过这样的偏移方法吗?

只看该作者 · 发表于 2006-6-3 23:53:47

马上注册，结交更多同行朋友，交流，分享，学习。

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

x

在CAD中可以将一个元素同时偏移相同距离二次甚至几百次几千次以上吗?不过只要一个命令内就可完成的哦.有人知道吗?

只看该作者 · 发表于 2006-6-4 00:01:42

阵列

只看该作者 · 发表于 2006-6-7 12:10:16

应该是阵列吧

只看该作者 · 发表于 2006-10-12 00:26:25

不对,要是圆或者圆弧呢?比如说要用一个命令将圆A偏移十次.如何实现?

只看该作者 · 发表于 2006-10-12 07:48:47

EASY 写个循环语句就搞定

只看该作者 · 发表于 2006-10-12 11:29:27

高人出招吧!!!

只看该作者 · 发表于 2006-10-13 00:01:33

请问怎么写EASY语句?高手,你能告诉一下吗?谢谢啊

只看该作者 · 发表于 2006-10-13 16:47:29

随便写的，只是为了达到功能，仅供参考！
(defun C:no ()
(setq pt1(getpoint "\n请指定第一点位置:"))
(setq jl (getreal "\n请给定数值:"))
(setq ss (ssget))
(command "offset" jl ss pt1 "")
(command "offset" (* jl 2) ss pt1 "")
(command "offset" (* jl 3) ss pt1 "")
(command "offset" (* jl 4) ss pt1 "")
(command "offset" (* jl 5) ss pt1 "")
(command "offset" (* jl 6) ss pt1 "")
(command "offset" (* jl 7) ss pt1 "")
(command "offset" (* jl 8) ss pt1 "")
(command "offset" (* jl 9) ss pt1 "")
(princ)
)

只看该作者 · 发表于 2006-10-16 08:35:00

怎么没人顶的呢？
上面程序就对物体偏移了9次而已，大家怎么没想想要偏几千次怎么办？
顶的人多了，上传程序！

只看该作者 · 发表于 2006-10-16 15:58:33

;; multiply offset
(defun c:noffset()
(command "_undo" "be")
(setq entobj (car (entsel "\nSelect offseted original object : ")))
(setq pt1 (getpoint "\nInput the offset referance point : "))
(setq offsetdist (getreal "\nInput the offset distance , [Enter] -> 10 : "))
(if (= offsetdist nil)
(setq offsetdist 10))
(setq offsetnum (getint "\nInput the offsetting number , [Enter] -> 5 : "))
(if (= offsetnum nil)
(setq offsetnum 1))
(setq i 1)
(while (<= i offsetnum)
(command "_offset" (* i offsetdist) entobj pt1 "")
(setq i (+ i 1))
)
(command "_undo" "e")
(princ)
)

[原创] 你有用过这样的偏移方法吗?

马上注册，结交更多同行朋友，交流，分享，学习。

本帖子中包含更多资源

编程，命令noffset