BIGAL 发表于 2022-7-5 15:52:42

我应该先看看。
 
有没有谷歌和很多东西弹出，喜欢你伟大的排水选择比重新发明车轮更好。

Tharwat 发表于 2022-7-5 15:57:10

 
不用担心。

Roy_043 发表于 2022-7-5 16:02:41

一种解决方案是简单地添加选定多段线的最长边。
 
代码仅检查多段线是否闭合，是否有4条直线段。
(defun KGA_Conv_Pickset_To_EnameList (ss / i ret)
(if ss
   (repeat (setq i (sslength ss))
   (setq ret (cons (ssname ss (setq i (1- i))) ret))
   )
)
)

(defun CableTrayLength_MaxSide (enm / ptLst)
(setq ptLst
   (vl-remove
   nil
   (mapcar
       '(lambda (sub) (if (= 10 (car sub)) (cdr sub)))
       (entget enm)
   )
   )
)
(apply
   'max
   (mapcar
   'distance
   ptLst
   (cons (last ptLst) ptLst)
   )
)
)

(defun c:CableTrayLength ( / res ss)
(if
   (setq ss
   (ssget
       '(
         (0 . "LWPOLYLINE")
         (90 . 4)
         (-4 . "&=") (70 . 1)
         (-4 . "<NOT") (-4 . "<>") (42 . 0.0) (-4 . "NOT>")
       )
   )
   )
   (progn
   (setq res
       (apply '+ (mapcar 'CableTrayLength_MaxSide (KGA_Conv_Pickset_To_EnameList ss)))
   )
   (princ
       (strcat
         "\nTotal length of longest sides is: "
         (rtos res)
       )
   )
   )
)
(princ)
)

BIGAL 发表于 2022-7-5 16:05:41

Roy_043唯一的问题是，我不得不切割一个300宽、100毫米长的电缆槽来填补空白。
 
我认为是时候迈斯托根介入了。

Roy_043 发表于 2022-7-5 16:08:50

@比加尔：是的，正如已经讨论过的那样，这将是一个问题。
页: 1 [2]
查看完整版本: 闭环多段线总长度