Admin Thượng úy
Tổng số bài gửi : 103 Điểm : 291 Reputation : 34 Join date : 15/01/2011
| Tiêu đề: [lisp]Tính tổng diện tích hatch Sun Oct 16, 2011 4:02 pm | |
| - Code:
-
[font=Courier New];; free lisp from cadviet.com @ gia_bach (defun c:HatchArea (/ cnt tot ss obj ) (if (> (atof (substr (getvar "ACADVER") 1 4)) 16.1);;;AutoCAD 2006 16.2 (progn (vl-load-com) (setq cnt 0 tot 0 ) (princ "\nChon doi tuong HATCH : ") (if (setq ss (ssget '((0 . "HATCH")))) (progn (foreach e (mapcar 'vlax-ename->vla-Object (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))) (if (vlax-property-available-p e 'Area) (setq cnt (1+ cnt) tot (+ tot (vla-get-Area e)) ) ) ) (princ (strcat "\nTong dien tich cua "(itoa cnt) " Hatch la : " (rtos tot) ) ) (setq obj (entsel "\nChon text de ghi ket qua hay Enter de ket thuc.")) (if (and obj (setq obj (vlax-ename->vla-object (car obj))) (eq (vlax-get obj 'ObjectName) "AcDbText") ) (vla-put-TextString obj (rtos tot)) ) (princ) ) (princ "\nKhong co doi tuong HATCH nao duoc chon." ) ) ) (alert "\nPhien ban AutoCad cua ban khong ho tro tinh dien tich Hatch ") ) )[/font]
Tác giả : gia_bach and ketxu | |
|
hoangmy84 Thiếu úy
Tổng số bài gửi : 1 Điểm : 1 Reputation : 0 Join date : 14/05/2013
| Tiêu đề: Re: [lisp]Tính tổng diện tích hatch Tue May 14, 2013 2:21 pm | |
| cho em xin lisp tính tổng diện tích hatch và cách sử dụng.em xin cảm ơn nhiều | |
|