![]() ![]() I'd also rather it to show that if there are no Plines so it would return a 0 value in the table. I have atleast 8 layers which isnt always active but always appear in the dwg and never frozen or hidden. and then places a table where i choose in which it shows me the combined length of what i picked by layersīut Id rather have it automatically call out on specific list of layers in which to count ONLY its Lines, Plines, 2D Plines and 3D Plines LENGTH combined seperated by layers. This lisp wants me to select what i want it to count. (vla-SetText tab row col (if (numberp c) (rtos c) (vl-princ-to-string c))) (textbox (list (cons 1 (vl-princ-to-string x)) (cons 7 (getvar 'textstyle)) (cons 40 ht))) (foreach col (apply 'mapcar (cons 'list lst)) Get files for your AutoCAD, Inventor, Revit, Civil 3D, Fusion 360 and 3ds Max. (setq lst (cons (mapcar '(lambda (a) (strcat "Col" (itoa (1 (vl-position a (car lst)))))) (car lst)) lst)) CAD Studio file download - utilities, patches, goodies, add-ons, freeware. (vla-SetTextStyle tab rowType (getvar 'textstyle)) ![]() Tab (setq tab (vla-addtable space (vlax-3d-point pct) ( 2 (length lst)) (length (car lst)) (* 2.5 ht) ht)) (setq space (vlax-get acDoc (if (= 1 (getvar 'cvport)) 'PaperSpace 'ModelSpace)) (defun insert_table (lst pct / tab row col ht i n space) (setq l (vl-sort l '(lambda (a b) (< (car a) (car b))))) (setq l (subst (list a ( (cadr o) d)) o l)) (setq p (getpoint "\nTable scale depend on annotation scale.\nSpecify table insert point: "))ĭ (vlax-curve-getdistatparam e (vlax-curve-getendparam e)) "LINE,POLYLINE,LWPOLYLINE,ARC,CIRCLE,ELLIPSE,SPLINE")))) (not (wcmatch (strcase msg) "*CANCEL*,*QUIT*,*BREAK*,*EXIT*")) (setq acdoc (vla-get-activedocument (vlax-get-acad-object))) (defun C:LAYLENGTH ( / *error* acdoc ss p i e a d l) (vl-load-com) ![]() also i want to make a change in it but im not sure how. i found this lisp online and im still too noob to read and understand how it goes properly. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |