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

lvanhui111

(vla-put-colormethod colObj acColorMethodByACI)        

cad2021程序运行到这条代码就出现:插入点: ; 错误: Automation 错误。未提供说明。把这条语句屏蔽就正常运行了？不知道什么情况。

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

lvanhui111

lee50310 发表于 2023-4-9 21:19
我在繁體cad2018 執行此語法皆正常, 未發生上述情況 無法解決你的問題
不過上網查了一下 也有國外網友  ...

谢谢，学习下，其实我发现把那条语句屏蔽了也正常运行，只不过不知道屏蔽后还会出现什么问题。

夜冥音

怎么修改不要表格，就单行文字排列，类似这样子

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 发表于 2024-7-14 23:26
請重新下載最新V2.2版程式

谢谢楼主，但是我不懂具体怎么写，只会对写好的程序简单的修改一下

lee50310

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

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

夜冥音

lee50310 发表于 2024-7-15 18:50
已改好,統計結果改單排文字顯示  如圖所示
tt8b_chs.lsp
執行指令:tt8

感谢！！我刚还在看类似程序，想参考一下能不能解决，就看到回帖了

夜冥音

lee50310 发表于 2024-7-15 18:50
已改好,統計結果改單排文字顯示  如圖所示
tt8b_chs.lsp (此版 統計結果不使用表格 改 單排文字插入) , ...

刚发现统计的结果是宽度*宽度的，t3哪里你漏改啦 ，再次感谢