[求助]：做无名块的方法

hawk500

下面是我做块的方法，带基点复制----粘贴为块，不只那位高人能按其思路写成 lisp 吗？
这样做的块是可编辑的。谢谢！

xshrimp

这个只是产生一个随机名的块,并不是所谓的无名块,概念错误。给你一个lsp,试试。[php]
;;-创建时间为名称的块,快速建块---------------------------
(defun vv(/ ss1 xx x1 x2 )
        (print "请选择加入块的对象:")   
        (setq ss1 (ssget))
        (princ "\n 选择基点: ")
        (setq p (getpoint))
        (setq xx (rtos (getvar "cdate") 2 6))   
        (setq x1 (* (atof xx) 1000000))
        (setq x2 (rtos x1 2 0))
        (command "_block" x2 p ss1 "")         
        (command "_insert" x2 p "" "" "")
        (princ)
)
[/php]

xyp1964

可以取消一对atof和rtos，print应该用prompt或princ代替：

2. [FONT=courier new](defun c:vv (/ ss1 p x2)
   
3.   (prompt "\n请选择加入块的对象 : ")
   
4.   (setq ss1 (ssget))
   
5.   (princ "\n选择基点: ")
   
6.   (setq        p  (getpoint)
   
7.         x2 (rtos(* (getvar "cdate")1000000)2 0)
   
8.   )
   
9.   (command "_block" x2 p ss1 "")
   
10.   (command "_insert" x2 p "" "" "")
    
11.   (princ)
    
12. )[/FONT]

[FONT=courier new](defun c:vv (/ ss1 p x2)<br />   (prompt "\n请选择加入块的对象 : ")<br />   (setq ss1 (ssget))<br />   (princ "\n选择基点: ")<br />   (setq        p  (getpoint)<br />         x2 (rtos(* (getvar "cdate")1000000)2 0)<br />   )<br />   (command "_block" x2 p ss1 "")<br />   (command "_insert" x2 p "" "" "")<br />   (princ)<br /> )[/FONT]

狂刀

2. 
   
3.   [FONT=courier new]
   
4. (defun c:cpp ()
   
5.   (princ "\n带基点拷贝粘贴－－－by 狂刀.2005.9")
   
6.   (command "_copybase")
   
7.   (while (/= 0 (getvar "cmdactive"))
   
8.     (command pause)
   
9.   )
   
10.   (command "_pasteblock")
    
11. )
    
12.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:cpp ()<br />   (princ "\n带基点拷贝粘贴－－－by 狂刀.2005.9")<br />   (command "_copybase")<br />   (while (/= 0 (getvar "cmdactive"))<br />     (command pause)<br />   )<br />   (command "_pasteblock")<br /> )<br />   [/FONT]<br />

hawk500

最初由 xshrimp 发布
[B]这个只是产生一个随机名的块,并不是所谓的无名块,概念错误。给你一个lsp,试试。[php]
;;-创建时间为名称的块,快速建块---------------------------
(defun vv(/ ss1 xx x1 x2 )
        (print "请选择加入块的对... [/B]

谢谢，很好用，用时间做块名很有创意，也感谢xyp1964及狂刀的支持，非常感谢！！！