clty 发表于 2005-3-22 22:37:00

随机有名块

随机有名块，匿名块实在不方便！



我想效果要和下面龙龙的匿名块一样快截，先谢谢大家了


;;建立匿名块<BR>;;by 龙龙仔<BR>(defun C:NONAME_BLK (/ HOLDECHO HOLDBLIP A AA BLKREF)<BR>       (command "_.undo" "_group")<BR>       (setq HOLDECHO (getvar "cmdecho"))<BR>       (setq HOLDBLIP (getvar "blipmode"))<BR>       (setvar "cmdecho" 0)<BR>       (setvar "blipmode" 0)<BR>       (prompt "\n选取对象建立匿名块: ")<BR>       (setq AA (ssget))<BR>       (setq A (rtos (* (getvar "CDATE") 1E8)))<BR>       (if (/= AA NIL)<BR>                       (progn<BR>                                       (command "_.BLOCK" A "0,0" AA "")<BR>                                       (command "_.INSERT" A "@" "" "" "")<BR>                                       (setq BLKREF (vlax-ename-&gt;vla-object (entlast)))<BR>                                       (vla-put-name<BR>        (vla-item (vla-get-blocks<BR>                                       (vla-get-activedocument (vlax-get-acad-object))<BR>                       )<BR>                       (vla-get-name BLKREF)<BR>        )<BR>        "*U"<BR>                                       )<BR>                                       (vlax-release-object BLKREF)<BR>                       )<BR>                       (alert "\n没有选取任何对象!")<BR>       )<BR>       (setvar "blipmode" HOLDBLIP)<BR>       (setvar "cmdecho" HOLDECHO)<BR>       (command "_.undo" "_end")<BR>       (princ)<BR>)

无痕 发表于 2005-4-7 14:14:00

拷贝到剪贴板


粘贴为块

caoyin 发表于 2006-3-10 16:00:00

<P>.................................................</P>
<P>&nbsp;"*U"&nbsp;&nbsp;&nbsp; ;;;把 *u 删掉就可生成以系统时间命名的块<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vlax-release-object BLKREF)<BR>&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp; (alert "\n没有选取任何对象!")<BR>&nbsp; )<BR>&nbsp; (setvar "blipmode" HOLDBLIP)<BR>&nbsp; (setvar "cmdecho" HOLDECHO)<BR>&nbsp; (command "_.undo" "_end")<BR>&nbsp; (princ)<BR>)</P>
页: [1]
查看完整版本: 随机有名块