(defun 객체테두리표시 (#aa / #a #b)
(vla-getboundingbox #aa '#a '#b)
(setq #a(vlax-safearray->list #a))
(setq #b(vlax-safearray->list #b))
(grvecs (list
-5 (list (car #a)(cadr #a))(list (car #b)(cadr #a))
-5 (list (car #b)(cadr #a))(list (car #b)(cadr #b))
-5 (list (car #b)(cadr #b))(list (car #a)(cadr #b))
-5 (list (car #a)(cadr #b))(list (car #a)(cadr #a))
);;list
);;grvecs
);;defun
;;=========================================
(defun c:gop (/ #a #index #b #c #d)
(vl-load-com)
(setq #a (ssget '((0 . "text")))
#index 0
);;setq
(repeat (sslength #a)
(setq #b(vlax-ename->vla-object (ssname #a #index)))
(setq #c(vla-get-textstring #b))
(if(apply 'and(mapcar '(lambda(#x)(wcmatch (chr #x) "#,[.]"))(vl-string->list #c)))
(progn
(setq #d(cons (atof #c)#d))
(객체테두리표시 #b)
);;progn
);;if
(setq #index(1+ #index))
);;repeat
(princ (strcat "\n≫≫≫Total:「"(rtos(apply '* #d)2 3)"」"))
(princ)
);;defun
카페 게시글
검색이 허용된 게시물입니다.
6-2 LISP 자료실
곱하기 소수점 셋째자리까지구하는 리습
一醉解千愁
추천 0
조회 177
07.02.23 16:44
댓글 0
다음검색