aaddff 发表于 2006-7-25 18:36:00

BLOCKREPLACE

<P>请问我想用blockreplace做块替换</P>
<P>用法：(command (c:-blockreplace) "1" "2" "y")“1” “2”分别为两个块名，但好像blockreplace并不读取后边的值，不知为什么？请大家指教</P>

alin 发表于 2006-7-25 21:58:00

(defun ReplaceBlock (bkname1 bkname2)<BR>&nbsp; (vla-SendCommand<BR>&nbsp;&nbsp;&nbsp; (vla-get-activedocument (vlax-get-acad-object))<BR>&nbsp;&nbsp;&nbsp; (strcat "-blockreplace\n" bkname1 "\n" bkname2 "\nN\n")<BR>&nbsp; )<BR>)
页: [1]
查看完整版本: BLOCKREPLACE