![]() ![]() (alert (strcat "no Blocks found on layer " lay)) (setq ss (ssget "X" (list (cons 0 "INSERT")(cons 8 lay)(cons 410 (getvar 'ctab))))) (setq Objtable (vlax-ename->vla-object (entlast))) (vla-SetTextHeight Objtable 'acDataRow 15) (setq objtable (vla-addtable vgms sp numrows numcolumns rowheight colwidth)) (Setq vgms (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))) (setq sp (vlax-3d-point (getpoint "pick a point for table "))) (setq laylist (list "(MAIN)*" "SECONDARY*" "BEAM*" "SLAB*")) (cons (car lst) (remove_doubles (vl-remove (car lst) lst)))
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |