[编程交流] AutoLisp启动请求

[i][color=#990099];; Example to Change Text height of a selected item  ;;[/color][/i]
[i][color=#990099];; to 2.0                                            ;;[/color][/i]
[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:ChangeHeight
      [i][color=#990099];; Here we are defining the function, we[/color][/i]
      [i][color=#990099];; use (defun c:..) to indicate that the[/color][/i]
      [i][color=#990099];; user can invoke the function from the[/color][/i]
      [i][color=#990099];; command-line.[/color][/i]
      [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] ent[b][color=RED])[/color][/b]
      [i][color=#990099];; Inside these bracket we list all the[/color][/i]
      [i][color=#990099];; arguments needed for the function to[/color][/i]
      [i][color=#990099];; work (before the forward slash), in this[/color][/i]
      [i][color=#990099];; case none, and all the local variables[/color][/i]
      [i][color=#990099];; i.e. symbols which have a value bound to[/color][/i]
      [i][color=#990099];; them, which are used in the function.[/color][/i]
      [i][color=#990099];; These variables will be set to nil when[/color][/i]
      [i][color=#990099];; when the function is invoked and when the[/color][/i]
      [i][color=#990099];; function completes.[/color][/i]
 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b]  [i][color=#990099];; We must allow for the user not selecting[/color][/i]
      [i][color=#990099];; anything.[/color][/i]
   [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [i][color=#990099];; Both of the following conditions must[/color][/i]
        [i][color=#990099];; return True for the IF statement to proceed.[/color][/i]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ent [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entsel[/color][/b] [b][color=#a52a2a]"\nSelect Text Object: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [i][color=#990099];; If the user picks something, entsel will return a[/color][/i]
     [i][color=#990099];; list with two elements. The first element will be[/color][/i]
     [i][color=#990099];; the entity name of the entity that was picked, and[/color][/i]
     [i][color=#990099];; the second element will be the actual point that was[/color][/i]
     [i][color=#990099];; picked, i.e. (3.4 5.2 0.0). We are only interested in[/color][/i]
     [i][color=#990099];; the entity name, so we use 'car' to get the first element[/color][/i]
     [i][color=#990099];; of the list, and then use 'setq' to bound this entity[/color][/i]
     [i][color=#990099];; name to a variable, so that we can reference it later.[/color][/i]
     [i][color=#990099];; Note that, if the user doesn't pick anything, entsel[/color][/i]
     [i][color=#990099];; will return nil, and so (car (entsel)) will also return[/color][/i]
     [i][color=#990099];; nil, and our IF statement will not be fullfilled.[/color][/i]
     [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#a52a2a]"TEXT"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]0[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] ent[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [i][color=#990099];; This is the second of our conditions that must be[/color][/i]
     [i][color=#990099];; met for the AND statement to return True, and hence the[/color][/i]
     [i][color=#990099];; IF statement to proceed.[/color][/i]
     [i][color=#990099];; The 'entget' function will return the DXF data associated[/color][/i]
     [i][color=#990099];; with an entity name, this includes all the data that[/color][/i]
     [i][color=#990099];; describe that particular entity.[/color][/i]
     [i][color=#990099];; The Group code '0' is the entity type, and each group[/color][/i]
     [i][color=#990099];; code is listed as the code coupled with the data associated[/color][/i]
     [i][color=#990099];; with that code, in this way:[/color][/i]
     [i][color=#990099];;         ((0 . "TEXT") (40 . 2.5) ...)[/color][/i]
     [i][color=#990099];; We can use the 'assoc' function to look at the first element[/color][/i]
     [i][color=#990099];; in each of these lists, and retrieve the one that starts with '0'.[/color][/i]
     [i][color=#990099];; We now have (0 . "TEXT"), so we can get at the second part of this[/color][/i]
     [i][color=#990099];; using the 'cdr' function. We can then test to see whether this equals[/color][/i]
     [i][color=#990099];; "TEXT" using the 'eq' function. If not, the user has selected an[/color][/i]
     [i][color=#990099];; object that isn't text.[/color][/i]
   [b][color=RED])[/color][/b] [i][color=#990099]; End AND[/color][/i]
   [i][color=#990099];; Now we can proceed with the THEN statement, this is the statement[/color][/i]
   [i][color=#990099];; that is evaluated if the text expression for the IF function is[/color][/i]
   [i][color=#990099];; satisfied.[/color][/i]
   [b][color=RED]([/color][/b][b][color=BLUE]entmod[/color][/b] [i][color=#990099];; Modify the entity after doing the following...[/color][/i]
     [b][color=RED]([/color][/b][b][color=BLUE]subst[/color][/b]  [i][color=#990099];; Substitute[/color][/i]
       [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]40[/color][/b] [b][color=#009999]2.0[/color][/b][b][color=RED])[/color][/b]  [i][color=#990099];; A dotted pair '(40 . 2.0)[/color][/i]
         [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]40[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] ent[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [i][color=#990099];; For the DXF group 40 entry in the list[/color][/i]
       [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] ent[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [i][color=#990099];; The data list that is being operated on.[/color][/i]
   [i][color=#990099];; This is the business end of the function. Here we are using the[/color][/i]
   [i][color=#990099];; 'subst' function to substitute '(40 . 2.0) for the entry that[/color][/i]
   [i][color=#990099];; starts with 40 in the DXF data list.[/color][/i]
   [i][color=#990099];; The DXF code 40 represents the Text Height of the text, and,[/color][/i]
   [i][color=#990099];; once we have made the substitution, we must update the entity[/color][/i]
   [i][color=#990099];; using the 'entmod' function.[/color][/i]
   [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#a52a2a]"\n** Object is Not Text **"[/color][/b][b][color=RED])[/color][/b]
   [i][color=#990099];; This is the ELSE statement for the IF function, so here we[/color][/i]
   [i][color=#990099];; are alerting the user that they have not picked a text object.[/color][/i]
 [b][color=RED])[/color][/b] [i][color=#990099]; End IF[/color][/i]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b] [i][color=#990099];; Exit Cleanly.[/color][/i]
[b][color=RED])[/color][/b] [i][color=#990099];; End DEFUN[/color][/i]
     

(defun c:gate (/ hgt len qty sp xp maxx bn)
 (initget 7)
 (setq hgt (getdist "\nHeight To Pivot Point:   "))
 (while (or (not len)
            (< len 96))
        (initget 7)
        (setq len (getdist "\nGate Length:   ")))
 (initget 6)
 (setq qty (getint "\nNumber Of Lights <4>:   "))
 (if (not qty)
     (setq qty 4))
;;;START THE BLOCK DEFINITION
(entmake (list (cons 0 "BLOCK")(list 10 0 0 0)(cons 70 0)
              (cons 2 (strcat "GATE" (rtos len 2 0) "x" (itoa qty)))))
;;;MAKE THE COUNTER WEIGHT AND PIVOT
(entmake (list (cons 0 "CIRCLE")(cons 8 "3D")(cons 39 10)(cons 10 (list 8 0 -5))(cons 40 1)(cons 210 (list 0 1 0))))
(entmake (list (cons 0 "SOLID")(cons 8 "3D")(cons 39 4)(cons 10 (list -2 -5 -2))(cons 11 (list 0 -5 -2))(cons 12 (list -2 5 -2))(cons 13 (list 0 5 -2))))
(entmake (list (cons 0 "SOLID")(cons 8 "3D")(cons 39 4)(cons 10 (list -32.48528137 -5 6.48528137))(cons 11 (list -30.48528137 -5 6.48528137))(cons 12 (list -32.48528137 5 6.48528137))(cons 13 (list -30.48528137 5 6.48528137))))
(entmake (list (cons 0 "TRACE")(cons 8 "3D")(cons 39 2)(cons 10 (list 0 2 5))(cons 11 (list 0 -2 5))(cons 12 (list 11.17157288 2 5))(cons 13 (list 12.82842712 -2 5))(cons 210 (list 0 1 0))))
(entmake (list (cons 0 "TRACE")(cons 8 "3D")(cons 39 2)(cons 10 (list 11.17157288 2 5))(cons 11 (list 12.82842712 -2 5))(cons 12 (list 19.65685425 10.48528137 5))(cons 13 (list 21.3137085 6.48528137 5))(cons 210 (list 0 1 0))))
(entmake (list (cons 0 "TRACE")(cons 8 "3D")(cons 39 2)(cons 10 (list 19.65685425 10.48528137 5))(cons 11 (list 21.3137085 6.48528137 5))(cons 12 (list 32.48528137 10.48528137 5))(cons 13 (list 32.48528137 6.48528137 5))(cons 210 (list 0 1 0))))
(entmake (list (cons 0 "TRACE")(cons 8 "3D")(cons 39 2)(cons 10 (list 19.65685425 10.48528137 -7))(cons 11 (list 21.3137085 6.48528137 -7))(cons 12 (list 32.48528137 10.48528137 -7))(cons 13 (list 32.48528137 6.48528137 -7))(cons 210 (list 0 1 0))))
(entmake (list (cons 0 "TRACE")(cons 8 "3D")(cons 39 2)(cons 10 (list 11.17157288 2 -7))(cons 11 (list 12.82842712 -2 -7))(cons 12 (list 19.65685425 10.48528137 -7))(cons 13 (list 21.3137085 6.48528137 -7))(cons 210 (list 0 1 0))))
(entmake (list (cons 0 "TRACE")(cons 8 "3D")(cons 39 2)(cons 10 (list 0 2 -7))(cons 11 (list 0 -2 -7))(cons 12 (list 11.17157288 2 -7))(cons 13 (list 12.82842712 -2 -7))(cons 210 (list 0 1 0))))
;;;MAKE THE LIGHTS
(setq sp (/ len qty)
     xp (* sp 0.5))
(repeat qty
 (entmake (list (cons 0 "CIRCLE")(cons 8 "3D-RED")(cons 39 2)(cons 10 (list xp 6 -1))(cons 40 3)(cons 210 (list 0 -1 0))))
 (entmake (list (cons 0 "CIRCLE")(cons 8 "3D-BLACK")(cons 39 1.5)(cons 10 (list xp 0 2))(cons 40 0.5)))
 (setq xp (+ xp sp)))
;;;THE ARM STARTER SECTION
(entmake (list (cons 0 "SOLID")(cons 8 "3D-WHITE")(cons 39 2)
              (cons 10 (list 0 -2 -1))
              (cons 11 (list 0  2 -1))
              (cons 12 (list 2 -2 -1))
              (cons 13 (list 6  2 -1))
              (cons 210 (list 0 -1 0))))
;;;THE RED AND WHITE STRIPS
(setq xp 2
   maxx (- len 2))
(while (< xp len)
  (entmake (list (cons 0 "SOLID")(cons 8 "3D-RED")(cons 39 2)
                 (cons 10 (list (min maxx (+ xp 0))  -2 -1))
                 (cons 11 (list (min maxx (+ xp 4))   2 -1))
                 (cons 12 (list (min maxx (+ xp 24)) -2 -1))
                 (cons 13 (list (min maxx (+ xp 26))  2 -1))
                 (cons 210 (list 0 -1 0))))
  (entmake (list (cons 0 "SOLID")(cons 8 "3D-WHITE")(cons 39 2)
                 (cons 10 (list (min maxx (+ xp 24)) -2 -1))
                 (cons 11 (list (min maxx (+ xp 26))  2 -1))
                 (cons 12 (list (min maxx (+ xp 48)) -2 -1))
                 (cons 13 (list (min maxx (+ xp 52)) 2 -1))
                 (cons 210 (list 0 -1 0))))
  (setq xp (+ xp 48)))
;;;THE END CAP
(entmake (list (cons 0 "SOLID")(cons 8 "3D-WHITE")(cons 39 2)
              (cons 10 (list (- len 2)  2 -1))
              (cons 11 (list (- len 0)  2 -1))
              (cons 12 (list (- len 6) -2 -1))
              (cons 13 (list (- len 0) -2 -1))
              (cons 210 (list 0 -1 0))))
;;;FINISH THE BLOCK DEFITION
(setq bn (entmake (list (cons 0 "ENDBLK")(cons 8 "0"))))
;;;SET THE LAYER COLORS
(command "_.LAYER" "_C" 254 "3D" "_C" 1 "3D-RED" "_C" 7 "3D-WHITE" "")
;;;INSERT THE NEW BLOCK AT THE GIVEN HEIGHT
(entmake (list (cons 0 "INSERT")(cons 2 bn)(cons 8 "0")
              (cons 10 (list 0 0 hgt))))
(prin1))