(vlax-release-object theobj) release the obj vla-object ! Function : Return text string from clipboard (vlax-get (vlax-get (vlax-get ieobj 'document) 'parentwindow) (setq cbrd (vlax-get (vlax-get (vlax-get ieobj 'document) 'parentwindow) (vlax-invoke ieobj 'navigate2 "about:blank") (setq msgboxResult (dos_msgboxex BoxText (strcat "Items on Layer-" pLayName) buttons 4)) PerimStr (rtos (dkb_round sumperim 5) 2 0)īuttons (list "Yardage" "Acreage" "Length" "Count" "None")īoxText "Which Quantity should be sent to Clipboard?" (princ (strcat "\nPerimter= " (rtos sumperim 2 2))) (princ (strcat "\nTotal Objects Counted=" (itoa (sslength ss1)))) (princ (strcat "\nLayer Name - " pLayName)) (defun totalMe(pSelSet pLayName / ss1 sumarea sumperim count) (setq ss1 (ssget "x" (list type1 lay1 col1))) (setq e1 (car (entsel "\nSelect Representative Object "))
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |