钢筋原位镜像

shona521 · 发表于 2005-4-8 13:17:37

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

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

×

实现钢筋原位镜像
经过自己的摸索和论坛上很多高手们的指点，也借用了一些高手们的程序。终于达到效果了。感谢论坛上的各位大虾热心帮助，让我的lisp编程有了一丁点的进步。希望这个程序给需要的人带来方便。本程序借鉴了论坛xyp1964的读取pline顶点的程序。谢谢xyp1964

好为人师 · 发表于 2006-7-16 10:46:56

应该贴个图

xyp1964 · 发表于 2006-7-16 21:50:52

修改（未经测试）

[FONT=courier new];|
选择钢筋原位镜像，原理为：
将选择的pline沿最长那条线段镜像,直到不再选择退出
|;
(prompt "\n *********FX-钢筋反向***[url]www.xdcad.net[/url]********")
(defun c:gjfx ()
(setvar "cmdecho" 0)
(while (setq s1 (entsel "\n\t选择需要反向钢筋<退出> : "))
(setq ss (entget (car s1)))
;;子程序xdd读出pline最长线段的端点坐标.
(xdd)
;;将选中的pline沿本身最长的线段镜像
(command "mirror" (car s1) "" dd1 dd2 "y")
)
(prin1)
)
;;;**** pline沿最长那条线段端点 ***** 子程序 ******
(defun xdd (/ eobj i leng pt0 pt1)
(setq eobj (vlax-ename->vla-object (car s1))
i 0
Leng-max 0
)
(while (setq pt0 (vlax-curve-getPointAtParam eobj (setq i (1+ i))))
(if (setq pt1 (vlax-curve-getPointAtParam eobj (setq n (1+ i))))
(progn
(setq Leng (distance pt0 pt1))
(if (> leng leng-max)
(setq ptmax0 pt0
ptmax1 pt1
number i
leng-max leng
)
)
)
)
)
;; **** 取出ptmax0,ptmax1(二维点) ****
(setq px1 (car ptmax0)
py1 (cadr ptmax0) ;端点1的x,y坐标
px2 (car ptmax1)
py2 (cadr ptmax1) ;端点2的x,y坐标
dd1 (list px1 py1)
dd2 (list px2 py2)
)
)[/FONT]

[FONT=courier new];| 
选择钢筋原位镜像，原理为： 
将选择的pline沿最长那条线段镜像,直到不再选择退出 
|; 
(prompt "\n *********FX-钢筋反向***[url]www.xdcad.net[/url]********") 
(defun c:gjfx () 
  (setvar "cmdecho" 0) 
  (while (setq s1 (entsel "\n\t选择需要反向钢筋<退出> : ")) 
    (setq ss (entget (car s1))) 
    ;;子程序xdd读出pline最长线段的端点坐标. 
    (xdd) 
    ;;将选中的pline沿本身最长的线段镜像 
    (command "mirror" (car s1) "" dd1 dd2 "y") 
  ) 
  (prin1) 
) 
;;;**** pline沿最长那条线段端点 ***** 子程序 ****** 
(defun xdd (/ eobj i leng pt0 pt1) 
  (setq        eobj         (vlax-ename->vla-object (car s1)) 
        i         0 
        Leng-max 0 
  ) 
  (while (setq pt0 (vlax-curve-getPointAtParam eobj (setq i (1+ i)))) 
    (if        (setq pt1 (vlax-curve-getPointAtParam eobj (setq n (1+ i)))) 
      (progn 
        (setq Leng (distance pt0 pt1)) 
        (if (> leng leng-max) 
          (setq        ptmax0 pt0 
                ptmax1 pt1 
                number i 
                leng-max leng 
          ) 
        ) 
      ) 
    ) 
  ) 
  ;; **** 取出ptmax0,ptmax1(二维点) **** 
  (setq        px1 (car ptmax0) 
        py1 (cadr ptmax0)                ;端点1的x,y坐标 
        px2 (car ptmax1) 
        py2 (cadr ptmax1)                ;端点2的x,y坐标 
        dd1 (list px1 py1) 
        dd2 (list px2 py2) 
  ) 
)[/FONT]

xgwl · 发表于 2006-7-17 10:53:58

只能单选，还是不太方便。

andy_yee · 发表于 2006-8-10 14:10:13

下来试试看，困扰很久的问题

studyalllife · 发表于 2009-3-8 17:55:40

太需要了太需要了太需要了太需要了太需要了太需要了太需要了太需要了太需要了太需要了太需要了太需要了太需要了太需要了太需要了太需要了太需要了太需要了太需要了

zhuxiaoming · 发表于 2009-3-9 22:41:28

很好的

redsky108 · 发表于 2009-3-17 12:42:15

为什么不行呢？我的是cad2005＋天正7。要不要装什么晓东工具箱或什么ET之类的？我都没有装

lengliqun · 发表于 2009-3-19 08:48:09

可不可以搞个批量反向钢筋的出来？

kikigz88 · 发表于 2009-7-8 09:14:36

强烈要求搞个批量选择钢筋的出来，大仙们先谢了啊

a6262 · 发表于 2018-4-14 14:50:24

厉害厉害厉害厉害厉害

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

钢筋原位镜像

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

相关帖子

太需要了