初学LISP，希望高手能详解每句语言？语法？

杨水每峰

(vl-load-com)(setq mspace (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
(setvar "cmdecho" 0)

(defun c:tx(/ region  pointregion Moment minp maxp newminp newmaxp Yx Yy )

  (print "Select a region:")
  (setq region  (car (entsel)))
  (while (or (null region)  (/= (cdr (assoc '0 (entget  region)))  "REGION"))
   (print "Select a region:")(setq region  (car (entsel)))
  )
  (command "ucs" "W" )
  (SETQ vlaregion (vlax-ename->vla-object region))
  (setq  pointregion (vlax-safearray->list  (vlax-variant-value  (vla-get-Centroid  vlaregion))))
(command "osnap" "none")
  (command "ucs" "m" pointregion)

  (setq  Moment (vlax-safearray->list  (vlax-variant-value    (vla-get-MomentOfInertia  vlaregion))))
  (vla-getboundingbox vlaregion 'minpoint 'maxpoint )
         (setq minp (vlax-safearray->list  minpoint))
         (setq maxp (vlax-safearray->list  maxpoint))
(setq newminp (list (- (car minp) (car pointregion))(- (cadr minp) (cadr pointregion))))
(setq newmaxp (list (- (car maxp) (car pointregion))(- (cadr maxp) (cadr pointregion))))
(setq Yx (max  (abs (cadr newminp)) (abs (cadr newmaxp)) ))
(setq Yy(max  (abs (car newminp)) (abs (car newmaxp)) ))
   (princ "\n")

(princ "\nArea=:")(princ (vla-get-Area  vlaregion))

(princ "\nIx=:")(princ (car Moment))
(princ "\nIy=:")(princ (cadr Moment))

(princ "\nYx=:")(princ Yx)
(princ "\nYy=:")(princ Yy)

(princ "\nWx=:")(princ (/ (car Moment) Yx))
(princ "\nWy=:")(princ (/ (cadr Moment) Yy))
  (princ "\n")
(command "OSMODE" "16383")
  (command "massprop" region "" )
)

st788796

1. (setvar "cmdecho" 0)
   
2. 
   
3. (defun c:tx (/               region         pointregion             Moment
   
4.              minp      maxp         newminp   newmaxp   Yx
   
5.              Yy
   
6.             )
   
7. 
   
8.   (print "Select a region:")
   
9.   (setq region (car (entsel)));_选择面域
   
10.   (while (or (null region);_空选
    
11.              (/= (cdr (assoc '0 (entget region))) "REGION");_非面域
    
12.          )
    
13.     (print "Select a region:")
    
14.     (setq region (car (entsel)));_重新点选
    
15.   );_循环直至点选的实体为面域
    
16.   (command "ucs" "W");_转为世界坐标
    
17.   (SETQ vlaregion (vlax-ename->vla-object region));_转化为 Object
    
18.   (setq        pointregion
    
19.          (vlax-safearray->list
    
20.            (vlax-variant-value (vla-get-Centroid vlaregion));_质心
    
21.          )
    
22.   )
    
23.   (command "osnap" "none")
    
24.   (command "ucs" "m" pointregion);_设置UCS
    
25. 
    
26.   (setq
    
27.     Moment (vlax-safearray->list
    
28.              (vlax-variant-value (vla-get-MomentOfInertia vlaregion))
    
29.            )
    
30.   )
    
31.   (vla-getboundingbox vlaregion 'minpoint 'maxpoint);_包围盒
    
32.   (setq minp (vlax-safearray->list minpoint))
    
33.   (setq maxp (vlax-safearray->list maxpoint))
    
34.   (setq        newminp        (list (- (car minp) (car pointregion))
    
35.                       (- (cadr minp) (cadr pointregion))
    
36.                 )
    
37.   )
    
38.   (setq        newmaxp        (list (- (car maxp) (car pointregion))
    
39.                       (- (cadr maxp) (cadr pointregion))
    
40.                 )
    
41.   )
    
42.   (setq Yx (max (abs (cadr newminp)) (abs (cadr newmaxp))))
    
43.   (setq Yy (max (abs (car newminp)) (abs (car newmaxp))))
    
44.   (princ "\n")
    
45. 
    
46.   (princ "\nArea=:")
    
47.   (princ (vla-get-Area vlaregion));_面积
    
48. 
    
49.   (princ "\nIx=:")
    
50.   (princ (car Moment))
    
51.   (princ "\nIy=:")
    
52.   (princ (cadr Moment))
    
53. 
    
54.   (princ "\nYx=:")
    
55.   (princ Yx)
    
56.   (princ "\nYy=:")
    
57.   (princ Yy)
    
58. 
    
59.   (princ "\nWx=:")
    
60.   (princ (/ (car Moment) Yx))
    
61.   (princ "\nWy=:")
    
62.   (princ (/ (cadr Moment) Yy))
    
63.   (princ "\n")
    
64.   (command "OSMODE" "16383")
    
65.   (command "massprop" region "")
    
66. )
    

(setvar "cmdecho" 0)<br /> <br /> (defun c:tx (/               region         pointregion             Moment<br />              minp      maxp         newminp   newmaxp   Yx<br />              Yy<br />             )<br /> <br />   (print "Select a region:")<br />   (setq region (car (entsel)));_选择面域<br />   (while (or (null region);_空选<br />              (/= (cdr (assoc '0 (entget region))) "REGION");_非面域<br />          )<br />     (print "Select a region:")<br />     (setq region (car (entsel)));_重新点选<br />   );_循环直至点选的实体为面域<br />   (command "ucs" "W");_转为世界坐标<br />   (SETQ vlaregion (vlax-ename->vla-object region));_转化为 Object<br />   (setq        pointregion<br />          (vlax-safearray->list<br />            (vlax-variant-value (vla-get-Centroid vlaregion));_质心<br />          )<br />   )<br />   (command "osnap" "none")<br />   (command "ucs" "m" pointregion);_设置UCS<br /> <br />   (setq<br />     Moment (vlax-safearray->list<br />              (vlax-variant-value (vla-get-MomentOfInertia vlaregion))<br />            )<br />   )<br />   (vla-getboundingbox vlaregion 'minpoint 'maxpoint);_包围盒<br />   (setq minp (vlax-safearray->list minpoint))<br />   (setq maxp (vlax-safearray->list maxpoint))<br />   (setq        newminp        (list (- (car minp) (car pointregion))<br />                       (- (cadr minp) (cadr pointregion))<br />                 )<br />   )<br />   (setq        newmaxp        (list (- (car maxp) (car pointregion))<br />                       (- (cadr maxp) (cadr pointregion))<br />                 )<br />   )<br />   (setq Yx (max (abs (cadr newminp)) (abs (cadr newmaxp))))<br />   (setq Yy (max (abs (car newminp)) (abs (car newmaxp))))<br />   (princ "\n")<br /> <br />   (princ "\nArea=:")<br />   (princ (vla-get-Area vlaregion));_面积<br /> <br />   (princ "\nIx=:")<br />   (princ (car Moment))<br />   (princ "\nIy=:")<br />   (princ (cadr Moment))<br /> <br />   (princ "\nYx=:")<br />   (princ Yx)<br />   (princ "\nYy=:")<br />   (princ Yy)<br /> <br />   (princ "\nWx=:")<br />   (princ (/ (car Moment) Yx))<br />   (princ "\nWy=:")<br />   (princ (/ (cadr Moment) Yy))<br />   (princ "\n")<br />   (command "OSMODE" "16383")<br />   (command "massprop" region "")<br /> )<br />