應網友要求 <*** 網格編號及統計設計程v2.2版 已更新 ***>

lee50310

原請求帖:http://bbs.mjtd.com/thread-187380-1-1.html
應網友要求設計一個  <*** 網格編號及統計程式***>

執行指令:tt8   
如動態圖演示

已更新至 V2.2版
最新版的 tt8.lsp         (修正2點錯誤)  修正日期: 2024/07/14
可測1.網格線 2.分散大小矩形框 如動態圖演示

lee50310

夜冥音 发表于 2024-7-14 16:58
怎么修改不要表格，就单行文字排列，类似这样子

請重新下載最新V2.2版程式


1.用文字編輯器(例:Notepad++) 編輯 tt8_chs_.lsp
找到程式中用紅色標註 的行 在前方用分號";" 註解掉

    (remove-big_box)                        ;去除网格线面域后所产生一个最大包维框        
    (text-mark2 lst)                           ;在所选网格框图上标示 标号文字 及 距离值,并将列表值做统计及标号大小排序
    (mark-data-table wel)                   ;将统计排序值绘制成表格   

    (Active_Layer  or_layer)                ;设原图层为当前

如下:
    (text-mark2 lst)                           ;在所选网格框图上标示 标号文字 及 距离值,并将列表值做统计及标号大小排序
    ;(mark-data-table wel)                   ;将统计排序值绘制成表格   (此行註解)

   (Active_Layer  or_layer)                ;设原图层为当前        

2.當程式執行   (text-mark2 lst) 完後 會將 标号文字 及 距离值,數量 以 列表型式存於 變數  wel 中
例 wel =  ( (("A-BL-1" "1000" "1000" "1000000") 6)
                 (("A-BL-2" "1000" "2000" "2000000") 6)
                 (("A-BL-3" "1200" "1000" "1200000") 9)
                 (("A-BL-4" "1200" "2000" "2400000") 10)) )         

3.對 變數 wel 取用, 可自行寫程式修改成你要的 单行文字排列
   

lee50310

lvanhui111 发表于 2023-4-9 15:43
(vla-put-colormethod colObj acColorMethodByACI)        

cad2021程序运行到这条代码就出现:插入点: ; 错误 ...

我在繁體cad2018 執行此語法皆正常, 未發生上述情況 無法解決你的問題
不過上網查了一下 也有國外網友 使用cad2021 也發生同樣狀況也有網友提供一些意見
你參考看看是否對你有所幫助
https://forums.autodesk.com/t5/v ... error/td-p/10195760

lee50310

夜冥音 发表于 2024-7-15 15:09
谢谢楼主，但是我不懂具体怎么写，只会对写好的程序简单的修改一下

已改好,統計結果改單排文字顯示  如圖所示
tt8c_chs.lsp (此版 統計結果不使用表格 改 單排文字插入) ,其他功能不變
( 將结果修正為: 宽度*長度  修正日期: 2024/07/15)
執行指令:tt8

tigcat

热心的大神早呀啊

nsh935

厉害厉害！

yaojing38

谢谢大神！分享好用的东西

paulpipi

谢谢大神！分享好用的东西！

蓝盾设计

能帮忙完成第一步，编号(点选和批量自动编号)功能吗

hzyhzjjzh

谢谢楼主分享

lee50310

蓝盾设计 发表于 2023-3-19 12:08
能帮忙完成第一步，编号(点选和批量自动编号)功能吗

不太懂你的意思?
測試圖面上的編號不是都已經編好的?

蓝盾设计

lee50310 发表于 2023-3-19 12:34
不太懂你的意思?
測試圖面上的編號不是都已經編好的?

这是示例，实际是没有编号和标注长宽尺寸的，1：需要先点选网格或批量编号，2：再根据编号汇总，3：能一步实现编号汇总是更佳美好！

czb203

湾湾同胞好久不见了，感谢分享