[求助]：怎么样实现双向偏移呢

zeng317 · 发表于 2006-4-27 04:35:38

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

就是实现双向的offset的lisp程序啊

ewenhui · 发表于 2006-4-27 16:36:11

http://www.xdcad.net/forum/showt ... 2306713#post2306713

zeng317 · 发表于 2006-5-4 04:41:31

有没有lisp或者arx的啊!!!帮帮忙吧

ewenhui · 发表于 2006-5-4 13:32:45

最初由 zeng317 发布
[B]有没有lisp或者arx的啊!!!帮帮忙吧 [/B]

上面不是给你了吗？点连接

zeng317 · 发表于 2006-5-4 18:33:57

在14下用不成啊!我是过了!那位能帮帮忙谢谢了啊

qiaqiadeng · 发表于 2006-5-31 15:41:06

仅供参考

(defun c:bf () ;两边偏移
  (prompt "偏移后两线间距离即为输入的距离\n")
  (prompt "\n当前宽度：")
  (prompt (rtos (getvar "OFFSETDIST") 2 2))
  (setq dst (getreal "请输入宽度："))
  (if (= dst nil)
(setq dst (getvar "OFFSETDIST"))
  )
  (prompt (strcat "现在的距离是：" (rtos dst 2 2)))
  (setq obj (car (entsel "\n请选择要偏移的线:")))
  (setq objlist (entget obj))
  (setq pa (cdr (assoc '10 objlist))) ;线的起点
  (setq pb (cdr (assoc '11 objlist))) ;线的终点
  (setq ang (angle pa pb))
  (setq p1 (polar pa (+ ang (/ pi 2)) 1000))
  (setq p2 (polar pa (- ang (/ pi 2)) 1000))
  (command "offset" (/ dst 2) obj p1 "")
  (command "offset" (/ dst 2) obj p2 "")
  (setvar "OFFSETDIST" dst)
  (setq str (getstring "是否要删除中间的线？是(D)否(任意键):\n"))
  (if (or (= str "d") (= str "D"))
(entdel obj)
  )
)

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

[求助]：怎么样实现双向偏移呢

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块