{"id":1898,"date":"2007-01-23T11:30:46","date_gmt":"2007-01-23T03:30:46","guid":{"rendered":"https:\/\/www.highflybird.com\/blog\/?p=1898"},"modified":"2007-01-23T11:30:46","modified_gmt":"2007-01-23T03:30:46","slug":"%e6%88%aa%e9%9d%a2%e7%9a%84%e5%87%a0%e4%bd%95%e5%8f%82%e6%95%b0","status":"publish","type":"post","link":"https:\/\/www.highflybird.com\/blog\/?p=1898","title":{"rendered":"\u622a\u9762\u7684\u51e0\u4f55\u53c2\u6570"},"content":{"rendered":"

[codesyntax lang=”lisp” lines_start=”1″ title=”\u622a\u9762\u7684\u51e0\u4f55\u53c2\u6570” blockstate=”expanded”]
\n(alert “\\n\u672c\u7a0b\u5e8f\u547d\u4ee4\u4e3aTEST\uff0c\u5177\u4f53\u7528\u6cd5\u5982\u4e0b:
\n \\n\u5355\u4f4d\u548c\u7cbe\u5ea6\u7531ACAD\u786e\u5b9a\uff0c\u53ef\u81ea\u5df1\u63a7\u5236\uff0c\u9009\u62e9\u5c01\u95ed\u7ebf\u6bb5\u7269\u4f53\uff0c\u6216\u8005region\u7269\u4f53\uff0c
\n\t\\n\u5728\u63d0\u793a\u6570\u636e\u8f93\u51fa\u65b9\u5f0f\u65f6\uff0c\u6309\u4e0bP\u6216W\u952e\uff0cP\u4ee3\u8868\u5c4f\u5e55\u8f93\u51fa\uff0cW\u5219\u5728C:\u76d8\u521b\u5efa\u6570\u636e\u3002
\n\t\\n\u8bf7\u5c0a\u91cd\u539f\u521b\u8005\uff0c\u52ff\u7528\u4e8e\u5546\u4e1a\u76ee\u7684!! Highflybird 2007.1.23 KunMing”)
\n(defun mas (obj \/ Area Area1 Area2 Perimeter Centroid Centroid1 Centroid2 MomentOfInertia
\n\t MomentOfInertia1 PrincipalDirections PrincipalMoments minpt maxpt Sx Sy
\n\t ProductOfInertia ProductOfInertia1 RadiiOfGyration Wx1 Wx2 Wy1 Wy2 obj1
\n\t obj2 recPt1 recPt2 reg1 reg2 CenX CenY)
\n (if (= “AcDbRegion” (vla-get-objectname obj)) ;\u5982\u679c\u662f\u622a\u9762\u5219\u8ba1\u7b97
\n (progn
\n (setq Area (vla-get-area obj) ;\u9762\u79ef
\n Perimeter (vla-get-Perimeter obj) ;\u5468\u957f
\n Centroid (V2L (vla-get-Centroid obj)) ;\u8d28\u5fc3
\n\t MomentOfInertia (V2L (vla-get-MomentOfInertia obj)) ;\u60ef\u6027\u77e9
\n PrincipalDirections (V2L (vla-get-PrincipalDirections obj));\u4e3b\u77e9\u65b9\u5411
\n\t PrincipalMoments (V2L (vla-get-PrincipalMoments obj)) ;\u4e3b\u529b\u77e9\u4e0e\u8d28\u5fc3\u7684X-Y\u65b9\u5411
\n\t ProductOfInertia (vla-get-ProductOfInertia obj) ;\u60ef\u6027\u79ef
\n ) ;setq
\n (vla-move obj (vlax-3d-point Centroid) (vlax-3d-point ‘(0 0))) ;\u79fb\u52a8\u8d28\u5fc3\u5230\u539f\u70b9
\n (setq MomentOfInertia1 (V2L (vla-get-MomentOfInertia obj)) ;\u8d28\u5fc3\u7684\u60ef\u6027\u77e9
\n\t ProductOfInertia1 (vla-get-ProductOfInertia obj) ;\u8d28\u5fc3\u7684\u60ef\u6027\u79ef
\n\t RadiiOfGyration (V2L (vla-get-RadiiOfGyration obj)) ;\u56de\u65cb\u534a\u5f84
\n ) ;setq
\n (vla-getboundingbox obj ‘minpt ‘maxpt) ;\u8fb9\u754c\u6846
\n (setq minpt (vlax-safearray->list minpt) ;\u5de6\u4e0b\u89d2\u70b9
\n maxpt (vlax-safearray->list maxpt) ;\u53f3\u4e0a\u89d2\u70b9
\n Wx1 (\/ (car MomentOfInertia1) (cadr minpt)) ;\u62b5\u6297\u77e9
\n\t Wx2 (\/ (car MomentOfInertia1) (cadr maxpt))
\n\t Wy1 (\/ (cadr MomentOfInertia1) (car minpt))
\n\t Wy2 (\/ (cadr MomentOfInertia1) (car maxpt))
\n ) ;setq
\n (vla-move obj (vlax-3d-point ‘(0 0)) (vlax-3d-point Centroid)) ;\u79fb\u56de\u539f\u6765\u4f4d\u7f6e
\n (setq obj1 (vla-copy obj) ;\u62f7\u8d1d\u7269\u4f53\u4ee5\u7528\u6765\u7b97X\u9762\u79ef\u77e9
\n obj2 (vla-copy obj) ;\u62f7\u8d1d\u7269\u4f53\u4ee5\u7528\u6765\u7b97Y\u9762\u79ef\u77e9
\n CenX (car Centroid)
\n\t CenY (cadr Centroid)
\n recPt1 (list (+ CenX (car minpt) -1) CenY ;\u5efa\u7acb\u4e24\u4e2a\u77e9\u5f62\u9762\u57df\u7684\u70b9\u8868
\n\t (+ CenX (car maxpt) +1) CenY
\n\t\t (+ CenX (car maxpt) +1) (+ CenY (cadr minpt) -1)
\n\t\t (+ CenX (car minpt) -1) (+ CenY (cadr minpt) -1))
\n\t recPt2 (list (+ CenX (car minpt) -1) (+ CenY (cadr minpt) -1)
\n\t\t (+ CenX (car minpt) -1) (+ CenY (cadr maxpt) +1)
\n\t\t CenX (+ CenY (cadr maxpt) +1)
\n\t\t CenX (+ CenY (cadr minpt) -1))
\n reg1 (draw-rectange recPt1) ;\u521b\u5efa\u9762\u57df1
\n\t reg2 (draw-rectange recPt2) ;\u521b\u5efa\u9762\u57df2
\n )
\n (vla-boolean obj1 acSubtraction reg1) ;\u6c42obj1\u4e0e\u9762\u57df1\u4e4b\u5dee
\n (vla-boolean obj2 acSubtraction reg2) ;\u6c42obj2\u4e0e\u9762\u57df2\u4e4b\u5dee
\n (setq Area1 (vla-get-area obj1) ;\u6c42obj1\u7684\u9762\u79ef
\n\t Area2 (vla-get-area obj2) ;\u6c42obj2\u7684\u9762\u79ef
\n\t Centroid1 (V2L (vla-get-Centroid obj1)) ;\u6c42obj1\u7684\u8d28\u5fc3
\n\t Centroid2 (V2L (vla-get-Centroid obj2)) ;\u6c42obj2\u7684\u8d28\u5fc3
\n Sx (* Area1 (- (cadr Centroid1) (cadr Centroid))) ;\u7ed5X\u8f74\u9762\u79ef\u77e9\uff08\u9759\u77e9\uff09
\n\t Sy (* Area2 (- (car Centroid2) (car Centroid))) ;\u7ed5Y\u8f74\u9762\u79ef\u77e9\uff08\u9759\u77e9\uff09
\n )
\n (vla-delete obj1) ;\u5220\u9664\u9762\u57df1
\n (vla-delete obj2) ;\u5220\u9664\u9762\u57df2
\n (list (cons “\u9762\u79ef ” Area) ;\u8fd4\u56de\u5404\u79cd\u53c2\u6570\u503c
\n\t (cons “\u5468\u957f ” Perimeter)
\n\t (cons “\u8d28\u5fc3 ” Centroid)
\n\t (cons “X \u8f74\u4e3b\u60ef\u6027\u77e9” (car PrincipalMoments))
\n\t (cons “X \u8f74\u60ef\u6027\u77e9 ” (car MomentOfInertia1))
\n\t (cons “Y \u8f74\u4e3b\u60ef\u6027\u77e9” (cadr PrincipalMoments))
\n\t (cons “Y \u8f74\u60ef\u6027\u77e9 ” (cadr MomentOfInertia1))
\n\t (cons “XY\u60ef\u6027\u79ef ” ProductOfInertia1)
\n\t (cons “X \u8f74\u4e0a\u6297\u5f2f\u8ddd” Wx2)
\n\t (cons “X \u8f74\u4e0b\u6297\u5f2f\u8ddd” Wx1)
\n\t (cons “Y \u8f74\u5de6\u6297\u5f2f\u8ddd” Wy1)
\n\t (cons “Y \u8f74\u53f3\u6297\u5f2f\u8ddd” Wy2)
\n\t (cons “X \u8f74\u9762\u79ef\u77e9 ” Sx )
\n\t (cons “Y \u8f74\u9762\u79ef\u77e9 ” Sy )
\n\t (cons “\u56de\u65cb\u534a\u5f84ix ” (car RadiiOfGyration))
\n\t (cons “\u56de\u65cb\u534a\u5f84iy ” (cadr RadiiOfGyration))
\n\t (cons “\u4e3b\u77e9\u65b9\u54111 ” (list (car PrincipalDirections) (caddr PrincipalDirections)))
\n\t (cons “\u4e3b\u77e9\u65b9\u54112 ” (list (cadr PrincipalDirections) (cadddr PrincipalDirections)))
\n\t (cons “\u8ddd\u5de6\u8fb9\u8ddd\u79bb ” (abs (car minpt)))
\n\t (cons “\u8ddd\u53f3\u8fb9\u8ddd\u79bb ” (abs (car maxpt)))
\n\t (cons “\u8ddd\u4e0a\u8fb9\u8ddd\u79bb ” (abs (cadr maxpt)))
\n\t (cons “\u8ddd\u4e0b\u8fb9\u8ddd\u79bb ” (abs (cadr minpt)))
\n )
\n )
\n )
\n)
\n;;;\u7528ActiveX\u7684\u65b9\u5f0f\u753b\u77e9\u5f62\u9762\u57df
\n(defun draw-rectange (recpts \/ pts rec reg)
\n (setq pts (vlax-make-safearray vlax-vbdouble ‘(0 . 7)))
\n (vlax-safearray-fill pts recpts)
\n (setq rec (vla-addlightweightPolyline *MSP pts));\u521b\u5efa\u77e9\u5f62
\n (vla-put-closed rec 1)\t\t ;\u5c01\u95ed\u77e9\u5f62
\n (setq reg (vla-addregion *MSP (O2L rec))) ;\u5bf9\u77e9\u5f62\u6c42\u9762\u57df
\n (vla-delete rec)\t\t\t ;\u5220\u9664\u77e9\u5f62\u7684\u8f7b\u591a\u6bb5\u7ebf
\n (car (V2L reg)) ;\u53d6\u5f97\u77e9\u5f62\u9762\u57df\u7269\u4f53
\n)
\n;;;ActiveX\u7684\u53d8\u91cf\u8f6c\u5316\u4e3alisp\u5217\u8868
\n(defun V2L (x)
\n (vlax-safearray->list (vlax-variant-value x))
\n)
\n;;;\u628a\u9009\u62e9\u96c6\u7684\u7269\u4f53\u8f6c\u5316\u4e3a\u5b89\u5168\u6570\u7ec4
\n(defun S2A (ss \/ i l objs curves)
\n (setq i -1 l (sslength ss) objs nil)
\n (repeat l
\n (setq objs (cons (vlax-ename->vla-object (ssname ss (setq i (1+ i)))) objs))
\n )
\n (setq curves (vlax-make-safearray vlax-vbobject (eval ‘(cons 0 (1- l)))))
\n (vlax-safearray-fill curves objs)
\n)
\n;;;\u628a\u9009\u62e9\u96c6\u7684\u7269\u4f53\u8f6c\u5316\u4e3aLisp\u8868
\n(defun S2L (ss \/ i l objs)
\n (setq i -1 l (sslength ss) objs nil)
\n (repeat l
\n (setq objs (cons (vlax-ename->vla-object (ssname ss (setq i (1+ i)))) objs))
\n )
\n)
\n;;;\u7269\u4f53\u7ec4\u6210lisp\u5217\u8868
\n(defun O2L (obj \/ curves)
\n (setq curves (vlax-make-safearray vlax-vbobject ‘(0 . 0)))
\n (vlax-safearray-fill curves (list obj))
\n)
\n;;;\u6253\u5370\u622a\u9762\u8868\u5e76\u8ba1\u6570
\n(defun GetNum (regobjs Num \/ Number reglst)
\n (setq Number Num) ;\u8ba1\u6570\u5f52\u96f6
\n (foreach obj regobjs
\n (setq reglst (mas obj)) ;\u5bf9\u5176\u5206\u522b\u6c42\u503c
\n (princ obj)\t\t\t\t ;\u6253\u5370region\u540d
\n (princ “\\n\u4e0b\u9762\u4e3a\u8be5\u7269\u4f53\u7684\u53c2\u6570\u7684\u5217\u8868: “)
\n (foreach n reglst (princ “\\n”) (princ n)) ;\u6253\u5370region\u53c2\u6570\u8868
\n (setq Number (1+ Number)) ;\u8ba1\u6570\u7d2f\u52a0
\n )
\n)
\n;;;\u8868\u8f6c\u5316\u6210\u5b57\u7b26\u4e32
\n(defun L2S (lst \/ s)
\n (setq\ts
\n\t (apply
\n\t ‘strcat
\n\t (mapcar ‘(lambda(x)(strcat (rtos x) ” “)) lst)
\n\t )
\n )
\n (setq s (substr s 1 (1- (strlen s))))
\n (strcat “(” s “)”)
\n)
\n;;;\u5199\u6570\u636e\u51fd\u6570
\n(defun WrData (regobjs Num \/ Number reglst string str1 str2 str)
\n (setq Number Num) ;\u8ba1\u6570\u5f52\u96f6
\n (foreach obj regobjs
\n (setq reglst (mas obj)) ;\u5bf9\u5176\u5206\u522b\u6c42\u503c
\n (setq Number (1+ Number)) ;\u8ba1\u6570\u7d2f\u52a0
\n (write-line “***********************************” file)
\n (setq string (strcat “\u622a\u9762” (itoa Number) “\u7684\u53c2\u6570\u8868:”))
\n (write-line string file) ;\u5199\u5165region\u540d
\n (foreach n reglst
\n (setq str1 (car n)) ;\u53c2\u6570\u540d\u79f0
\n (if (listp (setq str2 (cdr n))) ;\u53c2\u6570\u503c
\n\t(setq str2 (L2S str2))
\n\t(setq str2 (rtos str2))
\n )
\n (setq str (strcat str1 “: ” str2))
\n (write-line str file) ;\u5199\u5165region\u53c2\u6570\u8868
\n )
\n )
\n Number
\n)
\n;;;\u4ee5\u4e0b\u6d4b\u8bd5\u7a0b\u5e8f
\n(defun C:test (\/ *APP *DOC *MSP i j ss ss1 err objlst REGs W&P OLDCMD OldUcs file)
\n (vl-load-com)
\n (setq\t*APP (vlax-get-acad-object)
\n\t*DOC (vla-get-activeDocument *APP)
\n\t*MSP (vla-get-Modelspace *DOC)
\n )
\n (princ)
\n (if (setq ss (ssget)) ;\u5efa\u7acb\u9009\u62e9\u96c6
\n (progn
\n (initget 1 “W P”) ;\u9009\u62e9\u5199\u5165\u6587\u4ef6\u6216\u5c4f\u5e55\u6253\u5370
\n (setq W&P (getkword “\\n\u786e\u5b9a\u8f93\u51fa\u6570\u636e\u65b9\u5f0f:\\n\u5199\u5165\u6587\u4ef6[W]\u6216\u5c4f\u5e55\u6253\u5370[P])?”))
\n (princ “\\n”)
\n (setq OLDCMD (getvar “CMDECHO”))
\n (setvar “CMDECHO” 0)
\n ;;(command “.UCS” “W”)
\n (uu 1)
\n (setq objlst (S2A ss)) ;\u9009\u62e9\u96c6\u5217\u8868
\n (if (setq ss1 (ssget “P” ‘((0 . “REGION”))));\u9009\u62e9\u96c6\u4e2d\u5df2\u6709\u7684region
\n\t(setq i (if (= W&P “P”) ;\u8ba1\u7b97\u5e76\u6c42\u51faregion\u6570\u76ee
\n\t\t (GetNum (S2L ss1) 0)
\n\t\t (progn
\n\t\t (setq file (open “C:\\\\\u622a\u9762\u51e0\u4f55\u53c2\u6570.TXT””W”));\u6253\u5f00\u6587\u4ef6
\n (Wrdata (S2L ss1) 0)
\n\t\t )
\n\t\t)
\n\t)
\n\t(setq i 0)
\n )
\n (defun addreg ()
\n\t(setq REGs (vla-addregion *MSP objlst))
\n )
\n (setq err (vl-catch-all-apply ‘addreg)) ;\u5efa\u7acb\u533a\u57df\u5e76\u51fa\u9519\u68c0\u6d4b
\n (if (vl-catch-all-error-p err) ;\u5982\u679c\u6ca1\u6709\u65b0\u5efa\u4efb\u4f55region
\n (setq j 0) ;\u5219\u8ba1\u6570\u4e3a0
\n\t(setq REGs (V2L REGs) ;\u5426\u5219\u8f6c\u5316\u6210region\u96c6\u5408
\n i (if (= W&P “P”) ;\u8ba1\u7b97\u5e76\u6c42\u51faregion\u6570\u76ee
\n\t\t (GetNum REGs i)
\n\t\t (progn
\n\t\t (setq file (open “C:\\\\\u622a\u9762\u51e0\u4f55\u53c2\u6570.TXT””A”));\u6253\u5f00\u6587\u4ef6
\n\t\t (Wrdata REGs i)
\n\t\t )
\n\t\t)
\n\t j (mapcar ‘vla-delete REGs) ;\u5220\u9664\u521a\u5efa\u7acb\u7684\u622a\u9762
\n\t)
\n )
\n (close file) ;\u5173\u95ed\u6587\u4ef6
\n (if (\/= 0 i)
\n\t(progn
\n (princ “\\n\\n\u5df2\u7ecf\u5217\u51fa”)
\n (princ i)
\n (princ “\u4e2a\u622a\u9762\u51e0\u4f55\u53c2\u6570\u8868.”)
\n\t)
\n\t(alert “\u6ca1\u6709\u9009\u4e2d\u6709\u6548\u7684\u622a\u9762!”)
\n )
\n ;;(command “.UCS” “P”)
\n (uu 0)
\n (setvar “CMDECHO” OLDCMD)
\n )
\n (alert “\u4f60\u6ca1\u6709\u9009\u4e2d\u7269\u4f53! “)
\n )
\n (gc)
\n (princ)
\n)
\n(defun uu (T&F \/ WCSOrg WCSXDr WCSYDr WCSObj OldOrg OldXDr OldYDr *UTI *UCS)
\n (setq *UTI (vla-get-Utility *DOC) ;\u53d6\u5f97Utility\u96c6
\n\t*UCS (vla-get-UserCoordinateSystems *DOC) ;\u53d6\u5f97UCS\u96c6
\n )
\n (setq WCSOrg (vlax-3d-point ‘(0 0 0))) ;WCS\u539f\u70b9
\n (setq WCSXDr (vlax-3d-point ‘(1 0 0)))
\n (setq WCSYDr (vlax-3d-point ‘(0 1 0)))
\n (setq WCSObj (vla-add *UCS WCSOrg WCSXDr WCSYDr “WCS”))
\n (if (= T&F 1)
\n (progn
\n (if (= (getvar “UCSNAME”) “”) ;\u5f53\u524dUCS\u540d,\u5982\u679c\u672a\u547d\u540d,\u5219
\n (progn
\n (setq OldOrg (vla-GetVariable *DOC “UCSORG”) ;\u53d6\u5f53\u524dUCS\u539f\u70b9
\n \t OldXDr (vla-getVariable *DOC “UCSXDIR”) ;\u53d6\u5f53\u524dX\u65b9\u5411
\n\t OldYDr (vla-getVariable *DOC “UCSYDIR”) ;\u53d6\u5f53\u524dY\u65b9\u5411
\n\t OldUcs (vla-add *UCS WCSOrg OldXDr OldYDr “OLD”);\u5efa\u7acb\u5f53\u524dUCS,\u4f46\u539f\u70b9\u5728'(0,0,0)\u5904
\n )
\n (vla-put-origin OldUcs OldOrg) ;\u6539\u53d8\u539f\u70b9\u4e3a\u5f53\u524dUCS\u539f\u70b9
\n )
\n (setq OldUcs (vla-get-ActiveUcs *DOC)) ;\u5982\u679c\u5df2\u7ecf\u547d\u540d,\u5219\u53d6\u5f97UCS\u7269\u4f53
\n )
\n (vla-put-ActiveUcs *DOC WCSobj)
\n )
\n (vla-put-ActiveUcs *DOC OldUcs)
\n )
\n OldUcs
\n)
\n[\/codesyntax]<\/p>\n","protected":false},"excerpt":{"rendered":"

[codesyntax lang=”lisp” lines_start=”<\/p>\n

Read More<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"ngg_post_thumbnail":0,"footnotes":""},"categories":[9],"tags":[],"class_list":["post-1898","post","type-post","status-publish","format-standard","hentry","category-programming"],"_links":{"self":[{"href":"https:\/\/www.highflybird.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/1898","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.highflybird.com\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.highflybird.com\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.highflybird.com\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.highflybird.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1898"}],"version-history":[{"count":0,"href":"https:\/\/www.highflybird.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/1898\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.highflybird.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1898"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.highflybird.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1898"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.highflybird.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1898"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}