钢筋对齐（已解决）

sunshinejwt · 发表于 2018-7-4 23:17:41

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

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

×

本帖最后由 sunshinejwt 于 2018-7-20 08:40 编辑

以前请人编了个程序，当时只测试了水平钢筋，现在想用了才发现竖向钢筋没有办法对齐。现在把图纸和原来的程序贴出来，请高手帮忙。可以在此程序的基础上修改，或者另外编写都可以。一个结构佬不胜感谢！
以下是当时的程序
(defun c:gja ()
  (setvar 'cmdecho 0)(setq old-osmode (getvar 'osmode))(setvar 'osmode 0)

  (while(= (setq endate(car(entsel "选择对齐的基准钢筋："))) nil))
  (setq datelst(entget endate))
  (setq jptlst(get10date datelst))
  (setq ang(angle(car jptlst)(cadr jptlst)))
  (setq pta(car jptlst))
  (while(= 1 1)
(print "选择需要对齐的钢筋（包括文字）：")
(setq ass(ssget))
(setq enss(mapcar 'cadr (cdr(reverse(ssnamex ass)))))
(setq n 0)
(repeat (length enss)
   (setq en(nth n enss))
   (if(equal "LWPOLYLINE" (cdr(assoc 0 (entget en))))
      (setq qptlst(get10date (entget en)))
      )
   (setq n(1+ n))
   )
(if(or(equal ang 0 0.001)(equal ang (* 0.5 pi) 0.001))
   (progn
      (command "_.move" ass "" (car qptlst) (list(car(car qptlst))(cadr(car jptlst))))
      )
   (progn
      (command "_.move" ass "" (car qptlst) (list(car(car jptlst))(cadr(car qptlst))))
      )
   );if结束
)

  (setvar 'osmode old-osmode)
  (prin1)
)
(defun get10date( datelst / ptlst x )
  (setq ptlst '())
  (mapcar '(lambda(x)
            (if(= 10 (car x))(setq ptlst(cons (cdr x) ptlst)))
            )
         datelst
         )
  (reverse ptlst)
  )

(defun *error*(msg)
  (setvar 'osmode old-osmode)
  )

marting · 发表于 2018-7-4 23:30:26

比较专业的程序，最好贴个图，说明下竖直钢筋怎么没有对齐，对齐后是什么样的

sunshinejwt · 发表于 2018-7-4 23:49:40

发的帖子里有CAD文件，下面两张图是截图。

lj524917100 · 发表于 2018-7-5 08:31:55

你这个写得太粗了，水平都不一定能对齐，角度是有一定误差的，水平有可能ang是0或2pi差一点点或pi...

marting · 发表于 2018-7-5 09:16:54

构建个对齐的变换矩阵就行了，用不了多少代码。

sunshinejwt · 发表于 2018-7-5 10:37:34

说实在的，这个代码是我请人代写的，现在联系不上了。这个代码我还看不懂。

hejiho · 发表于 2018-7-5 13:26:38

这个有些什么功能，能介绍一下吗

Lispboy · 发表于 2018-7-5 22:08:09

本帖最后由 newer 于 2018-7-6 00:52 编辑

试试，钢筋可以带钩，按最长的直线段对齐,水平、竖直、斜向都可以对齐
钢筋对齐.gif

(defun c:tt ()
(defun _maxlen (e / i len gl gl1)
(setq i -1
maxlen 1e-100
)
(repeat (xdrx_polyline_numverts e)
(if (= (xdrx_polyline_segtype e (setq i (1+ i))) "kLine")
(progn (setq gl (xdrx_getpropertyvalue e "linesegat" i)
len (xdge::getpropertyvalue gl "length")
)
(if (> len maxlen)
(progn (setq maxlen len
gl1 gl
)
)
(xdge::free gl)
)
)
)
)
gl1
)
(if (and (setq e (car (xdrx_entsel
"\n选取对齐基准钢筋<退出>:"
'((0 . "LWPOLYLINE"))
)
)
)
(xdrx_initssget "\n选择要对齐的钢筋和标注<退出>:")
(setq ss (xdrx_ssget '((0 . "LWPOLYLINE,TEXT"))))
)
(progn (xdrx_begin)
(setq gl1 (_maxlen e)
ss1 (xd::pickset:getsub ss '((0 . "LWPOLYLINE")))
e1 (ssname ss1 0)
gl2 (_maxlen e1)
pts1 (xdge::getpropertyvalue gl1 "startpoint" "endpoint")
pts2 (xdge::getpropertyvalue gl2 "startpoint" "endpoint")
pts1 (xd::pnts:minx->miny pts1 1e-3)
pts2 (xd::pnts:minx->miny pts2 1e-3)
base (xd::pnts:orthoproject pts2 (car pts1) (cadr pts1))
to1 (car base)
from1 (car pts2)
to2 (mapcar '+ to1 (mapcar '- (cadr pts1) (car pts1)))
from2 (mapcar '+ from1 (mapcar '- (cadr pts2) (car pts2)))
mat (xdrx_matrix_align from1 from2 to1 to2)
)
(xdrx_entity_transform ss mat)
(xdge::free gl1 gl2)
(xdrx_end)
)
)
(princ)
)

(defun c:tt () 
  (defun _maxlen (e / i len gl gl1) 
    (setq i         -1 
          maxlen 1e-100 
    ) 
    (repeat (xdrx_polyline_numverts e) 
      (if (= (xdrx_polyline_segtype e (setq i (1+ i))) "kLine") 
        (progn (setq gl         (xdrx_getpropertyvalue e "linesegat" i) 
                     len (xdge::getpropertyvalue gl "length") 
               ) 
               (if (> len maxlen) 
                 (progn        (setq maxlen len 
                              gl1 gl 
                        ) 
                 ) 
                 (xdge::free gl) 
               ) 
        ) 
      ) 
    ) 
    gl1 
  ) 
  (if (and (setq e (car        (xdrx_entsel 
                          "\n选取对齐基准钢筋<退出>:" 
                          '((0 . "LWPOLYLINE")) 
                        ) 
                   ) 
           ) 
           (xdrx_initssget "\n选择要对齐的钢筋和标注<退出>:") 
           (setq ss (xdrx_ssget '((0 . "LWPOLYLINE,TEXT")))) 
      ) 
    (progn (xdrx_begin) 
           (setq gl1   (_maxlen e) 
                 ss1   (xd::pickset:getsub ss '((0 . "LWPOLYLINE"))) 
                 e1    (ssname ss1 0) 
                 gl2   (_maxlen e1) 
                 pts1  (xdge::getpropertyvalue gl1 "startpoint" "endpoint") 
                 pts2  (xdge::getpropertyvalue gl2 "startpoint" "endpoint") 
                 pts1  (xd::pnts:minx->miny pts1 1e-3) 
                 pts2  (xd::pnts:minx->miny pts2 1e-3) 
                 base  (xd::pnts:orthoproject pts2 (car pts1) (cadr pts1)) 
                 to1   (car base) 
                 from1 (car pts2) 
                 to2   (mapcar '+ to1 (mapcar '- (cadr pts1) (car pts1))) 
                 from2 (mapcar '+ from1 (mapcar '- (cadr pts2) (car pts2))) 
                 mat   (xdrx_matrix_align from1 from2 to1 to2) 
           ) 
           (xdrx_entity_transform ss mat) 
           (xdge::free gl1 gl2) 
           (xdrx_end) 
    ) 
  ) 
  (princ) 
)

sunshinejwt · 发表于 2018-7-7 11:01:05

哈哈，终于可以用来。谢谢大家。论坛的力量真是无穷的。

依然小小鸟 · 发表于 2018-12-6 12:40:54

Lispboy 发表于 2018-7-5 22:08
试试，钢筋可以带钩，按最长的直线段对齐,水平、竖直、斜向都可以对齐

得配合晓东工具箱才能使用吗

sunshinejwt · 发表于 2018-12-6 14:40:41

我是安装了晓东的API后就可以使用了。

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

[已解决] 钢筋对齐（已解决）

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

点评