[编程交流] 将旋转功能添加到

(command "._-insert" "plumbingstack1-30" pt pause pause))

(defun c:1 (/ *error* oldLayer layerName pt)
;; Error handler
(defun *error* nil
(if oldLayer
(setvar 'clayer oldLayer)))
;; Main code
(setq oldLayer (getvar 'clayer))
(if (not (tblsearch "layer" (setq layerName "generalplumbingstack")))
(command "._-layer" "_new" layerName ""))
(setvar 'clayer layerName)
(prompt "\n >> Specify Insertion Points: ")
(while (/= nil (setq pt (getpoint)))
(command "._-insert" "plumbingstack1-30" pt pause "" 0))
(setvar 'clayer oldLayer)
(princ))

(defun c:1 (/ *error* bs layerName pt ra SUS SUS_LST TERR)
 (setq SUS_LST (list "clayer")
       SUS     (mapcar 'getvar SUS_LST)
       TERR *error*
      *error* ETRAP)
 (MAIN)
 (princ))
(princ "1.lsp loaded...")
(princ "\nType 1 to start program.")
;
; Main code
;
(defun MAIN ()
 (setq layername "generalplumbingstack")
 (if (not (tblsearch "layer" layername))
   (command "._-layer" "_m" layerName ""))
 (if (/= (setq pt (getpoint "\nInsertion pt: ")) nil)
   (progn
     (setq bs (getint "\nBlock scale: "))
     (setq ra (getint "\nRotation angle: "))
     (command "._-insert" "plumbingstack1-30" pt bs bs ra)
   )
 )
 (RUS)
 (princ))
(princ)
;
; Restore User Settings
;
(defun RUS ()
 (setq *error* TERR)
 (if SUS (mapcar 'setvar SUS_LST SUS))
 (princ "\n1.lsp has completed and will now restore your settings and exit.")
 (princ))
(princ)
;
; Error Trap
;
(defun ETRAP (EMSG)
 (command nil nil nil)
 (if (not (member EMSG '("console break" "Function cancelled")))
   (princ (strcat "\nError:" EMSG)))
 (if SUS (mapcar 'setvar SUS_LST SUS))
 (princ
   (strcat "\n1.lsp has encountered a user error!"
           "\nProgram will now restore your settings and exit."))
 (setq *error* TERR)
 (terpri)
 (princ))
(princ)

(defun BLKLIB_BD ()
 (entmake
   (list
     (cons 0   "block")
     (cons 2    SYM)
     (cons 10  (list 0.0 0.0 0.0))
     (cons 70   2)))
 (cond
   ((= SYM "TRI")
    (entmake
      (list 
        (cons 0   "LWPOLYLINE")
        (cons 100 "AcDbEntity")
        (cons 8   "0")
        (cons 100 "AcDbPolyline")
        (cons 90   3)
        (cons 70   1)
        (cons 43   0.0)
        (cons 10  (list -0.00016575 0.288101))
        (cons 10  (list -0.249503 -0.143763))
        (cons 10  (list 0.249171 -0.143763)))))
   ((= SYM "SQR")
    (entmake 
      (list
        (cons 0   "LWPOLYLINE")
        (cons 100 "AcDbEntity")
        (cons 8   "0")
        (cons 100 "AcDbPolyline")
        (cons 90   4)
        (cons 70   1)
        (cons 43   0.0)
        (cons 10  (list -0.288267 0.287769))
        (cons 10  (list -0.287604 -0.288432))
        (cons 10  (list  0.288598 -0.287769))
        (cons 10  (list  0.287935 0.288432)))))
   ((= SYM "CIR")
    (entmake
      (list
        (cons 0   "CIRCLE")
        (cons 100 "AcDbEntity")
        (cons 8   "0")
        (cons 100 "AcDbCircle")
        (cons 10  (list  0.00016575 9.53592e-008 0.0))
        (cons 40   0.288101)))))
 (entmake
   (list
     (cons 0   "ATTDEF")
     (cons 100 "AcDbEntity")
     (cons 8    ALAY)
     (cons 100 "AcDbText")
     (cons 10  (list -0.158648 0.404835 0.0))
     (cons 40   0.09375)
     (cons 1    AVAL)
     (cons 7   "Romans")
     (cons 71   0)
     (cons 72   1)
     (cons 11  (list -0.00016575 0.373585 0.0))
     (cons 100 "AcDbAttributeDefinition")
     (cons 3   "Text:")
     (cons 2   "TEXT")
     (cons 70   
     (cons 73   0)
     (cons 74   1)))
 (entmake
   (list
     (cons 0  "endblk")
     (cons 8   "0")))
 (princ))
(princ)