[编程交流] Handle and Centre Co-ordinate

(defun c:getHand (/ ss file) (vl-load-com) (if (and (setq ss (ssget))          (setq file (getfiled "Output File" "" "txt;csv" 9)))   (progn     (setq file (open file "a"))     (mapcar       (function         (lambda (x)           (write-line             (cdr (assoc 5 x)) file)))       (mapcar 'entget         (vl-remove-if 'listp           (mapcar 'cadr (ssnamex ss)))))     (close file))   (princ "*Cancel*")) (princ))

(defun c:pc ( / acdoc acspc acsel reg ) (vl-load-com) ;; © Lee Mac 2011 (setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object))       acspc (vlax-get-property acdoc (if (= 1 (getvar 'CVPORT)) 'Paperspace 'Modelspace)) ) (if (ssget '((0 . "LWPOLYLINE") (-4 . "&=") (70 . 1)))   (progn     (vlax-for obj (setq acsel (vla-get-ActiveSelectionSet acdoc))       (vlax-invoke acspc 'addpoint         (trans (vlax-get (setq reg (car (vlax-invoke acspc 'addregion (list obj)))) 'Centroid) 1 0)       )       (vla-delete reg)     )     (vla-delete acsel)   ) ) (princ))

[color=GREEN];; Extract Handles and Centroids to CSV  -  Lee Mac 2012[/color]([color=BLUE]defun[/color] c:hcext ( [color=BLUE]/[/color] ad as cn fd fn rg sp )   ([color=BLUE]if[/color]       ([color=BLUE]and[/color]           ([color=BLUE]ssget[/color] '((0 . [color=MAROON]"LWPOLYLINE"[/color]) (-4 . [color=MAROON]"&="[/color]) (70 . 1)))           ([color=BLUE]setq[/color] fn ([color=BLUE]getfiled[/color] [color=MAROON]"Create Output File"[/color] [color=MAROON]""[/color] [color=MAROON]"csv"[/color] 1))       )       ([color=BLUE]progn[/color]           ([color=BLUE]setq[/color] ad ([color=BLUE]vla-get-activedocument[/color] ([color=BLUE]vlax-get-acad-object[/color]))                 sp ([color=BLUE]vlax-get-property[/color] ad ([color=BLUE]if[/color] ([color=BLUE]=[/color] 1 ([color=BLUE]getvar[/color] 'cvport)) 'paperspace 'modelspace))                 fd ([color=BLUE]open[/color] fn [color=MAROON]"w"[/color])           )           ([color=BLUE]write-line[/color] [color=MAROON]"Handle,Centroid X,Centroid Y"[/color] fd)           ([color=BLUE]vlax-for[/color] ob ([color=BLUE]setq[/color] as ([color=BLUE]vla-get-activeselectionset[/color] ad))               ([color=BLUE]setq[/color] rg ([color=BLUE]car[/color] ([color=BLUE]vlax-invoke[/color] sp 'addregion ([color=BLUE]list[/color] ob)))                     cn ([color=BLUE]trans[/color] ([color=BLUE]vlax-get[/color] rg 'centroid) 1 0)               )               ([color=BLUE]vla-delete[/color] rg)               ([color=BLUE]write-line[/color] ([color=BLUE]strcat[/color] ([color=BLUE]vla-get-handle[/color] ob) [color=MAROON]","[/color] ([color=BLUE]rtos[/color] ([color=BLUE]car[/color] cn)) [color=MAROON]","[/color] ([color=BLUE]rtos[/color] ([color=BLUE]cadr[/color] cn))) fd)           )           ([color=BLUE]vla-delete[/color] as)           ([color=BLUE]close[/color] fd)       )   )   ([color=BLUE]princ[/color]))([color=BLUE]vl-load-com[/color]) ([color=BLUE]princ[/color])

(defun c:pc ( / acdoc acspc acsel reg ) (vl-load-com) ;; © Lee Mac 2011 (setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object))       acspc (vlax-get-property acdoc (if (= 1 (getvar 'CVPORT)) 'Paperspace 'Modelspace)) ) (if (ssget '((0 . "LWPOLYLINE") (-4 . "&=") (70 . 1)))   (progn     (vlax-for obj (setq acsel (vla-get-ActiveSelectionSet acdoc))       (vlax-invoke acspc 'addpoint         [color=magenta](print [/color](trans (vlax-get (setq reg (car (vlax-invoke acspc 'addregion (list obj)))) 'Centroid) 1 0)[color=magenta])[/color]       )       (vla-delete reg)      [color=magenta](princ (cdr (assoc 5 (entget (vlax-vla-object->ename obj)))))[/color]     )     (vla-delete acsel)   ) ) (princ))

(defun c:EHC () (c:ExportHandleCentroid))(defun c:ExportHandleCentroid  (/ *error* wcs ss path acApp acDoc oSpace                               oShell file oRegion centroid) ;; RenderMan, 2012 ;; Special thanks to Lee Mac for demonstrating the region functionality! (princ "\rEXPORTHANDLECENTROID ") (vl-load-com) (defun *error*  (msg)   (if oShell     (vlax-release-object oShell))   (if file (close file))   (if oRegion (vla-delete oRegion))   (cond ((not msg))                                                   ; Normal exit         ((member msg '("Function cancelled" "quit / exit abort")))    ;  or (quit)         ((princ (strcat "\n** Error: " msg " ** "))))                 ; Fatal error, display it   (princ)) (prompt "\nSelect polylines to extract handle and centroid: ") (if   (and (setq wcs (= 1 (getvar 'worlducs)))        (setq ss (ssget '((0 . "LWPOLYLINE") (70 . 1))))        (setq path               (strcat (vl-filename-directory (vl-filename-mktemp))                       "\\Handles & Centroids.csv"))        (setq acApp (vlax-get-acad-object))        (setq acDoc (vla-get-activedocument acApp))        (setq oSpace (vlax-get-property                       acDoc                       (if (= 1 (getvar 'cvport))                         'paperspace                         'modelspace)))        (setq oShell               (vla-getinterfaceobject acApp "Shell.Application")))    (progn      (setq file (open path "w"))      (write-line "Handle, X, Y, Z" file)      (vlax-for oPline (setq ss (vla-get-activeselectionset acDoc))        (setq oRegion               (car (vlax-invoke oSpace 'addregion (list oPline))))        (setq centroid (trans (vlax-get oRegion 'centroid) 1 0))        (vla-delete oRegion)        (write-line          (strcat (vla-get-handle oPline)                  ","                  (rtos (car centroid))                  ","                  (rtos (cadr centroid))                  ","                  (rtos (caddr centroid)))          file))      (setq file (close file))      (setq oRegion nil)      (vla-delete ss)      (vlax-invoke oShell 'open path)      (*error* nil))    (cond      (wcs (*error* "Nothing selected"))      (ss (*error* "No file specified"))      ((*error* "The current drawing is not in WCS")))) (princ))

(if shell       (vlax-release-object shell))