[编程交流] 块的插入

 
(defun c:INBLOCK () 
(setq sl (dos_getdir "Choose Block_Library" "K:\\CAD\\Blocks\")) (dos_dwgpreview "Choose Block_Library" sl)
(setq p0 (getpoint "\nChoose insertion point: "))
(setvar "attdia" 1)
(command "-insert" sl p0 1 1 0)
(command "attdia" 0 "") 
(princ)
)

 
(defun c:AIX:INBLOCK ( / sl)(setq sl nil)
 (setq sl (dos_dwgpreview "Choose block" "K:\\CAD\\Block\"))
 (if sl (command "-insert" sl pause "1" "1" "0")
   (princ))
 )

 
(defun c:INBLOCK ( / sl oldlay)
 (setq oldlay (getvar "clayer"))
 (setq sl nil)
(setvar "cmdecho" 0) 
(if (not (tblsearch "LAYER" "A-------O2-"))
           (command "-layer" "M" "A-------O2-" "C" "red" "A-------O2-" "")
           (setvar "clayer" "A-------O2-")
           ) ; end if
  
(setq sl (dos_getdir "Choose symbols" "K:\\CAD\\Block"))(dos_dwgpreview "Choose symbols" sl)
 (prompt "\nChoose point to insert ...")
 (if sl (command "-insert" sl pause "1" "1" "0")
   (princ))(setvar "clayer" oldlay)
 )

;;;
(defun C:describe ()
;;;Do the mapcar function for each layer in the drawing.
 (vlax-for layer
       (vla-get-layers
         (vla-get-activedocument
       (vlax-get-acad-object)
       )
         )
;;;if the current layer being checked matches a predetermined name, add the needed description.
   (mapcar
     (function
   (lambda (layname description)
     (if (= (strcase (vla-get-name layer)) (strcase layname))
       (vla-put-description layer description)
       ()
       )
     )
   )
     '("A-------O2-" ) ; This is your list of layers needing a description.
     '("arrow"); This is the descriptions for each layer.  Make sure the order is EXACTLY the same as in the layer list.
     )
   )
 (princ); Silent exit.
 )
   (defun c:layercreation ()
       (if  (tblsearch "LAYER" "A-------O2-")
(command "_layer" "s" "A-------O2-" "")
           (command "-layer" "M" "A-------O2-" "C" "red" "A-------O2-" "")
         
           ) ; end if
         
          );en defun
(defun c:inarrow ( / sl oldlay)
 (setq oldlay (getvar "clayer"))
 (setq sl nil)
  
 (setq sl (dos_dwgpreview "Choose arrows" "K:\\CAD\\\\block\\arrows"))
 (prompt "\nChoose insertion point")
 (if sl
   (progn
     (c:layercreation)
     (c:describe)
     (setvar "clayer" "A-------O2-") 
     (command "-insert" sl pause "1" "1" "0")
   (setvar "clayer" oldlay)
   
);progn
   );if
 (exit)
 
 )

(defun describe...

(defun c:describe...

(describe)

(c:describe)