+悬赏：改板配筋，梁柱箍筋功能。
改板配筋，梁柱箍筋功能：1键改成指定功能lsp。无论是1，2，3级板筋都指定改成8里的钢筋，如%%1306@100（2），%%13110@100（2）%%13212@100
（2）都能直接改成%%1308@100（2），%%1318@100（2）%%1328@100（2）。
梁柱箍筋类似。最好都整合在一起。
本帖最后由 x_s_s_1 于 2013-4-18 21:24 编辑
无惢 发表于 2013-4-18 20:06 static/image/common/back.gif
要求达到了，挺好的。还希望改进下。我用其他lsp也类似操作：命令-选择-Esc。没有报错提示啊。。。
命令: hh
选择对象: 指定对角点: 找到 1 个
选择对象: *取消*
; 错误: 函数被取消
我autocad2006没问题，是不是vba的问题啊改成subst试试(defun x_ssn (ss / n lst)
(repeat (setq N (sslength ss))
(setq LST (cons (ssname SS (setq N (1- N))) LST))
)
)
(defun c:hh (/ ss ent str en)
(while (setq ss (ssget '((0 . "text") (1 . "%%13*`@*"))))
(foreach en (x_ssn ss)
(setq ent (entget en)
str (cdr (assoc 1 ent))
ent (subst
(cons 1
(strcat (substr str 1 5)
"8"
(substr str (1+ (vl-string-search "@" str)))
)
)
(assoc 1 ent)
ent
)
)
(entmod ent)
)
)
(princ)
)
这个好做 本帖最后由 x_s_s_1 于 2013-4-18 11:50 编辑
问题表述不清晰，按个人理解写的
(defun x_ssn (ss / n lst)
(repeat (setq N (sslength ss))
(setq LST (cons (ssname SS (setq N (1- N))) LST))
)
)
(defun c:hh (/ ss obj str en)
(while (setq ss (ssget '((0 . "text") (1 . "%%13*`@*"))))
(foreach en (x_ssn ss)
(setq obj (vlax-ename->vla-object en)
str (vla-get-TextString obj)
)
(vla-put-TextString obj(strcat(substr str 1 5)"8"(substr str (1+(vl-string-search "@" str)))))
)
)
)
x_s_s_1 发表于 2013-4-18 11:37 static/image/common/back.gif
问题表述不清晰，按个人理解写的
hh-选择字体-按ESC。结果报错出现死机。（x_s_s_1,麻烦你在电脑上测试下，按这三个步骤）
我是在测试你的lsp时候，因为无意中选中了文字，而出现这问题的。导致cad重启，挺吓人啊。。。 x_s_s_1 看看这错误提示，到底是lsp导致，还是我cad问题。 x_s_s_1 发表于 2013-4-18 11:37 static/image/common/back.gif
问题表述不清晰，按个人理解写的
要求达到了，挺好的。还希望改进下。我用其他lsp也类似操作：命令-选择-Esc。没有报错提示啊。。。 x_s_s_1 发表于 2013-4-17 22:55 static/image/common/back.gif
命令: hh
选择对象: 指定对角点: 找到 1 个
谢谢，挺热心的。效率也高。。。 先收藏了，慢慢研究
页:
[1]