线型长度计算器

RyanAtNelco · 发表于 2022-7-6 14:57:25

李-非常感谢，但是我只收到一条消息说：>

有def。连续的线条，我用我的自定义线型也试过了，但没有成功

Lee Mac · 发表于 2022-7-6 15:00:41

抱歉，忘了提一下，这在设置为BYLAYER的行上不起作用-需要更多编码

但很快就打败了比尔

RyanAtNelco · 发表于 2022-7-6 15:04:09

对于此项目，我的线将替代为特定线型。通常情况并非如此，但我的公司已经没有颜色了，我不得不修改一些新的颜色和笔设置，并获得上级的许可来更改所有这些。

Commandobill · 发表于 2022-7-6 15:04:49

对不起，我没有评论它的功能。我必须在这个周末或星期一去上班，这一天就快结束了。

copy

(defun c:lte (/ drac ltype ltlst xlSheets leng pline row ss sumlen total x xlApp xlBook xlBooks xlCells xlSheet)
 (vl-load-com)
 (setq    xlApp       (vlax-get-or-create-object "Excel.Application")
   xlBooks  (vlax-get-property xlApp "Workbooks")
   xlBook       (vlax-invoke-method xlBooks "Add")
   xlSheets (vlax-get-property xlBook "Sheets")
   xlSheet       (vlax-get-property xlSheets "Item" 1)
   xlCells       (vlax-get-property xlSheet "Cells")
   )
 (vla-put-visible xlApp :vlax-true)
 (vlax-put-property xlCells "Item" 1 1 "Linetype")
 (vlax-put-property xlCells "Item" 1 2 "Length")
 (setq ltlst (list (cdr (assoc 2 (tblnext "Ltype" t)))))
 (while (setq ltynm (tblnext "Ltype"))
   (setq ltlst (append (list (cdr (assoc 2 ltynm)))ltlst))
   )
 (setq row 2
   total 0)
 (repeat (length ltlst)
   (setq ltype (car ltlst))
   (if (setq ss (ssget "_X" (list (cons 0 "*LINE")(cons 6 ltype))))
     (progn
   (setq drac -1 sumlen 0)
   (repeat (sslength ss)
     (setq pline (vlax-ename->vla-object (ssname ss (setq drac (1+ drac)))))
     (setq leng  (vlax-curve-getdistatparam pline
           (vlax-curve-getendparam pline)))
     (setq sumlen (+ sumlen leng)))
   (vlax-put-property xlCells "Item" row 1 ltype)
   (vlax-put-property xlCells "Item" row 2 (rtos sumlen 2 3))
   (setq total (+ total sumlen))
   (setq ltlst (cdr ltlst))
   (setq row (+ row 1))
   )))
 (setq row (+ row 1))  
 (vlax-put-property xlCells "Item" row 1 "Total:")
 (vlax-put-property xlCells "Item" row 2 (rtos total 2 3))
 
 (mapcar (function (lambda(x)
             (vl-catch-all-apply
           (function (lambda()
                   (progn
                     (vlax-release-object x)
                     (setq x nil)))))))
     (list xlCells xlSheet xlSheets xlBook xlBooks xlApp)
     )
 (alert "Close Excel file manually")
 (gc)(gc)
 (princ)
 )

Commandobill · 发表于 2022-7-6 15:08:16

我也没有做我的，所以它会得到'bylayer'的线型

哈哈，你真的赢了我。。。一旦我看到你的，我改变了我的编码很多，所以它是不一样的。。。（我拿出地图车）

Lee Mac · 发表于 2022-7-6 15:12:51

比尔，你的只处理未设置为BYLAYER的行是吗？

此外，它将拾取所有*多段线和直线-我不确定OP是否只需要直线。。

无论如何，这应该处理设置为BYLAYER的*行：

{Some funky ss filter…}

copy


[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:ltlen [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] ldef lt tdef ss len laylst[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] laylst [b][color=#ff00ff]""[/color][/b][b][color=RED])[/color][/b]
 
 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ldef [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]2[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]tblnext[/color][/b] [b][color=#ff00ff]"LTYPE"[/color][/b] [b][color=BLUE]T[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] lt
       [b][color=RED]([/color][/b][b][color=BLUE]getstring[/color][/b] t
         [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\nSpecify Linetype <"[/color][/b] ldef [b][color=#ff00ff]">: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b] [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#ff00ff]""[/color][/b] lt[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] lt [b][color=RED]([/color][/b][b][color=BLUE]strcase[/color][/b] ldef[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=BLUE]nil[/color][/b][b][color=RED])[/color][/b]
           [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]snvalid[/color][/b] lt[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
            [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#ff00ff]"\n** Linetype Name Not Valid **"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
           [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]tblsearch[/color][/b] [b][color=#ff00ff]"LTYPE"[/color][/b] lt[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
            [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#ff00ff]"\n** Linetype Not Found in Drawing **"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]t[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] lt [b][color=RED]([/color][/b][b][color=BLUE]strcase[/color][/b] lt[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=BLUE]nil[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 
 [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tdef [b][color=RED]([/color][/b][b][color=BLUE]tblnext[/color][/b] [b][color=#ff00ff]"LAYER"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] tdef[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] lt [b][color=RED]([/color][/b][b][color=BLUE]strcase[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]6[/color][/b] tdef[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] laylst
       [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]2[/color][/b] tdef[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]chr[/color][/b] [b][color=#009900]44[/color][/b][b][color=RED])[/color][/b] laylst[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] laylst [b][color=RED]([/color][/b][b][color=BLUE]vl-string-right-trim[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]chr[/color][/b] [b][color=#009900]44[/color][/b][b][color=RED])[/color][/b] laylst[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 
 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ss [b][color=RED]([/color][/b][b][color=BLUE]ssget[/color][/b] [b][color=#ff00ff]"_X"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]0[/color][/b] [b][color=#ff00ff]"*LINE"[/color][/b][b][color=RED])[/color][/b]
                                [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]-4[/color][/b] [b][color=#ff00ff]"<OR"[/color][/b][b][color=RED])[/color][/b]  [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]6[/color][/b] lt[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]-4[/color][/b] [b][color=#ff00ff]"<AND"[/color][/b][b][color=RED])[/color][/b]
                                [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]-4[/color][/b] [b][color=#ff00ff]"<NOT"[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]6[/color][/b] [b][color=#ff00ff]"*"[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]-4[/color][/b] [b][color=#ff00ff]"NOT>"[/color][/b][b][color=RED])[/color][/b]
                                [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]8[/color][/b] laylst[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]-4[/color][/b] [b][color=#ff00ff]"AND>"[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]-4[/color][/b] [b][color=#ff00ff]"OR>"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] len
       [b][color=RED]([/color][/b][b][color=BLUE]apply[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]+[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]function[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b]x[b][color=RED])[/color][/b]
               [b][color=RED]([/color][/b][b][color=BLUE]vla-get-Length[/color][/b] x[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]vlax-ename->vla-object[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]cadr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]ssnamex[/color][/b] ss[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\n<< Total Length of "[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]sslength[/color][/b] ss[b][color=RED])[/color][/b] [b][color=#009900]2[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
                    [b][color=#ff00ff]" Lines is: "[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] len [b][color=#009900]2[/color][/b] [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\n<< No Lines Found With Linetype "[/color][/b] lt [b][color=#ff00ff]" >>"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

Commandobill · 发表于 2022-7-6 15:17:01

啊，这不公平。。我不知道如何使用（缺点4）尚未。。。你的代码对我来说太快了。如果有机会的话，我会在这个周末的某个时候超过你的

Commandobill · 发表于 2022-7-6 15:20:14

哦，说到哪一个（缺点4）上有好帖子？

RyanAtNelco · 发表于 2022-7-6 15:22:26

这些太棒了！他们都做得很好

我知道我之前说过我希望它在excel中，但有没有办法把它也放在autocad的表格中？在对这个问题进行更多思考之后，最终这将变得更容易。李如果你把几种线型的值放在一个表中，那将是绝对完美的。我想很多人都可以用它来节省很多时间。

再次感谢你们的辛勤工作，他们真的很棒！！！

Lee Mac · 发表于 2022-7-6 15:24:20

ss过滤器中的-4代码实际上并不难掌握tbh，即使你应该也能理解

简单地说，它就像过滤器中的条件一样工作：

因此：

copy


(list (cons 0 "CIRCLE")
     (cons -4 "<OR") (cons 40 5) (cons 8 "0") (cons -4 "OR>"))

表示层“0”上的所有圆或半径为5的所有圆（或两者都包含在内，使用异或表示非包含性）。

只需将术语附在“-4个列表中，如图所示。

[编程交流] 线型长度计算器

发表回复

精选推荐