(vla-put-colormethod colObj acColorMethodByACI)
cad2021程序运行到这条代码就出现:插入点: ; 错误: Automation 错误。未提供说明。把这条语句屏蔽就正常运行了？不知道什么情况。
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 发表于 2023-4-9 21:19
我在繁體cad2018 執行此語法皆正常, 未發生上述情況 無法解決你的問題
不過上網查了一下 也有國外網友...
谢谢，学习下，其实我发现把那条语句屏蔽了也正常运行，只不过不知道屏蔽后还会出现什么问题。
怎么修改不要表格，就单行文字排列，类似这样子
本帖最后由 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 取用, 可自行寫程式修改成你要的 单行文字排列
谢谢楼主分享
lee50310 发表于 2024-7-14 23:26
請重新下載最新V2.2版程式
谢谢楼主，但是我不懂具体怎么写，只会对写好的程序简单的修改一下
本帖最后由 lee50310 于 2024-7-15 22:21 编辑
夜冥音 发表于 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哪里你漏改啦 ，再次感谢