應網友要求 <*** 網格編號及統計設計程v2.2版 已更新 ***>
本帖最后由 lee50310 于 2024-7-15 18:57 编辑原請求帖:http://bbs.mjtd.com/thread-187380-1-1.html
應網友要求設計一個<*** 網格編號及統計程式***>
執行指令:tt8
如動態圖演示
已更新至 V2.2版
最新版的 tt8.lsp (修正2點錯誤)修正日期: 2024/07/14
可測1.網格線 2.分散大小矩形框 如動態圖演示
本帖最后由 lee50310 于 2024-7-15 12:05 编辑
夜冥音 发表于 2024-7-14 16:58
怎么修改不要表格，就单行文字排列，类似这样子
請重新下載最新V2.2版程式
1.用文字編輯器(例:Notepad++) 編輯 tt8_chs_.lsp
找到程式中用紅色標註 的行 在前方用分號";" 註解掉
(remove-big_box) ;去除网格线面域后所产生一个最大包维框
(text-mark2 lst) ;在所选网格框图上标示 标号文字 及 距离值,并将列表值做统计及标号大小排序
(mark-data-table wel) ;将统计排序值绘制成表格
(Active_Layeror_layer) ;设原图层为当前
如下:
(text-mark2 lst) ;在所选网格框图上标示 标号文字 及 距离值,并将列表值做统计及标号大小排序
;(mark-data-table wel) ;将统计排序值绘制成表格 (此行註解)
(Active_Layeror_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 取用, 可自行寫程式修改成你要的 单行文字排列
lvanhui111 发表于 2023-4-9 15:43
(vla-put-colormethod colObj acColorMethodByACI)
cad2021程序运行到这条代码就出现:插入点: ; 错误 ...
我在繁體cad2018 執行此語法皆正常, 未發生上述情況 無法解決你的問題
不過上網查了一下 也有國外網友 使用cad2021 也發生同樣狀況也有網友提供一些意見
你參考看看是否對你有所幫助
https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/vla-put-colormethod-error/td-p/10195760 本帖最后由 lee50310 于 2024-7-15 22:21 编辑
夜冥音 发表于 2024-7-15 15:09
谢谢楼主，但是我不懂具体怎么写，只会对写好的程序简单的修改一下
已改好,統計結果改單排文字顯示如圖所示
tt8c_chs.lsp (此版 統計結果不使用表格 改 單排文字插入) ,其他功能不變
( 將结果修正為: 宽度*長度修正日期: 2024/07/15)
執行指令:tt8
热心的大神早呀啊 厉害厉害！ 谢谢大神！分享好用的东西
谢谢大神！分享好用的东西！ 能帮忙完成第一步，编号(点选和批量自动编号)功能吗 谢谢楼主分享{:1_1:} 蓝盾设计 发表于 2023-3-19 12:08
能帮忙完成第一步，编号(点选和批量自动编号)功能吗
不太懂你的意思?
測試圖面上的編號不是都已經編好的? lee50310 发表于 2023-3-19 12:34
不太懂你的意思?
測試圖面上的編號不是都已經編好的?
这是示例，实际是没有编号和标注长宽尺寸的，1：需要先点选网格或批量编号，2：再根据编号汇总，3：能一步实现编号汇总是更佳美好！ 湾湾同胞好久不见了，感谢分享