Search found 343 matches

Re: Trapezoid area lisp

Yes, you need to check if the dxf_data existing the 90 and 63 dxf codes before trying to replace them. I bypass some lines (set/change properties) and it works now. (defun c:areacal (/ js nb ent dxf_ent ptlst surf n AcDoc Space old_textsize count app_txt cum_area pt_ins val_txt lst_bis l_4d max_d po...

Re: Trapezoid area lisp

BUT I can't remove to this problem : Run-time error 87: error: too few arguments nil If someone can help me to correct this Please ! Hi, Please replace the line: (command "_.-style" "AREA CALC" "arial.ttf" 2.5 "1" "0" "n" "n" &qu...

Re: DVB file

Hi Steven, The ActiveDocument is the IntelliCAD active document object. The ThisDocument means the same as in the past but didn't use in the current version. (unlucky, some sample codes in official documents still use the ThisDocument, so it causes the confused for users.) Regards, ActiveDocument.png

Re: Trapezoid area lisp

Hi SPirou4D. This code select close polylines rectangles and triangrles and insert calculate the area, and insert text with analytic calculation of this areas. I want to add in this code to calculate the area of trapezoid, with the type E = 1/2 x (a+b) x h . Can any one help? Thanks Do you want som...

Re: Trapezoid area lisp

The lisp above works on the Rectangle only. Please refer to simple lisp to get the area property of the LwPolyline: (defun c:areacal (/ area dxf_ent ent js n nb ptlst pt_ins) (if (setq js (ssget '((0 . "LWPOLYLINE") (-4 . "<AND") (-4 . "&") (70 . 1) (-4 . ">&qu...

Go to advanced search