偏移【自由距离】多重复制V1.0

尘缘一生 · 发表于 2019-1-7 19:38:15

本帖最后由尘缘一生于 2019-1-7 19:42 编辑

本代码比较实用了。。。。。

;;-------偏移自由距离多重复制------------------------------------------------
(defun C:PYFZ(/ *error* olderr s pt1 pt2 ang dis oldorh)
(setq olderr *error* *error* mypyfz)
(or dis (setq dis 15))
(setq s(ssget))
(setq pt1 (nth 1 (grread 5)))
(setq oldorh (getvar "ORTHOMODE"))
(setvar "ORTHOMODE" 1)
(setq pt2 (getpoint pt1 "\n请给出复制的方向:"))
(setq ang (angle pt1 pt2))
(setq pt2 pt1)
(command "undo" "be"); 设置undo起点
(while (/= dis 0.0)
  (setq dis (cond ((getdist (strcat "\n请输入距离<" (rtos dis 2 2) ">:输入【0】【ESC键】退出"))) (dis)))
  (setq pt2 (polar pt2 ang dis))
  (command "COPY" s "" pt1 pt2)
)
(setq *error* olderr)
(setvar "ORTHOMODE" oldorh)
(command ".UNDO" "E"); 设置UNDO终点
)
(defun mypyfz (msg)
(setvar "ORTHOMODE" oldorh)
(princ "\n程序退出...")
;;;;(princ msg)
(setq *error* olderr)
)
;;-----------------------------------------------------

尘缘一生 · 发表于 2019-1-7 20:41:26

依然小小鸟发表于 2019-1-7 20:12
大神我这个需求你会吗 http://bbs.mjtd.com/thread-178824-1-1.html

我做了一辈子结构，看了你要的偏移钢筋，这个其实很简单的。

首先：必须抛弃批量，为什么？因为五实际意义，你画钢筋大样时候，难道还批量画吗？批量画的部分，都在PKPM做完了，到CAD就是修改完善的！

那么剩下的就简单了：不就是线偏移吗？再加粗它而已！

依然小小鸟 · 发表于 2019-1-8 08:44:52

尘缘一生发表于 2019-1-7 20:41
我做了一辈子结构，看了你要的偏移钢筋，这个其实很简单的。

首先：必须抛弃批量，为什么？因为五实际 ...

我不用pkpm 我是搞地下结构的

依然小小鸟 · 发表于 2019-1-7 20:12:46

大神我这个需求你会吗 http://bbs.mjtd.com/thread-178824-1-1.html

bai2000 · 发表于 2019-1-8 09:35:12

应该做成向内向外偏移的复制

479274135 · 发表于 2019-1-10 14:05:14

支持，支持一下感谢分享

zmzk · 发表于 2019-12-12 19:56:51

好东西，值得拥有！！

cqf1980 · 发表于 2021-4-17 12:33:07

默认的距离是15
能否记住上次的距离？

zmzk · 发表于 2021-11-23 20:45:14

试了下，不错

xzd716 · 发表于 2021-12-13 20:53:08

感谢分享！

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

[源码] 偏移【自由距离】多重复制V1.0

本帖子中包含更多资源