he520930 发表于 2007-3-13 17:10:00

[求助]请帮助一下改这个lsp?

本帖最后由 作者 于 2007-3-13 17:12:00 编辑 <br /><br /> <p></p><p>本人在该论坛上找了一个插入时间的lsp,我想改成插入块的名称可不可以?</p><p>即:我的图中有一个块,名称为A12,当我用命令运行时,选取该块,就能读取该块的名称了,就能选择插入点来插入文字了,为A12</p><p>那位能帮助一下,谢谢!!</p>

Andyhon 发表于 2007-3-15 16:40:00

<p>(defun C:da()<br/>&nbsp;&nbsp; ;; 改成插入块的名称<br/>&nbsp;&nbsp; (setq BlkName (cdr (assoc 2 (entget (car (EntSel "\n請指定插入块: "))))))<br/>&nbsp;&nbsp; (setq pt0 (getpoint "\n請指定插入位置點: ")) <br/>&nbsp;&nbsp; ;; (setq date0 (menucmd "M=$(edtime,$(getvar,date),%%uDD.M.YYYY hh:mm:ss)"))<br/>&nbsp;&nbsp; (command "text" "j" "m" pt0 5.0 0 BlkName)<br/>&nbsp;&nbsp; (princ)<br/>)</p><p>;; 沒有錯誤處理,僅供參考</p><p></p>

he520930 发表于 2007-3-18 08:25:00

谢谢楼上的朋友,现在我的问题已经有人帮我解决了,多谢了!
页: [1]
查看完整版本: [求助]请帮助一下改这个lsp?