tag:blogger.com,1999:blog-3238819613487876376.post8485572370939343445..comments2023-05-17T21:45:27.204+07:00Comments on AutoLISP Thật là đơn giản: Nội suy cao độ trên bề mặt 3DFacelemanhhung0302http://www.blogger.com/profile/10598822153127255574noreply@blogger.comBlogger4125tag:blogger.com,1999:blog-3238819613487876376.post-17111065783254150662020-06-29T09:30:01.009+07:002020-06-29T09:30:01.009+07:00Lisp gốc này là của mấy bác Nga Ngố^^:
(defun c:TI...Lisp gốc này là của mấy bác Nga Ngố^^:<br />(defun c:TIN(/ I L S)<br /> (command "layer" "n" "TIN" "c" 255 "TIN" "m" "TIN" "")<br /> (princ (strcat "\n select points"))<br /> (if (setq i 0<br /> s (ssget '((0 . "POINT")))<br /> ) ;_ setq<br /> (progn (repeat (sslength s)<br /> (setq l (cons (cdr (assoc 10 (entget (ssname s i)))) l)<br /> i (1+ i)<br /> ) ;_ setq<br /> ) ;_ repeat<br /> (eea-delone-triangulate i l)<br /> ) ;_ progn<br /> ) ;_ if<br />) ;_ defun<br />(defun eea-delone-triangulate<br /> (i1 L / A A1 A2 A3 I I2 L1 L2 L3 LP MA MI P S TI TR X1 X2 Y1 Y2)<br /> ;;*********************************************************<br /> ;;<br /> ;; Written by ElpanovEvgeniy<br /> ;; 17.10.2008<br /> ;; edit 20.05.2011<br /> ;; Program triangulate an irregular set of 3d points. <br /> ;;Anonymoushttps://www.blogger.com/profile/08356487255199942168noreply@blogger.comtag:blogger.com,1999:blog-3238819613487876376.post-5164914586313727522020-04-21T18:51:57.402+07:002020-04-21T18:51:57.402+07:00Lisp chạy rất tốt. Cảm ơn bạn rất nhiều vì đã chia...Lisp chạy rất tốt. Cảm ơn bạn rất nhiều vì đã chia sẻ. Chúc bạn mạnh khoẻ và thành công.Linh PXhttps://www.blogger.com/profile/10958825878264799213noreply@blogger.comtag:blogger.com,1999:blog-3238819613487876376.post-56887282872774238482020-02-12T14:27:43.899+07:002020-02-12T14:27:43.899+07:00Cao độ ra 0.00Cao độ ra 0.00Anonymoushttps://www.blogger.com/profile/08027321479275454806noreply@blogger.comtag:blogger.com,1999:blog-3238819613487876376.post-4498568991357409862019-04-15T08:49:24.711+07:002019-04-15T08:49:24.711+07:00toàn ra 0.000 toàn ra 0.000 luu vab dunghttps://www.blogger.com/profile/07627907801274375601noreply@blogger.com