[求助]请高手帮忙看如何修改
本帖最后由 作者 于 2008-5-6 8:21:56 编辑 <br /><br /> <p>下上面为一个插入日期的LSP，现想要如下功能：</p><p>1、插入日期及时间，精确到分钟；</p><p>2、作为图块插入，块名为date_block；</p><p>3、插入时先搜索图形文件中是否有同名块，如存在同名块则先记录原块插入点，然后删除原块并插入新块。</p><p>先谢谢各位！！！</p><p>-----------------------------------</p><p>(defun C:date() <br/> (setq date0 (menucmd "M=$(edtime,$(getvar,date), D\"/\"M\"\月/\"YYYY)"))<br/> (setq p1 (getpoint "\n请指定插入中心点 :"))<br/> (command "text" "j" "M" p1 3.5 0 date0)<br/> (princ)<br/>)</p><p>----------------------------------</p><p></p>
页:
[1]