(defun c:getdump (/
do$-string-to-list
do$-get-string-no-space
sel
lst
ent
vlobj
prop
)
(defun do$-string-to-list (str del / i rez)
(while (setq i (vl-string-search del str))
(setq rez (cons (substr str 1 i) rez)
str (substr str (+ 1 i (strlen del)))
) ;_ end of setq
) ;_ end of while
(reverse (cons str rez))
) ;_ end of defun
(defun do$-get-string-no-space (msg / str)
;;(do$-get-string-no-space "\n¬ведите значение:")
(setq
str (vl-catch-all-apply (function (lambda () (getstring msg))))
) ;_ end of setq
(cond
((or (vl-catch-all-error-p str) (= str "")) nil)
(T str)
) ;_ end of cond
) ;_ end of defun
(vl-load-com)
(if (and (setq sel (do$-get-string-no-space
"Enter handle or handle with properties: "
) ;_ end of do$-get-string-no-space
) ;_ end of setq
(setq ent (handent (car (setq
lst (do$-string-to-list sel ".")
) ;_ end of setq
) ;_ end of car
) ;_ end of handent
) ;_ end of setq
) ;_ end of and
(progn
(setq vlobj (vlax-ename->vla-object ent))
(foreach item (cdr lst)
(if (and (vlax-property-available-p vlobj item)
(= (type (setq prop (vlax-get-property vlobj item)))
'VLA-OBJECT
) ;_ end of =
) ;_ end of and
(setq vlobj prop)
) ;_ end of if
) ;_ end of foreach
(vlax-dump-Object vlobj T)
) ;_ end of progn
) ;_ end of if
) ;_ end of defun