求一个多段线标注

guardiangler

前两天才发现的这个niubility的网站，但是也发现了一点问题，就是每日插件里的热门插件的[曲线] [插件发布] 《标注线长并汇总总长》不能用，我加载进去显示是“读入的 (八进制) 字符不正确: 0”，崩溃的狠
所以想求助各位牛人帮忙看下是哪里的问题
多段线标注插件的目的是为了工程预算计算方便，我的习惯是计算工程量时用多段线在施工图上直接画下，并用不同的图层标注出来，然后用QSELECT命令把整个图层选中，在用多段线标注的插件里的相关命令把长度标注出来

附件是我现在用来算面积和周长的，但是这个单条的线就不能用了，所以很苦恼

希望各位能够帮忙弄下呗，珍惜求助

Lisphk

你看看你拷贝的文件是不是没拷贝好，存盘编码不对，是不是有大量的？？号
存盘时候选择ANSI格式保存。

marting

试试晓东工具箱 统计 菜单里面的 画框的工具

既然青春留不住

guardiangler

marting 发表于 2020-5-8 00:59
试试晓东工具箱 统计 菜单里面的 画框的工具

老哥，为什么我的跟你的不一样呀，没有曲线总长这个，还有您的办法可以，但是不能标注到每条线上，因为理论上后期会跟人家对量，所以每条线都标注出来会比较好判断
不过也谢谢老哥

guardiangler

Lisphk 发表于 2020-5-7 22:21
你看看你拷贝的文件是不是没拷贝好，存盘编码不对，是不是有大量的？？号
存盘时候选择ANSI格式保存。

老哥，我不懂编程，我是直接用的插件上的保存，保存的格式是TXT，之后把后缀改成了LSP呀，而且打开LSP之后代码跟源文件代码核对过了，都对的上的，可是就是不行。。
如果可以能不能把我发的那个插件改一改让他能标注多段线，计算总长

王鹏_pBZlo

程序中的100是字高,请自行修改为合适的字高
[sell=2]

1. (defun c:tt( / ss i tlen ent clen p1 p2 p3 ta)
   
2.         (setq ss (ssget (list (cons 0 "LWPOLYLINE"))))
   
3.         (setq i -1 tlen 0)
   
4.         (while (setq ent (ssname ss (setq i (1+ i))))
   
5.                 (command "lengthen" ent "")
   
6.                 (setq tlen (+ tlen (setq clen (getvar "perimeter"))))
   
7.                 (setq p1 (assoc 10 (setq entpar (entget ent))))
   
8.                 (setq p2 (assoc 10 (cdr (member p1 entpar))))
   
9.                 (setq p3 (list (/ (+ (cadr p1) (cadr p2)) 2)(/ (+ (caddr p1) (caddr p2)) 2)))
   
10.                 (setq ta (angle (cdr p1) (cdr p2)))
    
11.                 (if (< (* pi 0.5) ta (* pi 1.5)) (setq ta (+ ta pi)))
    
12.                 (entmake (list (cons 0 "TEXT")(cons 40 100) (cons 10 p3) (cons 1 (rtos clen 2 1))                (cons 50 ta)(cons 71 0)(cons 72 1)(cons 11 p3)(cons 73 1)))
    
13.         )
    
14.         (entmake (list (cons 0 "TEXT") (list 10 0 0 0) (cons 40 100) (cons 1 (strcat "总长=" (rtos tlen 2 1)))))
    
15.         (command "move" (entlast) "" "none" (trans (list 0 0) 0 1) pause)
    
16.         (princ)
    
17. )
    

(defun c:tt( / ss i tlen ent clen p1 p2 p3 ta)<br />         (setq ss (ssget (list (cons 0 "LWPOLYLINE"))))<br />         (setq i -1 tlen 0)<br />         (while (setq ent (ssname ss (setq i (1+ i))))<br />                 (command "lengthen" ent "")<br />                 (setq tlen (+ tlen (setq clen (getvar "perimeter"))))<br />                 (setq p1 (assoc 10 (setq entpar (entget ent))))<br />                 (setq p2 (assoc 10 (cdr (member p1 entpar))))<br />                 (setq p3 (list (/ (+ (cadr p1) (cadr p2)) 2)(/ (+ (caddr p1) (caddr p2)) 2)))<br />                 (setq ta (angle (cdr p1) (cdr p2)))<br />                 (if (< (* pi 0.5) ta (* pi 1.5)) (setq ta (+ ta pi)))<br />                 <font style=\"font-size:14px\">(entmake (list (cons 0 "TEXT")(cons 40 100) (cons 10 p3) (cons 1 (rtos clen 2 1))</font><font style=\"font-size:14px\">                (cons 50 ta)(cons 71 0)(cons 72 1)(cons 11 p3)(cons 73 1)))</font><br />         )<br />         (entmake (list (cons 0 "TEXT") (list 10 0 0 0) (cons 40 100) (cons 1 (strcat "总长=" (rtos tlen 2 1)))))<br />         (command "move" (entlast) "" "none" (trans (list 0 0) 0 1) pause)<br />         (princ)<br /> )<br />

[/sell]

guardiangler

王鹏_pBZlo 发表于 2020-5-9 09:53
程序中的100是字高,请自行修改为合适的字高
**** 本内容需购买可见 ****

老哥 不好意思 还得打扰下，这个命令是tt么？ 为什么我的不对呢 字高是在cons 40 100这里把100改成想要的对么

王鹏_pBZlo

guardiangler 发表于 2020-5-11 15:22
老哥 不好意思 还得打扰下，这个命令是tt么？ 为什么我的不对呢 字高是在cons 40 100这里把100改成想要的 ...

是的. 命令是tt,在第一行c:之后,左括号之前, 可自行修改成自己想要的命令

newer

guardiangler 发表于 2020-5-11 15:22
老哥 不好意思 还得打扰下，这个命令是tt么？ 为什么我的不对呢 字高是在cons 40 100这里把100改成想要的 ...

晓东工具箱也有多段线标注

guardiangler

王鹏_pBZlo 发表于 2020-5-11 15:53
是的. 命令是tt,在第一行c:之后,左括号之前, 可自行修改成自己想要的命令

谢谢！能看明白一部分，已经可以初步解决一部分问题了，只是有的时候不知道为什么不能选中要选的线

王鹏_pBZlo

guardiangler 发表于 2020-5-12 08:23
谢谢！能看明白一部分，已经可以初步解决一部分问题了，只是有的时候不知道为什么不能选中要选的线

可能不是多段线吧

newer

王鹏_pBZlo 发表于 2020-5-9 09:53
程序中的100是字高,请自行修改为合适的字高
**** 本内容需购买可见 ****

提个建议，文字最好是中间对齐子段的中心，比较美观

王鹏_pBZlo

newer 发表于 2020-5-13 19:41
提个建议，文字最好是中间对齐子段的中心，比较美观

已修改为对齐子段中心,谢谢你的建议