网上找的结构用的钢筋断点lisp程序，用不了希望有大师帮忙改进一下

那一抹微笑

加载了用不了，功能如图所示，下面是源码：
[code="lisp] (defun c:tt ( / e en la p pp pt pt1 pt2 px)
(defun mkline (la pt1 pt2) (entmakex (list '(0 . "LINE") (cons 8 la) (cons 10 pt1) (cons 11

pt2))))
  (vl-load-com)
  (while (setq en (entsel "\n选择钢筋断点:")
  pt (getpoint "\n点取弯钩方向:")
  )
  (setq e (car en)
    la (cdr (assoc 8 (entget e)))
    p (vlax-curve-getClosestPointTo e (cadr en))
    px (vlax-curve-getClosestPointTo e pt)
    pp (polar px (angle px p) 1e6)
  )
    (cond
      ((equal (* 0.25 pi) (angle p pt) (* 0.249 pi)) (mkline la p (polar p (* 0.25 pi)

100)) (vl-cmdf "break" (list e p) pp))
      ((equal (* 0.75 pi) (angle p pt) (* 0.249 pi)) (mkline la p (polar p (* 0.75 pi)

100)) (vl-cmdf "break" (list e p) pp))
      ((equal (* 1.25 pi) (angle p pt) (* 0.249 pi)) (mkline la p (polar p (* 1.25 pi)

100)) (vl-cmdf "break" (list e p) pp))
      ((equal (* 1.75 pi) (angle p pt) (* 0.249 pi)) (mkline la p (polar p (* 1.75 pi)

100)) (vl-cmdf "break" (list e p) pp))
      (t (exit))
    )x x
  )
)[/code]

dwg001

1，将倒数第三行： "     )x x  " ---->    x x 去掉 ，  就可以运行。
2，原程序仅对水平和竖直方向的钢筋有效；对斜向钢筋就明显不对了，应增加对钢筋方向的判断。

fengyun7000

(defun c:tt ( / e en la p pp pt pt1 pt2 px)
        (defun mkline (la pt1 pt2) (entmakex (list '(0 . "LINE") (cons 8 la) (cons 10 pt1) (cons

11 pt2))))
          (vl-load-com)
        (while (setq en (entsel "\n选择钢筋断点:")
                pt (getpoint "\n点取弯钩方向:")
                  )
          (setq e (car en)
                la (cdr (assoc 8 (entget e)))
                p (vlax-curve-getClosestPointTo e (cadr en))
                px (vlax-curve-getClosestPointTo e pt)
                pp (polar px (angle px p) 1e6)
        )
        (cond
        ((equal (* 0.25 pi) (angle p pt) (* 0.249 pi)) (mkline la p (polar p (* 0.25 pi) 10))

(vl-cmdf "break" (list e p) pp))
        ((equal (* 0.75 pi) (angle p pt) (* 0.249 pi)) (mkline la p (polar p (* 0.75 pi) 10))

(vl-cmdf "break" (list e p) pp))
        ((equal (* 1.25 pi) (angle p pt) (* 0.249 pi)) (mkline la p (polar p (* 1.25 pi) 10))

(vl-cmdf "break" (list e p) pp))
              ((equal (* 1.75 pi) (angle p pt) (* 0.249 pi)) (mkline la p (polar p (* 1.75 pi) 10))

(vl-cmdf "break" (list e p) pp))
        (t (exit))
            );end cond
          );end while
);end fun

fengyun7000

这是结果

那一抹微笑

dwg001 发表于 2019-3-29 13:10
1，将倒数第三行： "     )x x  " ---->    x x 去掉 ，  就可以运行。
2，原程序仅对水平和竖直方向的钢 ...

好的，谢谢

那一抹微笑

fengyun7000 发表于 2019-3-29 13:45
这是结果

好了，谢谢啊

那一抹微笑

那一抹微笑 发表于 2019-3-29 14:34
好的，谢谢

你好，我想问一下这个程序，遇到那种斜的钢筋就对齐不了，有没有办法改进的
(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)(car (reverse 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 (* 1 pi) 0.001)(equal ang (* 2 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)
)