[LISP程序]：双向OFFSET加强版

wujimmy · 发表于 2004-3-23 19:57:08

r14的支持吗？

conn · 发表于 2004-3-31 10:01:51

能编个r14的吗？

andyhua5240 · 发表于 2004-3-31 17:20:16

老大,我在2002中加载后,输入2OF后没有反应呀?
这是怎么回事呀?
盼答复!

conn · 发表于 2004-4-4 20:37:50

看看这个能用吗？
(defun c:test(/ a b b1 p1 d pckbox)
(setq d 20 p1 nil pee (/ pi 2)e 3 pckbox (getvar "pickbox")line " ")
(if(= #parof nil)(setq #parof(/(getvar "viewsize")10)))
(princ "\n当前偏移量 <")(princ #parof)
(setq answer(getstring ">: "))
(if (/= (atof answer) 0.0)(setq #parof(atof answer)))
(princ line)
(setq ent(entsel "\n拾取线： "))
(setq point(cadr ent))
(princ line)
(setq side(getpoint "\n拾取要偏移的一方： "))
(setq dist(distance side point))(setq ang(angle side point))
(if(or(or(< ang 0.78)(> ang 5.5))(and(> ang 2.35)(< ang 3.92)))
(setq ang(- 0 ang))(setq ang(- pi ang))
);end if
(setq other(polar point ang dist))
(command "offset" #parof ent side ent other "")
(entdel(car ent))

(princ)
(princ)
)

yfywk · 发表于 2004-4-17 10:47:03

我将楼主的东西汉化了一下！命令改为了“OF”，当然你可以改为别的！只要你自己觉得方便就行！

andyhua5240 · 发表于 2004-4-17 12:45:59

20楼楼主的东东不能用呀，错误呀！

coolyxw · 发表于 2004-4-23 15:28:24

二楼的斑竹，你能不能把你的lsp贡献出来？我觉得你的右键图层非常有用

flowerson · 发表于 2004-4-29 15:24:32

3d下可以用吗？谢谢提供。我已经下载了。

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