自动块，块名依据时间定

yanned

2. ;; 块名依据时间而定
   
3. 
   
4. (defun c:autoblock ( / bnam inspt elems)
   
5. (defun DT:TIMESTAMP ( / DATE)
   
6. (setq DATE(getvar "cdate"))
   
7. (strcat "AutoBlock"
   
8. (itoa(- (/(fix DATE)10000)1950))"-"
   
9. (itoa(- (fix DATE) (*(/(fix DATE) 10000) 10000)))"-"
   
10. (itoa(fix(*(- DATE (fix DATE))100000000)))
    
11. )
    
12. )
    
13. (setq oldlayer (getvar "CLAYER"))
    
14. (command "_-layer" "_m" "0" "_c" "7" "" "")
    
15. (setq bnam(DT:TIMESTAMP))
    
16. (if(and(setq elems(ssget)
    
17. inspt(getpoint "\n base point: ")
    
18. )
    
19. )
    
20. (command "_-Block" bnam inspt elems ""
    
21. "_insert" bnam inspt "1" "1" "0")
    
22. )
    
23. (setvar "CLAYER" oldlayer)
    
24. )
    

;; 块名依据时间而定<br /> <br /> (defun c:autoblock ( / bnam inspt elems)<br /> (defun DT:TIMESTAMP ( / DATE)<br /> (setq DATE(getvar "cdate"))<br /> (strcat "AutoBlock"<br /> (itoa(- (/(fix DATE)10000)1950))"-"<br /> (itoa(- (fix DATE) (*(/(fix DATE) 10000) 10000)))"-"<br /> (itoa(fix(*(- DATE (fix DATE))100000000)))<br /> )<br /> )<br /> (setq oldlayer (getvar "CLAYER"))<br /> (command "_-layer" "_m" "0" "_c" "7" "" "")<br /> (setq bnam(DT:TIMESTAMP))<br /> (if(and(setq elems(ssget)<br /> inspt(getpoint "\n base point: ")<br /> )<br /> )<br /> (command "_-Block" bnam inspt elems ""<br /> "_insert" bnam inspt "1" "1" "0")<br /> )<br /> (setvar "CLAYER" oldlayer)<br /> )<br />

lucas_3333

论坛有很多，自动时间命令的块，自动以形心作为插入点，等等

donghuidong2003

;建匿名块
(defun c:tt (/ p ss1 x2)
  (prompt "\n请选择加入块的对象: ")
  (setq ss1 (ssget))
  (princ "\n选择基点: ")
  (setq        p  (getpoint)
        x2 (rtos (* (getvar "cdate") 1000000) 2 0)

  )
  (command "_block" x2 p ss1 "")
  (command "_insert" x2 p "" "" "")
  (princ)
)

长风（尚品）

为什么要先执行命令再选中对象才有用。能不能加上一个可以 先选中对象再执行命令 的呢？？