[求助]：哪位老大能把下面的代码解释下吗？？

ajing_sky

;(setq e1 (entget(car (entsel))))
(defun acet-overkill-line-data2 ( e1 fuz genprops / p1 p2 dx dy dz m b m2 b2 xv th )

(setq p1 (cdr (assoc 10 e1))
       p2 (cdr (assoc 11 e1))
       dx (- (car p2) (car p1))
       dy (- (cadr p2) (cadr p1))
       dz (- (caddr p2) (caddr p1))
);setq
;; first get the slope and y intercept in the xy plane.
(if (and (/= dx 0.0)
          (setq m (/ dy dx))                ;slope
          (< (abs m) 1.0e+010)
     );and
     (progn
      (setq b (- (cadr p1)        ;y-intercept -> b=y-m*x
                 (* m (car p1))
              )
      );setq
     );progn then
     (setq m nil      ;undefined slope
           b (car p1) ;x-intercept
     );setq else
);if
;; Now get the slope and z intercept in a different plane
(if (and m
          (equal m 0.0 0.00000001)
     );and
     (progn
      ;; then use the xz plane because the slope is undefined in the yz
      (if (and (/= dx 0.0)
               (setq m2 (/ dz dx))                ;slope
               (< (abs m2) 1.0e+010)
          );and
          (setq b2 (- (caddr p1)        ;z-intercept -> b2=z-m2*x
                      (* m2 (car p1))
                   )
          );setq then
          (setq m2 nil       ;undefined slope
                b2 (car p1) ;z-intercept
          );setq else
      );if
     );progn then use xz plane
     (progn
      ;; else use yz plane
      (if (and (/= dy 0.0)
               (setq m2 (/ dz dy))                ;slope
               (< (abs m2) 1.0e+010)
          );and
          (setq b2 (- (caddr p1)        ;z-intercept -> b2=z-m2*y
                      (* m2 (cadr p1))
                   )
          );setq then
          (setq m2 nil       ;undefined slope
                b2 (cadr p1) ;z-intercept
          );setq else
      );if
     );progn else use yz plane
);if
(if m
     (setq m (acet-calc-round m 0.00000001))        ;; xy plane slope
);if
(if m2
     (setq m2 (acet-calc-round m2 0.00000001))        ;; yz slope
);if
(setq  b (acet-calc-round b fuz)                        ;; y intercept
       b2 (acet-calc-round b2 fuz)                        ;; z intercept
);setq
(if (setq th (cdr (assoc 39 e1)))
     (setq xv (cdr (assoc 210 e1))
           xv (mapcar '(lambda (x) (acet-calc-round x 0.00000001)) xv)
     );setq then it has thickness so we need to bring the extrusion vector along for the ride
);if
(if xv
     (list 0 m b m2 b2
           xv
           (acet-overkill-gen-prop-get2 e1 genprops)        ;; general data
     );list
     (list 0 m b m2 b2
           (acet-overkill-gen-prop-get2 e1 genprops)        ;; general data
     );list
);if
);defun acet-overkill-line-data

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Takes an elist and a list of group codes and returns a list of dotted pairs for that entity.
;
(defun acet-overkill-gen-prop-get2 ( e1 genprops / a lst )
(foreach gcode genprops
  (if (not (setq a (assoc gcode e1)))
      (setq a (list gcode))
  );if
  (setq lst (cons a lst))
);foreach
lst
);defun acet-overkill-gen-prop-get

qjcpj

程序本身就带解释，请注意“;”后的文字。