[分享]：板配筋长度计算

bolixin

非常感谢dandee  xiao_longxin  xyp1964  舟自横 winabcd  几位兄弟的帮忙，已能基本实现本人需要的功能，特贴出以供大家分享
原贴http://www.xdcad.net/forum/showthread.php?threadid=417635

(defun c:PJJS (/ ss lst cot is y x s1 s2)
  (setq ss (ssget '((0 . "LINE"))) cot 0 lst (list))
  (repeat (sslength ss)
    (setq is (ssname ss cot) cot (1+ cot))
    (setq y (cadr (dxf is 10))
          x (min (car (dxf is 10)) (car (dxf is 11)))
    )
    (setq lst (cons (list y x (ent-dist is)) lst))
  )
  (setq lst (vl-sort (vl-sort lst '(lambda (s1 s2)(< (cadr s1)(cadr s2)))) '(lambda (s1 s2)(< (car s1)(car s2)))))
  (setq lst (mapcar '(lambda (x) (setq x (nth 2 x))) lst))
  (setq string (vl-princ-to-string lst))
  (setq string (vl-string-translate " " "+" string))
  (setq string (vl-string-left-trim "(" string))
  (setq string (vl-string-right-trim ")" string))
  (dos_clipboard string)
  (princ string)
)
(defun dxf (ent i)
  (if (= (type ent) 'ename)
    (setq ent (entget ent))
  )
  (cdr (assoc i ent))
)
(defun ent-dist (ent)
  (distance (dxf ent 10) (dxf ent 11))
)

另外，该程序只能针对LINE，如果对LWPOLYLINE会产生错误，那位兄弟帮我改下？
再次感谢各位热心的兄弟！！！

huj81

谢谢，正好需要！

zjz198

好用吗？

qiaqiadeng

说说怎么用的