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

(-1 . <Entity name: 7ef70360>)
(0 . "LWPOLYLINE")
(330 . <Entity name: 7ef59cf8>)
(5 . "11C")
(100 . "AcDbEntity")
(67 . 0)
(410 . "Model")
(8 . "0")
(100 . "AcDbPolyline")
(90 . 4)
(70 . 1)
(43 . 0.0)
(38 . 0.0)
(39 . 0.0)
(10 -0.288267 0.287769)
(40 . 0.0)
(41 . 0.0)
(42 . 0.0)
(10 -0.287604 -0.288432)
(40 . 0.0)
(41 . 0.0)
(42 . 0.0)
(10 0.288598 -0.287769)
(40 . 0.0)
(41 . 0.0)
(42 . 0.0)
(10 0.287935 0.288432)
(40 . 0.0)
(41 . 0.0)
(42 . 0.0)
(210 0.0 0.0 1.0)

(-1 . <Entity name: 7ef70368>)
(0 . "ATTDEF")
(330 . <Entity name: 7ef59cf8>)
(5 . "11D")
(100 . "AcDbEntity")
(67 . 0)
(410 . "Model")
(8 . "SQR TEXT")
(100 . "AcDbText")
(10 -0.158648 0.404835 0.0)
(40 . 0.09375)
(1 . "Square")
(50 . 0.0)
(41 . 1.0)
(51 . 0.0)
(7 . "Romans")
(71 . 0)
(72 . 1)
(11 -0.00016575 0.373585 0.0)
(210 0.0 0.0 1.0)
(100 . "AcDbAttributeDefinition")
(3 . "Text:")
(2 . "TEXT")
(70 . 
(73 . 0)
(74 . 1)

(defun BLKLIB_BD ()
 (entmake
   (list
     (cons 0   "block")
     (cons 2    SYM)
     (cons 10  (list 0.0 0.0 0.0))
     (cons 70   2)))

 (entmake
   (list
     (cons 0  "endblk")
     (cons 8   "0")))
 (princ))
(princ)

;
; BLKLIB2.lsp  Note: This program is only a demo example and has no other purpose.
;                   There are only three blocks in this program for demonstration.
;                   It only shows a method of creating blocks with a built-in block
;                   definition using dxf data and inserting them. No external block
;                   drawings are required.
;                   This program inserts a selected block to a selected scale factor
;                   and places it on its own Object layer with Attribute layer. The
;                   attributes are filled in with no prompting.
;
; Author: Angelo Bozzone
; Original program was SL.lsp created 03|23|06 and modified 05|10|10 to BLKLIB2.lsp
;
; This program requires the following files below to work properly."
; Make sure to have these files together in the same directory."
; Also make sure the the directory is in the AutoCAD Support File Search Path."
;
; BLKLIB2.dcl - AutoCAD Dialog Definition,   Size 1  KB"
; BLKLIB2.lsp - AutoLISP Application Source, Size 14 KB"
; 
; To start this program, At the command prompt type BLKLIB2."
;
; The function directory below list all functions in their assembled order. 
;
;========================================================================================
; No.  | Function Name       | Function Description       
;========================================================================================
; F01  | C:BLKLIB2           | Program Start.
;----------------------------------------------------------------------------------------
; F02  | BLKLIB2_MF          | Main Function.
;----------------------------------------------------------------------------------------
; F03  | BLKLIB2_RTD         | Radians To Degrees.
;----------------------------------------------------------------------------------------
; F04  | BLKLIB2_FS          | Font Style.
;----------------------------------------------------------------------------------------
; F05  | BLKLIB2_CL          | Create Layer.
;----------------------------------------------------------------------------------------
; F06  | BLKLIB2_CPS         | Change Program Settings.
;----------------------------------------------------------------------------------------
; F07  | BLKLIB2_RUS         | Rsstore User Settings.
;----------------------------------------------------------------------------------------
; F08  | BLKLIB2_ET          | Error Trap.
;----------------------------------------------------------------------------------------
;      |                     |
;
;/////////////////////////////////////////////////////////////////////////////////
;
; F01 - Program Start.
;
(defun C:BLKLIB2 (/ ALAY AVAL BNAM BSF BSF_LST CPS DCL_ID DEG INPT IANG OLAY RAD SUS SYM_LST UCLK) ; Declare local variables
 (setq SUS_LST (list "orthomode" "osmode" "cmdecho" "blipmode" "clayer")           ; Save User Settings List
       SUS     (mapcar 'getvar SUS_LST)                                            ; Save User Settings Variable
       TERR *error*                                                                ; Store *error
      *error* BLKLIB2_ET)                                                          ; Goto error trap
 (BLKLIB2_MF)                                                                      ; Goto to Main Function
 (princ))                                                                          ; Exit quietly
(princ "\nBLKLIB2.lsp Loaded, Type BLKLIB2 to start program.")                      ; Print message to command line
;
;//////////////////////////////////////////////////////////////////////
;
; F02 - Main Function.
;
(defun BLKLIB2_MF ()
 (or BLKLIB2:SYM (setq BLKLIB2:SYM "0"))                                           ; Set default Block Name
 (or BLKLIB2:BSF (setq BLKLIB2:BSF "13"))                                          ; Set default Block Scale Factor
 (setq SYM_LST (list "plumbingstack" "gooseneckvent" "squarevent")                                 ; Block Names List
       BSF_LST (list "1/32" = 1'" "1/16" = 1'"  "3/32" = 1'"                    ; Scale Factor List
                     "1/8" = 1'"  "3/16" = 1'"  "1/4" = 1'"
                     "3/8" = 1'"  "1/2" = 1'"   "3/4" = 1'"
                     "1" = 1'"    "1-1/2" = 1'" "3" = 1'"
                     "6" = 1'"    "1' = 1'"))
 (setq DCL_ID (load_dialog "BLKLIB2.dcl"))                                         ; Load dialog
 (if (not (new_dialog "BLKLIB2" DCL_ID))                                           ; Test for dialog, If not found
   (progn                                                                          ; Then do the following
     (ALERT                                                                        ; Display alert message
       (strcat                                                                     ; Concatenate string
         "\nAttention!"                                                            ; Start message
         "\n"
         "\nThe dialog file BLKLIB2.dcl could not be found."
         "\nBe sure the dialog file BLKLIB2.dcl"
         "\nis in the AutoCAD Support File Search Path."))                         ; End message
     (exit)))                                                                      ; Then exit
 (start_list "SYM")(mapcar 'add_list SYM_LST)(end_list)                            ; Fill the Symbols List
 (start_list "BSF")(mapcar 'add_list BSF_LST)(end_list)                            ; Fill the Block Scale List
 (set_tile "SYM" BLKLIB2:SYM)                                                      ; Set the Block Symbol tile
 (set_tile "BSF" BLKLIB2:BSF)                                                      ; Set the Block Scale tile
 (action_tile "SYM"    "(setq BLKLIB2:SYM $value)")                                ; Get current Block Name value
 (action_tile "BSF"    "(setq BLKLIB2:BSF $value)")                                ; Get current Block Scale value
 (action_tile "cancel" "(done_dialog)(setq UCLK nil)(BLKLIB2_RUS)")                ; Exit program, Set User Click to nil, Restore ;User Settings
 (action_tile "accept" "(done_dialog)(setq UCLK T)")                               ; When OK selected, Set User Click (OK) to true
 (start_dialog)                                                                    ; Start dialog
 (unload_dialog DCL_ID)                                                            ; Unload dialog
 (if UCLK                                                                          ; If OK selected
   (progn                                                                          ; Then do the following
     (cond
       ((= BLKLIB2:SYM "0") (setq BNAM "plumbingstack"))                                ; Set the Block Name
       ((= BLKLIB2:SYM "1") (setq BNAM "gooseneckvent"))
       ((= BLKLIB2:SYM "2") (setq BNAM "squarevent")))
     (cond
       ((= BLKLIB2:BSF "0") (setq BSF 384))                                        ; Set the Block Scale Factor
       ((= BLKLIB2:BSF "1") (setq BSF 192))
       ((= BLKLIB2:BSF "2") (setq BSF 128))
       ((= BLKLIB2:BSF "3") (setq BSF 96))
       ((= BLKLIB2:BSF "4") (setq BSF 64))
       ((= BLKLIB2:BSF "5") (setq BSF 48))
       ((= BLKLIB2:BSF "6") (setq BSF 32))
       ((= BLKLIB2:BSF "7") (setq BSF 24))
       ((= BLKLIB2:BSF "8") (setq BSF 16))
       ((= BLKLIB2:BSF "9") (setq BSF 12))
       ((= BLKLIB2:BSF "10")(setq BSF )
       ((= BLKLIB2:BSF "11")(setq BSF 4))
       ((= BLKLIB2:BSF "12")(setq BSF 2))
       ((= BLKLIB2:BSF "13")(setq BSF 1)))
     (cond
       ((= BNAM "TRIANGLE")(setq ALAY "TRIANGLE TEXT")(setq OLAY BNAM AVAL BNAM)) ; Set the layer attribute layer name, Object layer ;name and Attribute value
       ((= BNAM "SQUARE")  (setq ALAY "SQUARE TEXT")  (setq OLAY BNAM AVAL BNAM))
       ((= BNAM "CIRCLE")  (setq ALAY "CIRCLE TEXT")  (setq OLAY BNAM AVAL BNAM)))
     (BLKLIB2_CPS)                                                                ; Change program settings
     (BLKLIB2_FS "Romans")                                                        ; Set font style to romans Supply One argument
     (BLKLIB2_CL ALAY 2 "Continuous")                                             ; Create attribute layer.  Supply Three arguments
     (BLKLIB2_CL OLAY 1 "Continuous")                                             ; Create object layer.     Supply Three arguments
     (if
       (null
         (tblsearch "block" BNAM)                                                 ; Search drawing for block.
       )
       (findfile (strcat "C:\Documents and Settings\ldibiase\Desktop\Symbol Library" BNAM ".dwg"))                              ; If ;block not found, Find drawing file. 
     )
     (setvar "clayer" OLAY)                                                       ; Set the object layer
     (setvar "osmode" (nth 1 SUS))                                                ; Set object snap to saved user object snap
     (while                                                                       ; Program Loop
       (setq INPT (getpoint "\nSpecify insertion point: "))                       ; Get insertion point
       (if (/= INPT nil)                                                          ; If insertion point nil
         (progn                                                                   ; Then do the following
           (setq IANG (getpoint INPT "\nSpecify orientation angle: ")             ; Set insertion angle
                 INPT (trans INPT 1 0)                                            ; Translate coords
                 IANG (trans IANG 1 0)                                            ; Translate coords
                 RAD  (angle INPT IANG)                                           ; Get the angle in radians between insertion point ;and insertion angle
                 DEG  (BLKLIB2_RTD RAD))                                          ; Convert the radians to degrees
           (command "._-insert" BNAM INPT BSF BSF DEG))))                         ; Insert, Block Name, Insertion Point, Block Scale ;Factor, Block Scale Factor, and Angle in degrees
     (BLKLIB2_MF)))                                                               ; If insertion point nill return to the dialog
 (princ))                                                                         ; Exit quietly
(princ)
;
;//////////////////////////////////////////////////////////////////////
;
; F03 - Radians to Degrees.
;
(defun BLKLIB2_RTD (RAD)(* 180.0 (/ RAD pi)))                                      ; Convert radians to degrees
;
;//////////////////////////////////////////////////////////////////////
;
; F04 - Font Style.
;
(defun BLKLIB2_FS (FSTY / TWF TOA PFN BFN)       ;Declare arguments and local variables
 (setq TWF 1.0 TOA 0.0 PFN "Romans.shx" BFN "") ;Set the font style parameters
 (if (null (tblsearch "style" FSTY))            ;Search drawing for font style
   (entmake                                     ;Entity make
     (list                                      ;List
       (cons 0   "STYLE")                       ;Entity Type
       (cons 100 "AcDbSymbolTableRecord")       ;Subclass marker
       (cons 100 "AcDbTextStyleTableRecord")    ;Subclass marker
       (cons 2    FSTY)                         ;Font Style Name
       (cons 70   0)                            ;Flag value
       (cons 40   0)                            ;Fixed text height, 0 if not fixed
       (cons 41   TWF)                          ;Text width factor
       (cons 50   TOA)                          ;Text obliquing angle
       (cons 3    PFN)                          ;Primary font file name
       (cons 4    BFN))))                       ;Big font file name
 (princ))                                       ;Exit quietly
(princ)
;
;//////////////////////////////////////////////////////////////////////
;
; F05 - Create Layer.
;
(defun BLKLIB2_CL (LNAM LCLR LTYP)               ;Declare arguments and local variables
 (if (null (tblsearch "layer" LNAM))            ;Search drawing for layer name
   (entmake                                     ;Entity make
     (list                                      ;List
       (cons   0 "LAYER")                       ;Entiy type
       (cons 100 "AcDbSymbolTableRecord")       ;Subclass marker
       (cons 100 "AcDbLayerTableRecord")        ;Subclass marker
       (cons   2  LNAM)                         ;Layer name
       (cons  70  0)                            ;Flag value
       (cons  62  LCLR)                         ;Layer color
       (cons   6  LTYP)                         ;Layer linetype
       (cons 290  1))))                         ;Plotting flag
 (princ))                                       ;Exit quietly
(princ)
;
;//////////////////////////////////////////////////////////////////////
;
; F06 - Change Program Settings.
;
(defun BLKLIB2_CPS ()
 (setq CPS (list 1 0 0 0))
 (mapcar (function setvar)(list "orthomode" "osmode" "cmdecho" "blipmode") CPS)
 (princ))
(princ)
;
;//////////////////////////////////////////////////////////////////////
;
; F07 - Restore User Settings.
;
(defun BLKLIB2_RUS ()
 (setq *error* TERR)
 (if SUS (mapcar 'setvar SUS_LST SUS))
 (princ "\nBLKLIB2.lsp has completed and will now restore your settings and exit.")
 (princ))
(princ)
;
;//////////////////////////////////////////////////////////////////////
;
; F08 - Error Trap.
;
(defun BLKLIB2_ET (ERRORMSG)
 (command nil nil nil)
 (if (not (member ERRORMSG '("console break" "Function cancelled")))
   (princ (strcat "\nError:" ERRORMSG)))
 (if SUS (mapcar 'setvar SUS_LST SUS))
 (princ
   (strcat "\nBLKLIB2.lsp has encountered a user error!"
           "\nProgram will now restore your settings and exit."))
 (terpri)
 (setq *error* TERR)
 (princ))
(princ)
;
;//////////////////////////////////////////////////////////////////////

     (cond
       ((= BNAM "TRIANGLE")(setq ALAY "TRIANGLE TEXT")(setq OLAY BNAM AVAL BNAM)) 
       ((= BNAM "SQUARE")  (setq ALAY "SQUARE TEXT")  (setq OLAY BNAM AVAL BNAM))
       ((= BNAM "CIRCLE")  (setq ALAY "CIRCLE TEXT")  (setq OLAY BNAM AVAL BNAM)))

(findfile (strcat "C:\Documents and Settings\ldibiase\Desktop\Symbol Library" BNAM ".dwg")) 

(findfile (strcat "C:\\Documents and Settings\\ldibiase\\Desktop\\Symbol Library" BNAM ".dwg"))
(findfile (strcat "C:/Documents and Settings/ldibiase/Desktop/Symbol Library" BNAM ".dwg"))